Работа с файлами в Паскале (текстовые файлы)

Работа с файлами в Паскале (текстовые файлы)

Чтение и запись данных в файл на Паскаль

Организация ввода данных из файла

1. Завести переменную типа текст и переменную в которую будем записывать прочитанное значение.

Var

t:text;

a:integer;

Для связи файла в коде программы и действительного файла на внешнем носителе используется процедура ASSIGN

где t — имя переменной (объявленной ранее в области var), ассоциированной с файлом
c:\input.txt— путь к реальному файлу
Первый аргумент процедуры assign в паскаль — переменная, второй – путь к файлу на диске.

4. Теперь можно читать данные.
Тут нужно понимать и помнить отличия процедуры read, от readln. Если в файле данные записаны в одной строке, через пробел, то мы пользуемся все время процедурой read столько раз, сколько чисел нужно прочитать.
Если же строк несколько, то когда доходим до символа стоящего в конце строки, используем readln. В результате чего будет считано последнее число строки и курсор переместится на новую.

read(t,a);

1. Как и в случае со вводом, необходимо связать текстовую переменную с выходным файлом. Только файл называется output.txt.

assign(t,'output.txt');

Пример:


Program pr;
var
a:integer;
t:text;
Begin
assign(t,'C:\input.txt');
reset(t);
read(t,a);
close(t);
a:=a+56;
assign (t,'C:\output.txt');
rewrite(t);
write(t,a);
close(t);
End.