Чтение-запись в текстовый файл

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

Program ReadWrite;

Uses crt;

Var a,b:real;

File:text;

Begin

Write(‘Введите число’);

Readln(a);

b:=2*a;

Assign(Fail,’D:\data.txt’);

Rewrite(File);

Writeln(File,‘Ответ: b=’,b:2:3);

Close(File);

End.

При работе с текстовым файлом появляется новая переменная (File) формата text. Перед записью данных устанавливается связь переменной File с конкретным файлом на компьютере с помощью команды Assign. Последующая команда Rewrite перезаписывает указанный файл или создает его заново, если такого нет по указанному пути. При записи в команде вывода Write в начале указывается, что вывод будет осуществляться в переменную File, а, следовательно, в файл data.txt. Работа с файлом заканчивается командой Close.

Дополнительно существует команда Append, которая позволяет добавлять данные в уже имеющийся файл без его перезаписи.

При чтении данных из файла вместо команды Write используется команды Read.

ПРИМЕРЫ СОСТАВЛЕНИЯ АЛГОРИТМОВ И ПРОГРАММ