1.1. Ввести Имя_Набора_Данных
1.2. Связать Файл с Набором_Данных
1.3. Открыть Файл для записи
2.1 Ввести количество строк (n)
2.2. Для номера строки (i) от 1 до n выполнить
а) ввести строку;
б) переписать в файл строку
3. Закрыть файл
4. Закончить
Программа для этого алгоритма будет иметь вид
Program SozdText;
Var
Tx : Text; {Имя текстового файла}
FilName : String;{Имя набора данных}
Stroka : String;{Строка текста}
i,n : Integer; {Вспомогательные переменные}
Begin
Writeln(’Введите имя набора данных’);
Readln (FilName); {п. 1.1}
Assign(Tx,FilName); {п. 1.2}
Rewrite (Tx); {п. 1.3}
Writeln (’Введите количество строк текста’);
Readln(n); {п. 2.1}
Writeln (’Введите строки’);
For i:=1 to n do {п. 2.2}
Begin
Readln (Stroka); {Ввод строки с клавиатуры}
Writeln(Tx,Stroka); {Запись в файл}
End;
Close(Tx); {п. 3}
End.
Работа с существующим текстовым файлом
Работа с существующим файлом обычно включает в себя операции открытия его для чтения, и затем считывания из него записей, пока не появится признак "Конец файла" – Eof(Файл). Поэтому соответствующие Паскаль-программы содержат циклы вида
While Not Eof (Файл) do
Begin
Readln(Файл, Запись);
- - - - - - - -
End;
Простейшая задача – вывести на экран содержимое файла. Рассмотрим ее на примере набора, созданного в предыдущем пункте.
