Лабораторная работа №2(Записи) Задание 2

Задание: Составить программу, выполняющую указанную обработку и содержащую меню со следующими пунктами:

1. Создание типизированного файла с 10 записями

2. Просмотр файла

3.Обработка файла

4.Выход.

Выход из меню по пункту 4. Результат по каждому пункту на чистом экране.

***********************************************************************************************

1. Сформировать файл, имеющий следующую структуру

type имя=(Аня,Валя,Женя,Петя,Саша,Таня,Шура,Юра);

данные=record пол:(м,ж);рост:140..200 end;

и определить: средний рост женщин;

имя самого высокого мужчины;

есть ли в группе хотя бы два человека одного роста.

-----------------------------------------------------------------------------------------------------------------------------------------------

2.Сформировать файл, имеющий следующую структуру

type дата=record число:1..31;

месяц:1..12;

год:1900..1996;

end;

анкета=record фамилия:string;

пол:(м,ж);

день рождения:дата;

end;

и определить: фамилию самого старшего мужчины;

все фамилии, начинающиеся с заданной буквы;

список людей, родившихся в заданном месяце.

-----------------------------------------------------------------------------------------------------------------------------------------------

3.Сформировать файл, имеющий следующую структуру

type знакомый=record фамилия:string;

номертел:10000..99999;

адрес:string;

end;

и определить: есть ли в книжке телефон данного человека;

кому принадлежит данный телефон;

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

----------------------------------------------------------------------------------------------------------------------------------------------

4.Сформировать файл, имеющий следующую структуру

type студент= record фамилия: string;

номергр: string;

оценка1: integer;

оценка2: integer;

оценка3: integer;

end;

и определить: фамилию того, кто лучше всех сдал экзамены;

средний балл по данному предмету;

список задолжников.

-----------------------------------------------------------------------------------------------------------------------------------------------

5. Сформировать файл, имеющий следующую структуру

type студент= record фамилия:string;

имя:string;

пол:(м,ж);

возраст:16..35;

курс:1..5;

end;

и определить: курс, на котором наибольший процент мужчин;

самые распространенные женские и мужские имена;

список студентов данного пола, данного курса.

-----------------------------------------------------------------------------------------------------------------------------------------------

6.Сформировать файл, имеющий следующую структуру

type пассажир=record фамилия:string;

имя:string;

номер рейса:string;

количество вещей:integer;

общий вес:integer;

end;

и определить: рейс с максимальным весом багажа;

пассажира с наибольшим количеством вещей;

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

-----------------------------------------------------------------------------------------------------------------------------------------------