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

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

Учитель Сарина К.К.

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

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

С данными файла можно производить две основные операции: запись и чтение.

Как записать в файл данные разного рода (цифры, буквы?)

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

Описание файла производится в разделе описания переменных, при этом указывается имя файловой переменной (логическое имя файла) и ее тип.

Например:

Var f : file of integer;

или

Var f1:text;

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

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

Например, assign ( f,’data.txt’ ) ;

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

Rewrite(f); - открытие нового файла для записи.

Reset(f); - открытие существующего файла для чтения или записи.

Write ( f,a ); - запись в фай л .

Read(f,a); - чтение из файла.

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

Close(f);

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

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

For(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.

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

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

Домашнее задание

• Дан файл целых чисел. Перепишите четные элементы файла в один дополнительный файл, а нечетные – в другой.