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

1.

Работа с файлами на языках Pascal. Виды файлов,
операции над файлами. Применение файлов в задачах
на вычисления и обработку текста.
Файл – именованная область устройства памяти, содержащая данные.
Файл – совокупность данных, в которой все данные должны быть
одного типа.
Подготовка переменной файлового типа:
var <имя переменной>: file of <тип>;
var f: file of integer; - числовая переменная
var f: text; - текстовая переменная
Обращение к диску по имени файла:
assign (<имя переменной> , <путь>) ;
assign (f,’c:\proba.dat’);

2.

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

3.

Пример записи в файл чисел от 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.

4.

Пример чтения из файла:
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.

5.

Работа с текстовыми файлами:
Пример записи в файл 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.

6.

Чтение данных из файла неизвестной длины:
Применяется метка определения
окончания файла 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.

7.

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

8.

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

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

10.

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.

11.

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