Структуры данных и алгоритмы
Категория реферата: Рефераты по математике
Теги реферата: контрольная 2, древний реферат
Добавил(а) на сайт: Агафоклия.
Предыдущая страница реферата | 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 | Следующая страница реферата