p>
if k = 0 then write ('За даних умов дістатися не можна ') else writeln (' Всього ', k,' маршшрутов ');
end;
Begin
List: = Load (nil, 'trafic', city);
graphout (city);
repeat until keypressed;
closegraph;
Input (pattern, a);
new (lanswer);
lanswer ^. next: = nil;
Search (List, pattern, nil);
outres (Lanswer ^. next, a);
end.
6. Вибір та обгрунтування набору тестів
В якості транспортної системи балу була взята система, що складається з 23 міст, з'єднаних 19 прямими і таким же числом зворотних рейсами. Назва міст і перевізників вигадані. Рейс були розроблені так, що є кілька великих транспортних розв'язок: Palace of Dream, Diamond World, Golden River, Seaside City; і кілька В«видаленихВ» міст: Far Star City, Oil City, North Star City. p> Різні рейси відправляються від 3 до 18 разів на тиждень.
1. Загальний тест
Початковий місто ... Tropic Port
Кінцевий місто ... Beatiful
Дата відправлення:
Дата ... 8.5.1998 Пт
Час ... 0:0
Максимальний час шляху (доба): 3
Максимальна вартість ... 200
Максимальне число пересадок ... 3
Тип перевезення (авіа, ж.д., авто, водн.) ...
Допустимі класи 123456 ...
Tropic Port Palace Of The Dream
Відправлення: 14:29 8.5.1998 Пт Прибуття: 19:14 8.5.1998 Пт
Palace Of The Dream Diamond World
Відправлення: 2:15 9.5.1998 Пт Прибуття: 5:15 9.5.1998 Пт
Diamond World Beatiful
Відправлення: 17:20 9.5.1998 Пт Прибуття: 19:20 9.5.1998 Пт
ціна: 195 - 250
Tropic Port Lakes Land
Відправлення: 14:29 8.5.1998 Пт Прибуття: 16:29 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
2. Тест з В«урізанням бюджетуВ»
Початковий місто ... Tropic Port
Кінцевий місто ... Beatiful
Дата відправлення:
Дата ... 8.5.1998 Пт
Час ... 0:0
Максимальний час шляху (доба): 3
Максимальна вартість ... 180
Максимальне число пересадок ... 3
Тип перевезення (авіа, ж.д., авто, водн.) ...
Допустимі класи 123456 ...
Tropic Port Lakes Land
Відправлення: 14:29 8.5.1998 Пт Прибуття: 16:29 ...