Записи для работы с комбинациями разных типов в Pascal, страница 4

Задание 3

Найти средний балл по математике для студентов, указанного года рождения.

Блок-схема:

Программа:

Type

tpStudent = Record

                        FullName:String;

                        TelephoneNumber:String;

                        BirthYear:Integer;

                        Mark:Integer;

End;

Var

            DataBase : File of tpStudent;

            CurrentStudent : tpStudent;

            Number, Year : Integer;

            AverageMark : Real;

Begin

            Assign (DataBase, ‘data.txt’);

            Reset (DataBase);

            Write (‘Enter the Birth Year: ’);

            ReadLn (Year);

            While not EOF (DataBase) Do

                        Begin

                        Read (CurrentStudent);

                        If CurrentStudent.BirthYear = Year Then

                                   Begin

                                   AverageMark:=AverageMark+CurrentStudent.Mark;

                                   Number:=Number+1;

                        End;

            End;

            WriteLn (‘Average Mark is ’, AverageMark/Number:0:2);

End.

Задание 3

В файле хранится следующая информация о людях: Фамилия, Номер телефона, Адрес.

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

Вывести список людей, живущих на данной улице.

Блок-схема:

Подпрограммы для работы с меню:

Подпрограммы для работы с записями