ЗАДАНИЯ
1. Подключить к компьютеру Вашу «флешку».
2. Загрузить систему программирования Турбо Паскаль.
3. Составить и набрать в окне редактора программу, формирующую массив, элементами которого являются записи типа, указанного в варианте.
- Названия полям записи задать самостоятельно.
- Размерность массива задать по числу записей в таблице варианта.
- После запуска вывести на экран все записи из массива.
- Ниже выводить записи, удовлетворяющие условиям, указанным в варианте.
- При работе с записями использовать оператор with.
4. Запустить программу на исполнение и продемонстрировать результат ее работы преподавателю.
5. Сохранить программу на «флешке» в каталоге Pascal под именем prog17.
6. Выйти из системы ТР.
Таблицы для вариантов
| №1.«Русские монархи Романовы » | №2.«Известные математики » | ||||
| Имя | Годы правления | Фамилия | Годы жизни | ||
| Петр 1 | Декарт | ||||
| Екатерина 1 | Лейбниц | ||||
| Петр2 | Эйлер | ||||
| Анна | Ламберт | ||||
| Иван 6 | Лагранж | ||||
| Елизавета | Лаплас | ||||
| Петр 3 | Лежандр | ||||
| Екатерина 2 | Фурье | ||||
| Павел 1 | Гаусс |
| №3. «Самые разрушительные землетрясения мира» | |||
| Страна | Год | Месяц | Число жертв в тыс. |
| Персия | Декабрь | ||
| Персия | Март | ||
| Сирия | Август | ||
| Китай | Январь | ||
| Китай | Декабрь | ||
| Китай | Май | ||
| Китай | Июль | ||
| Индонезия | Декабрь | ||
| Китай | Февраль | ||
| Гаити | Январь |
| №4. «Самые известные озера мира» | |||
| Название озера | Площадь (в тыч. кв.км) | Наибольшая глубина (в м) | Часть света |
| Каспийское море | 394,3 | Евразия | |
| Верхнее озеро | 82,4 | Северная Америка | |
| Виктория | 68,0 | Африка | |
| Аральское море | 66,5 | Азия | |
| Гурон | 59,6 | Северная Америка | |
| Мичиган | 58,0 | Северная Америка | |
| Танганьика | 32,9 | Африка | |
| Байкал | 31,5 | Азия | |
| Ньяса | 30,8 | Африка | |
| Онтарио | 19,5 | Северная Америка | |
| Ладожское | 17,7 | Европа | |
| Татикака | 8,3 | Южная Америка |
| №5. «Известные ученые Европы» | ||||
| Фамилия | Страна | Наука | Годы жизни | |
| Галилей | Англия | Астрономия | ||
| Бойль | Франция | Философия | ||
| Паскаль | Франция | Философия | ||
| Гюйгенс | Нидерланды | Математика | ||
| Гальвани | Италия | Физиология | ||
| Лаплас | Франция | Математика | ||
| Ампер | Франция | Математика | ||
| Ленц | Россия | Математика | ||
| Максвелл | Англия | Математика |
| №6. «Характеристики копировальных аппаратов» | ||||||
| Марка | Номер | Число копий в | Формат А | |||
| минуту | месяц | минимум | максимум | |||
| Xerox | ||||||
| Xerox | ||||||
| Xerox | ||||||
| Cannon | FC-330 | |||||
| Cannon | NP-1215 | |||||
| Cannon | NP-2120 | |||||
| Ricon | M-50 | |||||
| Ricon | FT-3313 | |||||
| №7. Русские поэты | №8. Музыкальные звуки | |||||
| Фамилия | Годы жизни | Название ноты | Частота ноты в октавах | |||
| большая | малая | |||||
| Карамзин | си | |||||
| Крылов | ля# | |||||
| Жуковский | ля | |||||
| Вяземский | cоль# | |||||
| Грибоедов | cоль | |||||
| Пушкин | фа# | |||||
| Тютчев | фа | |||||
| Лермонтов | ми | |||||
| Блок | ре# | |||||
| Гумилев | ре | |||||
| Пастернак | до# | |||||
| Маяковский | до |
| №9. Крупные реки мира | №10. Крупные города мира | |||||
| Название реки | Длина реки в км | Средний расход в м3/сек | Название города | Страна | Численность населения | |
| Амазонка | Шанкай | Китай | ||||
| Нил | Пекин | Китай | ||||
| Янцзы | Мехико | Мексика | ||||
| Хуанхе | Бангкок | Таиланд | ||||
| Мегонг | Тяньцзынь | Китай | ||||
| Лена | Гуаньджоу | Китай | ||||
| Иртыш | Токио | Япония | ||||
| Нигер | Карачи | Пакистан | ||||
| Обь | Мумбаи | Индия | ||||
| Волга | Дели | Индия | ||||
| Юкон | Москва | Россия | ||||
| Амур | Сан-Паулу | Бразилия |
| №11.Знаменитые полководцы | №12. Самые высокие горы | ||||||
| Фамилия | Рей-тинг | Годы жизни | Горы | Вершина | Высота в м | ||
| Наполеон | Гималаи | Джомолунгма | |||||
| Суворов | Памир | Пик комм-ма | |||||
| Луи Даву | Тянь-Шань | Пик победы | |||||
| Невский | Памир | Пик Ленина | |||||
| Жуков | Памир | Пик Корженевский | |||||
| Багратион | Тянь-Шань | Хан - Тенгри | |||||
| Хмельниц-кий | Анды | Аконкагуа | |||||
| Кутузов | Кордильеры | Мак - Кингли | |||||
| Чингисхан | Кавказ | Эльбрус | |||||
| Ней | Кавказ | Дыхкау | |||||
| Донской | Сентинел | Винсон |
| №13. Самые высокие люди мира | №14. Солнечная система | ||||||
| Фамилия | Рост в см | Годы Жизни | Планета | Диаметр в км | g в м/сек2 | ||
| Анна Свон | Юпитер | 24,8 | |||||
| Ангус Аскил | Сатурн | 10,4 | |||||
| Иван Махнов | Уран | 8,9 | |||||
| Элла Эвинг | Нептун | 11,2 | |||||
| Чан Ву Го | Земля | 9,8 | |||||
| Вильям Брэдли | Венера | 8,9 | |||||
| Эдвард Бопр | Марс | 3,7 | |||||
| Роберт Вадлоу | Мерку-рий | 3,7 | |||||
| Джохан Свардаулинг | Плутон | 0,7 | |||||
| Эл Томейни | Луна | З474 | 1,6 | ||||
| Том Ротерд | Европа | 1,3 | |||||
| Леонид Стаднюк | Тритон | 0,8 |
| №15. Рейтинг ОС мобильных телефонов в августе 2013 года | №16.Влияние антивирусов на время загрузки ОС Windows | |||||
| Название ОС | Запросы Яндекс | Упом-я Яндекс | Название антивируса | Время загрузки в сек | Задержка в сек | |
| Android | Без антивируса | 30,94 | ||||
| Mobile | Avira | 33,08 | 2,14 | |||
| Apple iOS | Avast | 34,03 | 3,09 | |||
| Symbain OS | Emsisoft | 34,78 | 3,84 | |||
| Java Me | Trend Micro | 35,30 | 4,36 | |||
| BlackBeny | Microsoft | 35,82 | 4,88 | |||
| Bada OS | Comodo | 40,64 | 9,70 | |||
| Palm OS | Eset | 40,79 | 9,85 | |||
| Other OS | Kaspersky | 40,99 | 10,05 | |||
| Meego OS | Panda | 41,51 | 10,57 | |||
| OpenMoko | Norton | 43,21 | 12,27 | |||
| Maeto OS | Dr.Web | 43,22 | 12,28 |
| №17. Рейтинг языков программирования | |||
| Название языка | Процент используемости в 2011году | Рейтинг на июль | |
| 2010 года | 2011 года | ||
| Java | 18,6 | ||
| С | 16,3 | ||
| С++ | 9,8 | ||
| С# | 6,8 | ||
| Visual Basic | 4,7 | ||
| Pyhton | 3,9 | ||
| Lisp | 0,9 | ||
| Pascal | 0,7 | ||
| Ada | 0,6 | ||
| Prolog | 0,5 |
| №18. Успеваемость студентов в группе | |||||||
| Фамилия | Имя | Рейтинг за 1 экзамен в % | Рейтинг за 2 экзамен в % | Рейтинг за 3 экзамен в % | |||
| Иванов | Иван | ||||||
| Петров | Петр | ||||||
| Сидоров | Сидор | ||||||
| Мишин | Михаил | ||||||
| Васин | Василий | ||||||
| Андреев | Андрей | ||||||
| Захаров | Захар | ||||||
| Тарасов | Тарас | ||||||
| Дмитриев | Дмитрий | ||||||
| Никитин | Никита | ||||||
| Менее 61% | неудовлетворительно | ||||||
| От 61% до 75% | удовлетворительно | ||||||
| От 76% до 85% | хорошо | ||||||
| От 86% до 100% | отлично | ||||||
| №19. Аукцион машин | ||||
| Марка машины | Цвет | Год выпуска | Пробег по России в км | Страна изготовитель |
| Lada | Белый | Россия | ||
| Carina | Черный | Япония | ||
| Coldina | Белый | Япония | ||
| Cudzuki | Белый | Япония | ||
| Changan | Черный | Китай | ||
| Chery | Красный | Китай | ||
| Hyundai | Синий | Корея | ||
| Optima | Черный | Корея | ||
| Audi | Белый | Германия | ||
| BMW | Красный | Германия | ||
| Opel | Черный | Германия | ||
| Citroen | Красный | Франция | ||
| Peugeot | Синий | Франция |
| №20. Телефонный справочник | ||||
| Фамилию абонента | Улица | Номер дома | Номер кварт. | Номер телефона |
| Иванов | Агеева | |||
| Петров | Пушкина | |||
| Сидоров | Ленина | |||
| Мишин | Пушкина | |||
| Васин | Ушакова | |||
| Андреев | Ушакова | |||
| Захаров | Ленина | |||
| Тарасов | Ленина | |||
| Дмитриев | Агеева | |||
| Никитин | Францева | |||
| Петин | Францева | |||
| Ромин | Агеева | |||
| Борисов | Ленина |
| №21. Крупнейшие Российские Интернет – магазины в 2015 году | ||||
| № записи | Сайт Интернет - магазина | Оборот в млдр. руб | Количество заказов в млн. руб | Средняя сумма чека в тыс. руб |
| Ulmart.ru (гипермаркет) | 36,8 | 7,3 | 5,0 | |
| Wildberries.ru (одежда, обувь и аксессуары) | 32,0 | 17,0 | 1,9 | |
| Citilink.ru (гипермаркет) | 24,8 | 2,8 | 8,7 | |
| Mvideo.ru (электроника и техника) | 20,4 | 1,6 | 13,0 | |
| Exist.ru (автозапчасти, автоэлектроника, шины и диски) | 17,3 | 6,7 | 2,7 | |
| Eldorado.ru (электроника и техника) | 16,9 | 2,1 | 8,1 | |
| Svyaznoy.ru (электроника и техника) | 16,7 | 1,7 | 9,7 | |
| KupiVip.ru (одежда, обувь и аксессуары) | 16,5 | 1,8 | 9,4 | |
| Оzon.ru (гипермаркет) | 15,2 | 5,2 | 2,9 | |
| Komus.ru (офисные товары) | 12,9 | 1,3 | 10,3 |
| №22. Посещаемость Российских Интернет – магазинов в 2015 году | ||||
| № записи | Сайт Интернет - магазина | Посещаемость в месяц в млн.чел | Посещаемость в сутки в тыс.чел | Доля посе-телей, положивших товар в корзину в % |
| AliExpress.com | 23,8 | |||
| OZON.ru | 9,2 | |||
| Ebay.com | 7,4 | |||
| MVideo.ru | 7,3 | |||
| Eldorado.ru | 6,2 | |||
| Wildberries.ru | 6,1 | |||
| Ulmart.ru | 6,1 | |||
| DNS-shop.ru | 6,0 | |||
| Lamoda.ru | 5,5 | |||
| Svyaznoy.ru | 5,4 |
Варианты
I
Запись типа Monarx с четырьмя полями, содержащими имя монарха, год начала его правления, год окончания, количество лет правления. Значения для трех первых полей взять из табл. №1. Количество лет правления числить и поместить в четвертое поле. Вывести записи с монархами, у которых годы начала и окончания правления являются четными числами. Ниже вывести среднее число лет правления монархов Романовых.
II
Запись типа Matem с четырьмя полями, содержащими имя математика, год его рождения, последний год жизни, количество прожитых лет. Значения для трех первых полей взять из табл. №2. Количество прожитых лет вычислить и поместить в четвертое поле. Запросить у пользователя число Х. Вывести записи с математиками, которые прожили больше Х лет. Ниже вывести среднее число лет жизни указанных математиков.
III
Запись типа Tras с четырьмя полями, содержащими страну, год, месяц, число жертв землетрясения. Значения взять из табл.№3. Вывести записи с землетрясениями, которые произошли в указанной стране, запрошенной у пользователя. Ниже вывести суммарное число жертв землетрясений в указанной стране.
IV
Запись типа Ozero с четырьмя полями, содержащими название озера, его площадь, глубину и часть света его расположения. Значения взять из табл.№4. Вывести записи с озерами, находящимися в указанной части света, запрошенной у пользователя. Ниже вывести записи с озерами, площади которых находятся в диапазоне, указанном пользователем. Ниже вывести среднюю площадь озер из этого диапазона.
V
Запись типа Ychen с пятью полями, содержащими фамилию ученого, страну проживания, науку, год рождения и последний год жизни. Значения взять из табл.№5. Вывести записи с учеными, проживающими в указанной стране и занимающимися заданной наукой (страну и науку запросить у пользователя). Ниже вывести записи ученых, родившихся в нечетном году.
VI
Запись типа Copir с четырьмя полями, содержащими марку аппарата, его номер, число копий в минуту, число копий в месяц. Значения взять из первых четырех столбцов табл.№6. Вывести записи аппаратов, у которых число копий в месяц находится в диапазоне, указанном пользователем. Ниже вывести среднее число копий в минуту, которые делают ксероксы марки, указанной пользователем.
VII
Запись типа Poet с четырьмя полями, содержащими фамилию поэта, его год рождения, последний год жизни, число прожитых лет. Значения для трех первых полей взять из табл. №7. Количество лет жизни вычислить и поместить в четвертое поле. Вывести записи поэтов, которые родились после поэта (указанного пользователем), но, до другого поэта (указанного пользователем). Ниже вывести записи поэтов, которые жили только в одном веке, указанном пользователем.
VIII
Запись типа Noti с четырьмя полями, содержащими название ноты, частоту в большой октаве, частоту в малой октаве, среднюю частоту. Значения для трех первых полей взять из табл. №8. Среднюю частоту ноты вычислить и поместить в четвертое поле. Вывести записи нот, у которых частоты в большой октаве находятся в диапазоне, указанном пользователем. Ниже вывести записи нот, у которых частота в малой октаве ровно в 2 раза больше, чем в большой.
IX
Запись типа River с тремя полями, содержащими название реки, ее длину, средний расход воды. Значения для полей взять из табл. №9. Вывести записи рек, у которых расход воды находится в диапазоне, указанном пользователем. Ниже вывести записи рек, длина которых больше длины реки, указанной пользователем, но больше длины другой реки, указанной пользователем. Определить, какая река в таблице самая длинная. Вывести ее название и длину.
X
Запись типа Town с тремя полями, содержащими название города, страну, численность населения. Значения для полей взять из табл. №10. Вывести записи городов, которые находятся в стране, указанной пользователем. И указать их количество. Ниже вычислить и указать среднюю численность населения в городах таблицы. Вычислить и вывести, во сколько раз население города, указанного пользователем больше или меньше населения другого города, указанного пользователем.
XI
Запись типа Polk с четырьмя полями, содержащими имя полководца, его рейтинг в сети, год рождения и последний год жизни. Значения для полей взять из табл. №11. Вывести записи полководцев, живших в веке, указанном пользователем. Ниже вывести записи полководцев, проживших больше числа лет, указанных пользователем. Указать, во сколько раз рейтинг полководца, указанного пользователем, больше или меньше раз рейтинга другого полководца, указанного пользователем.
XII
Запись типа Gori с тремя полями, содержащими название горного массива, название самой высокой горы в нем, ее высоту. Значения для полей взять из табл. №12. Вывести записи с горным массивом, указанном пользователем, и вычислить их количество. Вычислить и вывести среднюю высоту вершин самых высоких гор в этом массиве. Ниже вывести записи горных массивов, высоты гор которых находятся в диапазоне, указанном пользователем.
XIII
Запись типа Pеople с четырьмя полями, содержащими имя высокого человека, его рост, год рождения, последний год жизни. Значения для полей взять из табл. №13. Вывести записи с людьми, рост которых находится в диапазоне, указанном пользователем и указать их количество. Вычислить и вывести, во сколько раз рост человека, указанного пользователем, больше или меньше роста другого человека, указанного пользователем. Вычислить и вывести, кто из «великанов» прожил большее число лет, и указать это число.
ХIV
Запись типа Sun_sys с четырьмя полями, содержащими название планеты, ее диаметр, ускорение свободного падения на ней, отношение ускорения к диаметру. Значения для первых трех полей взять из табл. №14, значения для четвертого поля вычислить и поместить в него. Вывести записи с планетами, диаметр которых больше диаметра планеты, указанной пользователем, но меньше диаметра другой планеты, указанной пользователем. Вычислить, во сколько раз ускорение на планете, заданной пользователем, больше или меньше ускорения на другой планете, указанной пользователем.
XV
Запись типа OP_sys с четырьмя полями, содержащими название операционной системы мобильного телефона, число запросов на нее в Яндексе, число упоминаний про нее в Яндексе, отношение числа запросов к числу упоминаний. Значения для первых трех полей взять из табл. №15, значения для четвертого поля вычислить и поместить в него. Вывести записи с ОС, в которых число упоминаний в Яндексе меньше числа k, указанного пользователем. Вычислить, для какой ОС отношение числа запросов к числу упоминаний является наименьшим.
XVI
Запись типа Anti_virus с четырьмя полями, содержащими название антивируса, время загрузки Window с антивирусом, абсолютная задержка загрузки с антивирусом, относительная задержка загрузки с антивирусом. Значения для первых трех полей взять из табл. №16, значения для четвертого поля вычислить как отношение времени загрузки Window с антивирусом ко времени загрузки Window без антивируса. Вывести те записи, в которых время загрузки с антивирусом больше времени указанного пользователем антивируса, но меньше времени указанного пользователем другого антивируса. Вычислить, для какого антивируса относительная задержка загрузки с антивирусом будет наименьшей.
XVII
Запись типа Progr с четырьмя полями, содержащими название языка программирования, процент его используемости, рейтинг в 2010 году, рейтинг в 2011 году. Значения для полей взять из табл. №17. Вывести записи с языками, у которых рейтинг за год не изменился, Далее вывести записи, в которых рейтинг языка понизился, далее – записи, в которых рейтинг языка повысился. Вычислить, у какого из языков программирования процент используемости – наибольший, а у какого - наименьший.
XVIII
Запись типа Scientists с шестью полями, содержащими фамилию ученых, страну их проживания, науку, которой они занимались, год рождения и последний год жизни, продолжительность жизни Значения для первых пяти полей взять из табл.№5, значения для шестого поля вычислить. Вывести записи с учеными, которые жили в стране, указанной пользователем. Далее вывести записи ученых, которые занимались наукой, указанной пользователем, а годы жизни которых пересекались. Вычислить ученого с наибольшей продолжительностью жизни.
XIX
Запись типа Lakes с четырьмя полями, содержащими название озера, его площадь, его глубину и часть света, в которой оно расположено. Значения взять из табл.№4. Вывести записи с озерами, не расположенными в части света, указанной пользователем. Определить, какое озеро самое глубокое, а какое самое мелкое и вывести эти записи. Определить, во сколько раз глубина самого глубокого озера больше глубины самого мелкого озера и вывести результат на экран.
XX
Запись типа Shaking с четырьмя полями, содержащими страну, год, месяц, число жертв землетрясения. Значения полей взять из табл.№3. Вывести записи с землетрясениями, которые произошли в зимние месяцы, их количество и количество жертв в зимние месяцы, затем вывести записи с землетрясениями, которые произошли в летние месяцы, их количество и количество жертв в летние месяцы. Выяснить, в какие месяцы – зимние или летние количество жертв больше.
XXI
Запись типа Student c 5 полями, содержащими фамилию студента, его имя, рейтинг за первый экзамен, рейтинг за второй экзамен, рейтинг за третий экзамен. Значения полей взять из табл.№18. Вывести на экран записи со студентами, сдавших экзамены на «хорошо» и «отлично» и их количество. Подсчитать средний балл за каждый экзамен и вывести на экран. Определить, за какой экзамен средний балл наибольший, за какой – наименьший
XXII
Запись типа Car с 5 полями, содержащими марку машину, ее цвет, год выпуска, пробег по России, страну производитель. Значения полей взять из табл.№19. Запросить у пользователя цвет машины и год выпуска. Вывести на экран записи с машинами указанного цвета и года выпуска, указать их количество. Запросить у пользователя страну изготовитель, вывести записи с этими машинами, указать их количество и определить машину с наименьшим и наибольшим пробегом из этих записей.
XXIII
Запись типа Spisok с 5 полями, содержащими фамилию абонента, улицу, номер его дома, номер квартиры, номер его телефона. Значения полей взять из табл.№20. Запросить у пользователя улицу. Вывести на экран записи абонентов, живущих на указанной улице в домах с четными номерами. Ниже вывести записи абонентов, у которых сумма номера дома и номера квартиры является нечетным числом. Вычислить, у кого из абонентов номер телефона – наибольший, рассматривая его как число, у какого - наименьший.
XXIV
Запись типа Shop с 5 полями, содержащими номер записи, сайт Интернет – магазина, оборот магазина, количество заказов, среднюю сумму чека. Значения полей взять из табл.№21. Вывести на экран записи, находящиеся между номерами, запрошенными у пользователя. Вычислить наибольшее и наименьшее количество заказов в данных магазинах и вывести записи с этими магазинами. Вычислить наибольшую и наименьшую среднюю сумму по чекам магазинов и вывести записи с этими магазинами. Вычислить и вывести общий оборот Интернет – магазинов.
XXIV
Запись типа Inter_Shop с 5 полями, содержащими номер записи, сайт Интернет – магазина, количество посетителей в месяц, количество посетителей в сутки, долю посетителей, положивших товар в корзину. Значения полей взять из табл.№22. Вывести записи магазинов, в которых доля пользователей будет больше, чем доля в магазине, указанном пользователем, но меньше, чем доля в другом магазине, указанном пользователем. Вывести магазин, в котором число посетителей в месяц является наибольшим, и магазин, в котором число посетителей в месяц является наименьшим. Вывести, во сколько раз наибольшее значение больше наименьшего.
Контрольные вопросы.
1. Что является темой и целью лабораторной работы?
2. Что называется типом данных?
3. Какие типы данных называются структурированными (сложными)?
4. Какие типы данных в Паскале относятся к структурированным?
5. Что называется массивом?
6. Что является недостатком этого способа организации данных?
7. Что называется записью?
8. Как называются компоненты записи?
9. Почему этот тип данных называется комбинированным?
10. Каков формат описания записи в разделе type?
11. Каков формат описания переменных типа запись в разделе var?
12. Каков формат описания полей записи?
13. Что называется составным именем поля? Где его можно использовать?
14. Каков формат описания оператора присоединения with?
15. Для чего он используется?
16. Для чего используются записи с вариантами?
17. Каков формат описание записей с вариантами?
18. Какова размерность массива из вашего варианта?
19. Что является элементами массива?
20. Сколько полей содержат записи в вашем варианте?
21. Являются ли эти записи вариативными?
22. Как получают значения поля?
Составитель Горностаева Т.Н. Работа составлена в 2017 году..