Написать программу, которая позволяет просматривать текстовые файлы

Question

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

Answer 1

35

olegutor

08 апреля 2023

Var f1: text; st: string; beginwrite ('введите имя файла '); readln (f1); reset (f1); { открыть файл для чтения }while not eof (f1) do { пока не конец файла f1}beginreadln (f1, st); {читаем строку из файла f1 }writeln (st); { выводим на экран }end; close (f1); { закрыть файл для чтения}end .

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: