Паскаль - Урок 22 (Часть 1): Работа с файлами в Паскале

Паскаль - Урок 22 (Часть 1): Работа с файлами в  Паскале


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

Итак, начинаем наше изучение файлов. Что же включает в себя работа с файлами в Паскаль? Для начала надо определиться что же представляют эти файлы.
Файл - это упорядоченная последовательность однотипных компонентов, расположенных на внешнем носителе. Файлы предназначены только для хранения информации, а обработка этой информации осуществляется программами.
В Паскале существует несколько типов файлов: типизированный, нетипизированный и текстовый. Сегодня мы рассмотрим только текстовые файлы.

Если Вы зашли на сайт по запросу свадебный фотограф, то лучше посетите сайт 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.
Дата: 2013-10-23 17:52:05   Просмотров: 34220

Теги: Паскаль уроки Pascal