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

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

Задать свой вопрос
Денис Гомолко
плииз(((
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 .
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт