Работа с текстовыми файлами в языке Паскаль - 11 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

11
var
SFileName, S: string;
FText: Text;
begin
{ Ввод имени файла }
Write('Имя файла: ');
ReadLn(SFileName);
{ Открытие файла на чтение }
Assign(FText, SFileName);
Reset(FText);
{ Вывод содержимого файла }
while not EOF(FText) do { пока не достигнут конец файла }
begin
ReadLn(FText, S); { чтение строки, пропуск перевода }
WriteLn(S) { печать строки и перевода строки }
end; { while not EOF(FText) }
{ Закрытие файла }
Close(FText)
end.
При сравнении данного решения с решением той же задачи методом
посимвольной обработки (текст программы s_1_1 из примера 1) можно отметить
следующие различия:
– Вместо двух вложенных циклов здесь остался только один — внешний.
– Вместо считывания во внутреннем цикле в переменную типа Char:
Read(FText, C);
и пропуска символа перевода строки после внутреннего цикла:
ReadLn(FText);
теперь используется одно считывание в переменную типа string,
совмещённое с пропуском символа перевода строки:

Страницы