8.5.1998 Пт
Lakes Land Diamond World
Відправлення: 0:25 9.5.1998 Пт Прибуття: 3:25 9.5.1998 Пт
Diamond World Beatiful
Відправлення: 17:20 9.5.1998 Пт Прибуття: 19:20 9.5.1998 Пт
ціна: 165 - 195
Tropic Port Oil City
Відправлення: 12:0 8.5.1998 Пт Прибуття: 4:40 9.5.1998 Пт
Oil City Beatiful
Відправлення: 12:0 9.5.1998 Пт Прибуття: 16:10 10.5.1998 Пт
ціна: 75 - 105
3. Зменшення числа пересадок
Початковий місто ... Tropic Port
Кінцевий місто ... Beatiful
Дата відправлення:
Дата ... 8.5.1998 Пт
Час ... 0:0
Максимальний час шляху (доба): 3
Максимальна вартість ... 200
Максимальне число пересадок ... 2
Тип перевезення (авіа, ж.д., авто, водн.) ...
Допустимі класи 123456 ...
Tropic Port Oil City
Відправлення: 12:0 8.5.1998 Пт Прибуття: 4:40 9.5.1998 Пт
Oil City Beatiful
Відправлення: 12:0 9.5.1998 Пт Прибуття: 16:10 10.5.1998 Пт
ціна: 75 - 105
4. Нереальні умови
Початковий місто ... Tropic Port
Кінцевий місто ... Beatiful
Дата відправлення:
Дата ... 8.5.1998 Пт
Час ... 0:0
Максимальний час шляху (доба): 3
Максимальна вартість ... 200
Максимальне число пересадок ... 1
Тип перевезення (авіа, ж.д., авто, водн.) ...
Допустимі класи 123456 ...
За даних умов дістатися не можна
7. Аналіз результатів
1. & nbsp; Час шляху залежить від дня оправления. p> 2. Унаслідок очікування рейсу можна з меншим числом пересадок дістатися пізніше, ніж з великим
3. Дорожче - не означає швидше
4. Для нормальної транспортної системи потрібно якомога більше великих транспортних вузлів
8. Література
9. Додаток
Unit Date;
interface
Var DTErr: boolean;
Type Dat = record
day: 1 .. 31;
month: 1 .. 12;
year: integer;
dweek: 0 .. 6;
time: word;
end;
Const EWeek: array [0 .. 6] of string [2] = ('Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa', 'Sa');
Const RWeek: array [0 .. 6] of string [2] = ('Я', ', в','' а ','-в ',' РЏв ','' РЋ', ', б');
procedure newdat (a: dat; delay: word; var b: dat);
procedure writedat (b: dat);
Function DayDiffer (A, B: dat): Integer;
Function STime (st: string): word;
Function dweek (a: dat): byte;
Procedure DTInput (var d: dat);
Procedure SDate (St: string; var a: dat);
Implementation
...
