Работа с файлами на языках Pascal презентация

Способ обращения к файлу:
rewrite (f); открытие для записи
reset (f); открытие для чтения
append (f); открытие для дополнения
Запись данных в файл:
write(<файл>,<данные>);
write(f , a);
Чтение данных из файла:
read(<файл>,<данные>);
read(f,a);
Закрытие файла:
close(<файл>);
close(f);

Пример записи в файл чисел от 1 до 10:
program zapisy_v_file;
var i: integer; var f: file of integer;
begin
assign (f,'c:\proba.dat');
rewrite (f);
for i:=1 to 10 do
write (f, i);
close(f);
end.

Пример чтения из файла:
program chtenie_iz_fila;
var i,a: integer;
var f: file of integer; begin
assign (f,'c:\proba.dat');
reset (f);
for i:=1 to 10 do
begin
read (f, a);
writeln(a);
end;
close(f);
end.

Работа с текстовыми файлами:
Пример записи в файл 3-х строк, введенных пользователем:
program zapisy_v_file;
var i: integer;
var a: string;
var f: text;
begin
assign (f,'c:\proba.txt');
rewrite (f);
for i:=1 to 3 do
begin
readln(a);
writeln(f, a);
end;
close(f);
end.

Чтение данных из файла неизвестной длины:
Применяется метка определения окончания файла EOF(<файл>).
NOT EOF(f)
program chtenie_iz_fila; var a: integer;
var f: file of integer;
begin
assign (f,'c:\proba.dat');
reset (f);
while NOT EOF (f) do
begin
read (f, a);
writeln(a);
end;
close(f);
end.
В текстовом файле в ABC-Pascal каждая строка имеет метку окончания EOLN(<файл>),.
program chtenie_iz_fila;
var i: integer;
var a: string;
var f: text;
begin
assign (f,'c:\proba.txt');
reset (f);
while NOT EOLN(f) do
begin
readln(f, a);
writeln(a);
end;
close(f);
end.

Выведите в файл “c:\kvadrat.dat” квадраты чисел заданного диапазона.
Считайте данные из файла “c:\kvadrat.dat” и выведите на экран.
Организуйте ввод данных об учащихся с клавиатуры с сохранением в единый файл. Количество учащихся задается в программе. Данные: фамилия, имя, класс.
Организуйте вывод данных об учащихся из файла в другой программе.
Измените программу так, чтобы при повторном запуске программы данные могли добавляться к уже имеющимся.

Чтение строк из файла
Слово или строку файла можно представить как
одномерный массив символов, тогда каждый символ можно представить как элемент массива
информатика
A [1] :=и;
A[3] :=ф;
Используя условный оператор можно читать из файла заданные строки (например слова на заданные буквы)

Создать программу которая выбирает из файла слова на заданную букву

var i,s,v: integer;
a,b,c:string;
var f: text;
begin
Writeln ('Покажи слова на букву'); assign (f,'слова.txt');
Reset(f);
read(b);
while NOT EOLN(f) do
begin
readln(f,a);
if a[1]= b then
writeln(a);
end;
close(f);
end.