Лабораторная работа №11

Тема: Программирование с использованием файлов.

Необходимые сведения

Процедуры и функции работы с файлами.

Пример. Работа с типизированным файлом на примере телефонного справочника.

Вариант программы

User Crt; Const M = 3;

Type Str10 = String[10];

Person = Record

Fio, Phone : Str10 End;

Var Bookfile : File of Person;

Work : Person : i : Byte;

Procedure Add_ Rec(ab : Person);

Begin

Writeln(‘Создаем справочник из ‘.M.’ записей.’);

With ab Do Begin

Write(‘ Наберите фамилию абонента:’); Readln(fio);

Write(‘ Наберите номер телефона:’); Readln(Phone);

End;

Write(Bookfile, ab);

End;

Procedure Output_Rec(ab : Person; k : Byte);

Begin

Seek (Bookfile, k); Read(Bookfile, ab);

With ab Do

Writeln(‘ФИО: ‘ , fio,’ Тел. : ‘ , phone);

End;

Begin { Головная программа }

Clrscr; Assign(Bookfile ‘Phone.dat’);

Rewrite(Bookfile): Write(‘Создаем телефонн. справочник ‘);

For i: = 1 To M Do Add_Rec(Work);

Write(‘ Набор данных завершен. Записаны данные о ‘ );

Writeln(Filesize(Bookfile), ‘ абонентах ‘);

i:=0; Seek(Bookfile, 0);

While Not Eof(Bookfile) Do Begin

Output_Rec(Work, i); i:= i+1;

End; Readln; Closse(BookFile);

End.

Варианты заданий

Используя текст примера в качестве основы, написать программу, которая:

1) выводит на экран список абонентов в алфавитном порядке,

2) выводит на экран список абонентов, в номерах телефонов которых заданы первые две цифры,

3) выводит на экран список абонентов по возрастанию телефонных номеров,

4) выводит на экран список абонентов, в номерах телефонов которых сумму цифр – нечетное число,

5) позволяет заменять информацию об абонентах,

6) позволяет находить номера тех абонентов, фамилии которых начинаются на заданную букву,

7) выводит на экран список абонентов, в номерах телефонов которых заданы последние две цифры,

8) выводит на экран список абонентов, в номерах телефонов которых сумма цифр – четное число,

9) список абонентов, телефонные номера которых являются «счастливыми», т.е. сумма первых трех цифр равна сумме последних трех цифр.

Контрольные вопросы:

1. С помощью какого оператора устанавливается соответствие между внешним именем файла и файловой переменной?

2. Каким образом создать файл?

3. Как подготовить уже существующий файл к считыванию данных?

4. Верно ли, что элементы файла должны быть одного типа и что файл отличается от массива только тем, что размер (количество элементов) файла произволен, а размер массива фиксирован?

5. Как записать данные в файл? Как считать данные из файла?

6. Как определить размер файла?

7. С помощью какой функции можно определить, есть ли еще в файле данные или уже достигнута метка конца файла?

Список рекомендуемой литературы:

1. Абрамов В.Г., Трофимов Н.П., Трофимова Г.Н./ Введение в язык Паскаль. – М. : Наука, 1988. – 320 с.

2. Инструментальные средства персональных ЭВМ. В 10 кн. Кн.4. Программирование в среде Турбо-Паскаль: Практ. пособие / Л.Е. Агабеков, С.В. Борисов, А.С. Ваулин и др.; По ред. .Г.Трусова. – М.: Высш.шк., 1993. –142 с.

3. Пильщиков В.Н.//Сборник упражнений по языку Паскаль; Учеб.пособие для вузов. – М.: Наука. Гл. ред. физ.-мат.лит., 1989 . – 160 с.

4. Программирование в среде Turbo Pascal 6.0: Справ.пособие/ Ю.С. Климов, А.И. Касаткин, С.М.Мороз. – Мн.: Высш. шк., 1992. – 158 с.

5. Прайс Д. Программирование на языке Паскаль. Практическое руководство. – М.: Мир, 1987. – 232 с.

6. Зуев Е.А. Система программирования Turbo Pascal.// М.: Радио и связь, 1991. – 288 с.