Решения (задачи 224-241)
Задача 227
{ Выводит на экран содержимое файла а:\numbers.txt } var
f: text; { текстовый файл } n: integer; { число } begin
writeln('Содержимое файла a:\nunibers.txt1);
writeln ('-----------------------------');
Assign(f,'a:\numbers.txt'); Reset(f); { открыть файл для чтения }
While not EOF(f) do { пока не достигнут конец файла } begin
readln(f,n); { прочитать число из файла }
writeln(n); { вывести прочитанное число на экран } end;
Close(f); writeln ('-readln;
закрыть файл
end.
Задача 228
(Вычисляет среднее арифметическое чисел, находящихся в файле a:\numbers.txt }
var
f: text; { текстовый файл } n: integer; { число, прочитанное из файла }
kol: integer; { кол-во прочитанных чисел }
sum: integer; { сумма прочитанных чисел) sa: real; { среднее арифметическое }
begin
writeln('Вычисление среднего арифметического чисел, writeln('находящихся в файле a:\numbers.txt');
writeln('Чтение из файла. Подождите.'); sum: = 0; kol:-0;
Assign(f,'a:\numbers.txt'); Reset (f); { открыть файл для чтения }
While not EOF(f) do { пока не достигнут конец begin
readln(f,n); { прочитать число из файла }
sum: = sum+n;
kol: = kol+l; end;
Close(f); { закрыть файл } sa: = sum/kol;
writeln('Прочитано чисел: ',kol); writeln('Сумма чисел: ',sum);
writeln('Среднее арифметическое: ',sa:9:2); readln;
end.
Задача 229
{ Выводит на экран содержимое файла, имя которого
указано пользователем } uses Crt;
f: text; { текстовый файл }
fname: string[80]; (имя файла }
st: string; { строка, прочитанная из файла }
'nst: integer; { кол-во выведенных на экран строк
key: char; { клавиша, нажатая пользователем }
begin
ClrScr; { очистить экран } writeln('Просмотр текстового файла');
writeln('Введите полное имя файла и нажмите Enter');
write(' › '); readln(fname); Assign(f,fname);
Reset(f); { открыть файл для чтения } ClrScr; nst: = 0;
While not EOF(f) do { пока не достигнут конец файла } begin
readln(f,st); (прочитать число из файла } writeln(st); nst: = nst+l;
if nst = 23 then { выведены очередные 23 строки } begin
writeln;
write('Для продолжения вывода ',
'нажмите любую клавишу…'); key: = Readkey;
GotoXY(l,WhereY); { курсор в начало текущей строки } DelLine; { удалить сообщение
"Для продолжения…"} nst: = 0; end; end;
Close(f); { закрыть файл } writeln;
write('Для завершения просмотра нажмите любую ',
'клавишу…'); key: = Readkey;
end.