Алгоритмические языки и программирование. Игошина Л.В. - 56 стр.

        Tdate=Record
              Day:1..31;
              Month:1..12;
              Year:1000..2000;
              End;
   Const Date:Tdate=(day:25;month:10;year:1999);
   2) Type
         Tkoord=record
              Xk,Ykreal;
                 end;
         Tmas=array[1..3] of Tkoord;
   Const Maskoord:Tmas=((Xk:0.0; Yk:0.0),
                             Xk:1.5; Yk:2.5),
                             Xk:3.0; Yk:4.5));


                    15.1 Работа с массивом из записей

                         Лабораторная работа №7

   Цель работы:
   1. Научиться описывать записи с заданной структурой
   2. Освоить приемы ввода данных по полям записи

                                Типовой пример

   Дан список, содержащий N записей (N≤100) следующей структуры:

№ рейса        Пункт         Пункт        День     Время         Цена
               отправления   назначения   недели   отправления   билета
                                                   Час Мин
5          15 символов 15 симв.         1..7       0..23 0..59   Real
символов
   1) Ввести заданый список с экрана в массив записей Spis.
   2) Ввести искомый номер рейса - Isk_nom.
   3) Найти в списке рейс с заданным номером.
   4) Вывести информацию о найденном рейсе на экран.



          Текст программы

   Uses crt;