Write(>? О;

ReadLn(T)

End;

WriteLn('BBOfl данных закон чен !');

Close(Ft)

End.

В результате работы этой программы на диске будет создан файл

сименем Temp.dat, в котором сохранится введенная информация. Для последовательного чтения данных из файла требуется выпол­

нить следующие действия:

—описать файловую переменную;

—описать переменную того же типа;

—выполнить назначение (Assign);

—открыть файл для чтения (Reset);

—в цикле читать из файла (Read);

—закрыть файл (close).

П ример 2. Определить среднюю температуру для значений, хра­ нящихся в файле Temp.dat.

В этой программе использована функция определений размера файла:

.Fiiesize(<HMH файловой переменной>);

Эта процедура читает строку из файла с именем F V ) помещая прочи­ танное в переменные из списка ввода.

Writeln(FV, Ссписок вывода>).

Процедура записывает в файл FV значения из списка вывода, после чего выставляет маркер конца строки.

Для обнаружения конца строки в текстовом файле используется функция

Eoln(FV)

(end of line — конец строки). Это логическая функция, которая при­ нимает значение true, если указатель файла достиг маркера конца строки, В противном случае — false.

Употребление операторов read и Feadln без указания имени файло­ вой переменной обозначает чтение из стандартного файла input (ввод с клавиатуры). Употребление операторов write и writeln без имени файловой переменной обозначает запись в стандартный файл output (вывод на экран). В таком варианте этими операторами мы уже мно­ гократно пользовались. Считается, что файлы input и output всегда открываются соответственно для чтения и записи при работе любой программы.

При вводе с клавиатуры маркер конца строки обнаруживается при нажатии клавиши <ввод>.

Процедура геаdin может использоваться без списка ввода. В этом случае происходит пропуск текущей строки в читаемом файле.

Употребление процедуры writeln без списка вывода обозначает вы­ вод пустой строки (в файле выставляется маркер конца строки).

При записи в текстовый файл в списке вывода могут присутство­ вать форматы. Действия форматов мы уже рассматривали в разделе, где обсуждался вывод данных на экран. Точно также форматы рабо­ тают и при выводе в текстовые файлы, связанные с любыми другими устройствами.

П ример 1. Пусть файл с именем NOTE.TXT содержит некоторый текст. Требуется подсчитать количество строк в этом тексте.

Var Note Text;

КInteger;

Begin Assign(Note, ’Note.txt');

Reset(Note);

К := 0;

Используемый здесь оператор readln(Note) “пролистывает” строки из текстового файла Note, не занося их в какую-либо переменную.

Здесь каждая строчка прочитывается посимвольно, при этом в пере­ менной К работает счетчик числа символов в строке. В переменной Мах отбирается наибольшее значение счетчика.

П ример 3. Решается следующая механическая задача. Под дей­ ствием силы F с начальной скоростью V в вязкой среде движется тело массой М. Сопротивление пропорционально квадрату скороеin с ко­ эффициентом К. Определить время прохождения пяти контрольных точек траектории, расстояние до которых от точки старта заданы.

Пусть с помощью текстового редактора в фалле DATE.TXT сформи­ рованы исходные данные в форме следующей таблицы:

Координаты контрольных точек (м)

Требуется ввести числовые данные в вещественные переменные М, F, V, К и массив Х"[1..5], произвести расчеты и получить результаты в массиве Т[1..5]. Результаты следует вывести на экран, а также в текстовый файл на диске с именем Rssult.txt.

Ниже приводится программа без расчетной части. Показаны только ввод исходных данных и вывод результатов.

Rewrite(FR);

{____ Пропуск первых трех строк____ > ReadLn(FD);

ReadLn(FD);

ReadLn(FD);

{___________ Ввод данных____________ }

{___________ Ввод данных____________ } For I :« 1 То Б Do

Read(FD, X[I]);

{ РАСЧЕТНАЯ ЧАСТЬ ПРОГРАММЫ }

{____ Вывод результатов на экран и в файл FR____ > WriteLn(’Результаты ’);