Алгоритмы и программы. Афанасьева Т. В - 93 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

93
while not (eof(f)) do
begin
read (f,x); {чтение из файла}
y:=x*x+2*x–3;
write (y,' ',x);
if ma<y then { поиск максимального значения }
ma:=y;
end;
writeln;
writeln ('Максимальное значение функции равно ',ma);
close(f); {закрытие файла}
readln;
end.
Пример 5.2. В исходном файле найти максимальное значение,
поменять его с первым элементом и результат записать в выходной файл.
program k4;
var fz: file of integer; {объявление файловых}
fr: file of integer; {переменных fr – исходный, fz –выходной}
ma,c,i,n: integer;
begin
assign (fr,'mkurs.dat'); {связывание файловых переменных}
assign (fz,'izm.dat'); {с именами реальных файлов }
reset(fr); {открытие файла fr для
чтения}
rewrite (fz); {открытие файла fz для записи}
ma:=–32768;
n:=0;
writeln ('Поменять местами макс. и первый эл–ты файла. ');
writeln (' Результат записать в файл.');
writeln (' Исходный файл');
while not Eof(fr) do {проверка на конец файла}
begin
read (fr,c); {чтение из исходного файла}
if c>ma then {поиск максимального элемента}
begin
ma:= c;
n:=i;
end;
end;
writeln ('Полученный файл');
write (fz,ma); {запись максимального элемента в начало выходного
файла}
seek(fr,1); {установка на второй элемент исходного файла}

Страницы