Написать программу, которая позволяет просматривать текстовые файлы (выводит на экран содержимое файла), например, файлы исходных программ Turbo Pascal. Имя просматриваемого файла должно вводится во время работы программы. Рекомендуемый вид экрана приведен ниже. Просмотр текстового файла. Введите полное имя файла и нажмите. - > d:/tp/pas/numb. pas

Question

Информатика

Анастасей

6 июля, 19:09

Написать программу, которая позволяет просматривать текстовые файлы (выводит на экран содержимое файла), например, файлы исходных программ Turbo Pascal. Имя просматриваемого файла должно вводится во время работы программы. Рекомендуемый вид экрана приведен ниже. Просмотр текстового файла. Введите полное имя файла и нажмите. - > d:/tp/pas/numb. pas

+5

Ответы (1)

Знаете ответ?

Татуля · Answer 1

Var f1:text;

st:string;

begin

write ('введите имя файла ') ;

readln (f1) ;

reset (f1) ; { открыть файл для чтения }

while not eof (f1) do { пока не конец файла f1}

begin

readln (f1, st) ; {читаем строку из файла f1 }

writeln (st) ; { выводим на экран }

end;

close (f1) ; { закрыть файл для чтения}

end.