Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 70 стр.

те текст программы и выведите на экран информацию, когда
неуспевающих студентов нет.
     2. В задаче 2 (о машинах) настоящего описания дополни-
те описание типа полем цвет (color) и выведите на экран ин-
формацию о машинах красного цвета, выпущенных за по-
следние семь лет.
     3. Опишите комбинированный тип для определения сле-
дующего понятия:
     a) цена в рублях и копейках;
     b) время в часах, минутах и секундах;
     c) дата (число, месяц, год);
     d) адрес (город, улица, дом, квартира);
     e) семинар (предмет, преподаватель, номер группы,
день недели, часы занятий, аудитория);
     f) бланк требования на книгу (сведения о книге: шифр,
автор, название;
     g) сведения о читателе: номер читательского билета,
фамилия, дата заказа);
     h) экзаменационная ведомость (предмет, номер группы,
дата экзамена, 25 строчек с полями: фамилия студента, номер
его зачетной книжки, экзаменационная оценка).
     4. Используя следующий фрагмент программы, найдите
самую длинную реку из списка и напечатайте ее название.
     Type
     строка = Array [1 .. 15] Of Сhar;
     река = Record
     название: строка;
     длина: Integer end;
     список = Array [1 .. 30] Of река;
     5. Пусть дан фрагмент программы. Используя оператор
присоединения, присвойте переменной Адр1 значение, соот-
ветствующее адресу: Воронеж, ул. Остужева, д. 1, кв. 70.
Кроме того, переменной Адр2 присвойте такое же значение,
заменив в нем номер квартиры на 99.
     Type
     строка = Array [1 .. 15] Of Char;
     адрес = Record
     город, улица: строка;
                            70