Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

    then {Добавить к маршруту проеханный участок.  Вызвать процедуру поиска маршрута

  от текущего города до конечного с новыми значениями времени}

           Until {текущий город проезжали} or {время исчерпано} or  {приехали} or {конец рейса};

           If  {приехали} and {время не превышено} and {минимальная цена рейса не выше

допустимой} then {Добавить построенный маршрут в мно-во ответов на нужное место}

         end;

      end;

     {Перейти к следующему рейсу}

   end;

end

Текст программы на языке Pascal

uses Crt, Date, Graph;

Const MaxCity=100; MClass=6;

Type

  CityCode=1..maxcity;          {Внутрений код города}

  Week=0..10079;     {Тип время в минутак с 0:00 понедельника}

  DayTable=^IDayTable; {Таблица отправлений от начальной станции}

  IDayTable=record

    Time:Week;

    Next:DayTable;

  end;

  WayKind=1..4;    {Тип пути (аэро, море, ж.д, авто)}

  WayClass=1..MClass;   {Класс или тип перевозки}

  Cities=array[CityCode] of    {Названия и координаты городов}

  record

Рекомендуем скачать другие рефераты по теме: скачать доклад бесплатно, вирусы реферат.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата