Продолжаем изучение языка программирования Паскаль. Сегодня мы познакомимся с файлами в Паскале, что это такое, как с ними работать, да и зачем они вообще нужны.
Итак, начинаем наше изучение файлов. Что же включает в себя работа с файлами в Паскаль? Для начала надо определиться что же представляют эти файлы.
Файл - это упорядоченная последовательность однотипных компонентов, расположенных на внешнем носителе. Файлы предназначены только для хранения информации, а обработка этой информации осуществляется программами.
В Паскале существует несколько типов файлов: типизированный, нетипизированный и текстовый. Сегодня мы рассмотрим только текстовые файлы.
Если Вы зашли на сайт по запросу свадебный фотограф, то лучше посетите сайт http://dilaney.com. Если Вы зашли на сайт для того, чтобы изучать Паскаль, но вам все равно нужен свадебный фотограф, то тоже посетите обязательно этот сайт.
Файл с нулевым количеством элементов называется пустым.
Для упрощения входной файл назовем input.txt
А выходной output.txt
Для того чтобы работать с файлами необходимо сначала их описать.
var
f,f1:text;
a:integer;Далее необходимо ввести этот файл.
assign(f,'input.txt');
assign(f1,'output.txt');Открываем файл для чтения.
reset(f);Открываем второй файл для записи, при этом всё что было в файле стирается.
rewrite(f1);Также можно открыть второй файл для дозаписи (дозапись производится в конец файла).
append(f1);Считывание производится обычным оператором read с указанием файла из которого производится считывание.
read(f,a);Запись осуществляется обычным оператором write с указанием файла в который производится запись.
write(f1,a);После всех манипуляций все! открытые файлы необходимо закрыть.
close(f);
close(f1);Также в Паскаль встроены несколько стандартных функций для файлов:
EOF(f) - определяет конец файла, если достигнут конец файла возвращает значение true
EOLN(f) - определяет конец строки, если достигнут конец строки возвращает значение true
Пример простейшей задачи с файлами.
var a:integer;
f,f1:text;
Begin
assign(f,'input.txt');
assign(f1,'output.txt');
reset(f);
read(f,a);
close(f);
rewrite(f1);
write(f1,a);
close(f1);
End.