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

Сформировать запись, имеющую следующую структуру type знакомый=record

фамилия:string; номертел:10000..99999; адрес:string; end;

и определить:

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

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

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

Сформировать запись, имеющую следующую структуру type студент= record

фамилия: string; номергр: string; оценка1: integer; оценка2: integer; оценка3: integer; end;

и определить:

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

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

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

Сформировать запись, имеющую следующую структуру type студент= record

фамилия:string; имя:string; пол:(м,ж); возраст:16..35; курс:1..5; end;

и определить:

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

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

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

Сформировать запись, имеющую следующую структуру type пассажир=record

фамилия:string; имя:string; номер рейса:string; количество вещей:integer; общий вес: integer; end;

и определить:

• рейс с максимальным весом багажа;

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

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

Сформировать запись, имеющую следующую структуру type владелец=record

фамилия:string; адрес:string; марка автомобиля:string; рег. номер:string; год выпуска:1900..2000; end;

и определить:

• количество автомобилей каждой марки;

• владельца самого старого автомобиля;

• фамилии владельцев и номера автомобилей данной марки.

Сформировать запись, имеющую следующую структуру type ребенок=record

фамилия:string; адрес:string; пол:(муж,жен); количество дней посещения:integer; end;

и определить:

• самого болеющего ребенка;

• кто больше болеет мальчики или девочки;

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

Сформировать запись, имеющую следующую структуру type книга=record

автор:string; название:string; год издание:integer; издательство:string; количество страниц:integer; end;

и определить:

• есть ли в библиотеке книги данного автора;

• найти книгу с наибольшим количеством страниц;

• найти названия книг данного автора, изданных с указанного года, в данном издательстве.

Сформировать запись, имеющую следующую структуру type товар=record

наименование:string; страна:string; объем партии:integer; цена:integer; end;

и определить:

• страну, в которую экспортируется товар на максимальную сумму;

• список стран, в которые экспортируется данный товар;

• найти товары, который имеет минимальный объем партии.

Сформировать запись, имеющую следующую структуру type игрушка=record

название:string; цена:integer; возраст1:1..16; возраст2:1..16; end;

и определить:

• название самой дорогой игрушки;

• список игрушек, которые подходят детям данного возраста;

• подобрать игрушки на данную сумму денег (все варианты).

Сформировать запись, имеющую следующую структуру type игрушка=record

название:string; цена:integer; цвет:string; возраст1:1..16; возраст2:1..16; end;

и определить:

• название игрушек, цена которых не превышает данную и которые подходят детям данного возраста;

• найти самую дешевую игрушку данного названия;

• найти самый распространенный цвет игрушек.

Сформировать запись, имеющую следующую структуру type пассажир=record

фамилия:string; имя:string; номер рейса:string; количество вещей:integer; общий вес:integer;

end;

и определить:

• число пассажиров, количество вещей которых превосходит среднее число вещей;

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

• вывести информацию о количестве вещей и общем весе каждого рейса.

Сформировать запись, имеющую следующую структуру type спортсмен=record

фамилия:string; страна:string; рост:150..220; вес:30..100; год рождения:ineger; результат:integer; end;

и определить:

• средний рост и вес спортсменов данной страны;

• найти лучшего спортсмена данной страны;

• список спортсменов данного возраста с результатом, не хуже данного.

Сформировать запись, имеющую следующую структуру

type спортсмен=record

фамилия:string; страна:string; тренер:string; год рождения:ineger; результат:integer; end;

и определить:

• найти самого молодого спортсмена, занимающегося у данного тренера;

• найти лучшего тренера данной страны;

• список тренеров с указанием страны.

Сформировать запись, имеющую следующую структуру type предмет=record

название:string; количество часов:integer; преподаватель:string; кафедра:string; форма отчетности:(зачет,экзамен); end;

и определить:

• преподавателя, у которого самое большое количество часов;

• список предметов, по которым сдают экзамен;

• кафедру и преподавателя, который ведет данный предмет.

Сформировать запись, имеющую следующую структуру type предмет=record

название:string; количество часов:integer; преподаватель:string; кафедра:string; форма отчетности:(зачет,экзамен); end;

и определить:

• преподавателя, который принимает больше всего экзаменов;

• кафедру, на которой читается больше всего предметов;

• список преподавателей данной кафедры.

Сформировать запись, имеющую следующую структуру type предмет=record

название:string; количество часов:integer; преподаватель:string; кафедра:string; форма отчетности:(зачет,экзамен); end;

и определить:

• найти среднюю нагрузку по данной кафедре;

• найти количество зачетов и экзаменов у данного преподавателя;

• список предметов, читаемых данной кафедрой.

Сформировать запись, имеющую следующую структуру type преподаватель=record

фамилия:string; предмет:string; факультет:string; курс:1..5; количество часов:integer; end;

и определить:

• преподавателя имеющего самую большую нагрузку;

• список предметов, которые читает данный преподаватель;

• объем часов на данном факультете и данном курсе.

Сформировать запись, имеющую следующую структуру type студент=record

фамилия:string; предмет:string; оценка:integer; количество часов:integer; end;

и определить:

• определить предмет, по которому наивысшая оценка;

• рассчитать средний балл;

• объем часов по всем предметам.

Приложение В

1. Из множества целых чисел 1..100 выделить множество чисел, на которые делится без остатка число 444. Вывести это множество на экран.

2. Из множества латинских букв выделить множество, состоящее из символов, не входящих во множество символов составляющих ваше имя. Вывести это множество на экран.

3. Определить и вывести на экран множество символов входящих одновременно в имя, отчество, и фамилию, введённые с клавиатуры.

4. Определить и вывести на экран множество символов входящих только в имя, отчество или фамилию, введённые с клавиатуры.

5. Определить и вывести на экран множество символов входящих в диапазон '0'..'9' и не входящих в множество символов, составляющих дату рождения, введённую с клавиатуры.

6. Из множества целых чисел 1..100 выделить множество чисел, являющихся, в свою очередь, квадратами целых чисел.

7. Из множества целых чисел вводимых с клавиатуры в линейную таблицу из 10-ти элементов, выделить множество чисел кратных минимальному числу этой таблицы.

8. Написать программу вычисления суммы мест, на которых в слове Х стоят гласные буквы.

9. Имеется множество Lat(‘a’..’z’). придумайте простейший способ для вывода на печать его содержимого.

10. Создать программу, демонстрирующую операции над множествами (объединение, пересечение и разность). Известно, что множество М1={2,4,6,8}, М2={0,1,2,3,5}, М3={1,3,5,7,9}.

11. Описать множество Pr(1..20) и поместите в него все простые числа в диапазоне 1..20. в цикле организуйте ввод чисел в диапазоне 1..20 и определите, простые они или нет. Выход из цикла – введенное значение, равное 99.

12. Описать множества R и L, содержащие русские и латинские буквы. В цикле вводите русские и латинские буквы и выводите соответствующее сообщение. Выход из цикла – введенная буква Z.

13. Описать множества М1(1,2,3) и М2(1,4,2,5). Получите результирующее множество М3=М1*М2. Определите, содержатся ли в М3 элементы 1 и 2.

14. Описать множества М1(1,2,3,4) и М2(3,4,1). Получите результирующее множество М3=М1-М2. Определите, содержится ли в М3 элемент 2.

15. Описать множества М1(1,2) и М2(5,6). Получите результирующее множество М3=М1+М2. Определите, содержатся ли в М3 элемент 7.

16. Описать множества М1(1,2,3) и М2(1,2,3,4).Сравнить эти два множества с использованием операции <=.

17. Описать множества М1(‘a’,’b’,’c’) и М2(‘a’,’c’).Сравнить эти два множества с использованием операции >=.

18. Описать множества М1(‘a’,’b’) и М2(‘b’,‘a’,’c’).Сравнить эти два множества на неравенство.

19. Описать множества М1(1,2) и М2(2,1).Сравнить эти два множества на равенство.

20. Описать множество Alf(‘a’..’я’). Ввести слово с клавиатуры и проверить, принадлежат ли все символы слова множеству Alf.