9. Записи

Опишите запись с именем типа Tovar, содержащую информацию о хранящемся на складе товаре: код товара (тип integer), наименование товара (тип string), цену (тип real). Переменную, определяющую массив записей, назовите Tov. Выбрать из массива запись с заданным кодом товара.

Опишите запись с именем типа Inf, содержащую информацию для школьной базы: личный номер ученика (тип integer), ФИО (тип string), год рождения (тип integer), адрес (тип string). Переменную, определяющую массив записей, назовите Baza. Tov. Выбрать из массива записи с заданным годом рождения.

Опишите запись с именем типа Planeta, содержащую информацию о планетах солнечной системы: номер планеты по удалению от Солнца (тип integer), название планеты (тип string), объем (тип real), диаметр (тип real), удаленность от Земли (тип real). Переменную, определяющую массив записей, назовите Systema. Tov. Выбрать из массива запись с заданным названием планеты.

Опишите запись с именем типа Sport, содержащую информацию о лучших спортивных достижениях школы по легкой атлетике: название вида (тип string), фамилия рекордсмена (тип string), дата установления рекорда (запись Dat, состоящая из полей Day, Month, Year). Переменную, определяющую массив записей, назовите Rec. Tov. Выбрать из массива записи с заданным годом установления рекорда.

Опишите запись с именем типа Geometr, содержащую информацию об оценках учеников класса по геометрии: ФИО (тип string), оценки за три месяца max по 10 оценок в месяц. Переменную, определяющую массив записей, назовите Dig. Tov. Выбрать из массива запись с заданной фамилией ученика.

Опишите запись с именем типа Rasp, содержащую информацию о движении электропоездов из вашего города: направление (тип string), время оправления электропоездов (тип real). Переменную, определяющую массив записей, назовите R. Выбрать из массива запись с заданным временем оправления электропоездов.

Опишите запись с именем типа Post, содержащую информацию о почтовой базе данных о подписчиках на газеты и журналы: ФИО (тип string), адрес (тип string), 10 с названиями газет и журналов. Переменную, определяющую массив записей, назовите G. Выбрать из массива запись с заданным индексом.

Опишите запись с именем типа Boln, содержащую информацию о больничной базе данных о стационарных больных: ФИО (тип string), возраст (тип integer), адрес (тип string), дату поступления (тип string), диагноз (тип string). Переменную, определяющую массив записей, назовите B. Выбрать из массива запись с заданным возрастом.

Опишите запись с именем типа Kniga, содержащую информацию о книгах в библиотеке: Ф.И.О. автора (тип string), название книги (тип string), год издания (тип integer), название издательства (тип string), число страниц (тип integer). Переменную, определяющую массив записей, назовите Bibl. Выбрать из массива запись с заданным годом издания.

Опишите запись с именем типа Avto, содержащую информацию об автомобилях в фирме по сдаче автомобилей на прокат: марка машины (тип string), номер (тип string), год выпуска (тип integer), пробег (тип integer). Переменную, определяющую массив записей, назовите Spisok. Выбрать из массива запись с заданным годом выпуска.