Статья: Обработка последовательных файлов в программе

Пример:

Assign (f, 'file1.dat');

{$I-} {* отключаем автоматическую проверку *}

Reset (f);

code:= IOResult; {* получили код результата *}

if code <> 0 then

begin {* возникла ошибка *}

write (' Ошибка при открытии файла ');

case code of

1: write('файл не найден');

3: write('маршрут не найден');

4: write('слишком много открытых файлов');

5: write('запрет доступа к файлу');

12: write('некорректный код доступа к файлам');

else

……..

end

end;

{$I-} {* включаем автоматическую проверку *}

…………………….

После рассмотренных примеров можно предложить задачи для самостоятельной работы.

Задача 1. Данные об абитуриентах (фамилия, имя, отчество, средний балл аттестата) содержатся в файле F1.txt. Напишите программу, которая запрашивала бы отметки всех сданных экзамен каждого абитуриента и формировала новый файл F2,.txt в который вошли бы следующие сведения об абитуриентах: фамилия, имя, отчество, средний балл аттестата, отметка1, отметка2, отметка3.

Задача 2. Данные о налогоплательщиках (фамилия, имя, отчество, адрес) находятся в файле F1.txt. Написать программу, которая выводила эти сведения в таблицу:

Фамилия, имя, отчество	адрес	доход	налог

Доход ввести с клавиатуры. Налог рассчитать 15% от дохода. Доход и налог вывести в таблицу.

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