Turbo Pascal для начинающих




Задача 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.









Начало    Назад    Вперед




Книжный магазин