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

Файл в Паскале

Состоит из однотипных данных (integer,real и т.д.).
С данными файла

1. Описание файла

Описание файла производится в разделе описания переменных, при этом

2. Установление соответствия между логическим и физическим именем файла

Assign(логическое имя, физическое

3. Запись в файл / чтение из файла

Rewrite(f); - открытие нового

4. Закрытие файла

Close(f);
Производится после окончания работы с файлом, отсутствие этой операции

Проверка конца файла

Eof(f) – логическая функция, ее значение – «истина», если

ПРИМЕР

Записать в файл 10 цифр, вводимых пользователем.

Var F:text;
a,i:integer;
Begin

Assign(f,’data.txt’);

Rewrite(f);

Writeln(‘введите 10 цифр’);

For i:=1 to 10 do
Begin
Read(a);
Write(f,a)
End;

Close(f);
end.

ПРОГРАММА

ПРИМЕР

Написать программу сложения 5 чисел, записанных в файле.

Var a,s,i:integer;
F:text;
Begin

Assign(f,’primer2.txt’);

Reset(f);

S:=0;
While not eof(f) do
Begin
Read(f,a);
S:=S+a;
End;

Close(f);
Writeln(‘Cумма=’,s)
end.

ПРОГРАММА

Задание на работу

Составить программу, записывающую в файл только четные числа из