Пролог. Авиакомпания(1, "Барнаул", "Москва", (8 1060), (1 1060), 1)
 Скачать 178.33 Kb.
|
|
1 лаб.  =============================================================================== авиакомпания(1, "Барнаул", "Москва", (8 + 10/60), (1 + 10/60), 1). авиакомпания(2, "Барнаул", "Новосибирск", (9 + 20/60), (2 + 20/60), 2). авиакомпания(3, "Барнаул", "Красноярк", (10 + 30/60), (3 + 30/60), 3). авиакомпания(4, "Барнаул", "Краснодар", (11 + 40/60), (4 + 40/60), 4). авиакомпания(5, "Барнаул", "Оренбург", (12 + 50/60), (5 + 50/60), 5). авиакомпания(6, "Барнаул", "Санкт-Петербург", (13 + 60/60), (6 + 60/60), 6). авиакомпания(7, "Барнаул", "Киров", (14 + 10/60), (7 + 10/60), 7). авиакомпания(8, "Барнаул", "Нижний Новгород", (15 + 20/60), (1 + 20/60), 1). авиакомпания(9, "Барнаул", "Киров", (16 + 30/60), (2 + 30/60), 2). авиакомпания(10, "Барнаул", "Санкт-Петербург", (17 + 40/60), (3 + 40/60), 3). авиакомпания(11, "Барнаул", "Оренбург", (18 + 50/60), (4 + 50/60), 4). авиакомпания(12, "Барнаул", "Краснодар", (19 + 60/60), (5 + 60/60), 5). авиакомпания(13, "Барнаул", "Красноярк", (20 + 10/60), (6 + 10/60), 6). авиакомпания(14, "Барнаул", "Новосибирск", (21 + 20/60), (7 + 20/60), 7). авиакомпания(15, "Барнаул", "Москва", (22 + 30/60), (8 + 30/60), 1). авиакомпания(15, "Москва", "Токио", (15 + 20/60), (1 + 20/60), 1). авиакомпания(17, "Барнаул", "Киров", (16 + 30/60), (2 + 30/60), 2). авиакомпания(18, "Барнаул", "Санкт-Петербург", (17 + 40/60), (3 + 40/60), 3). авиакомпания(18, "Санкт-Петербург", "Сеул", (23 + 20/60), (4 + 50/60), 3). авиакомпания(20, "Барнаул", "Краснодар", (19 + 60/60), (5 + 60/60), 5). авиакомпания(20, "Краснодар", "Сочи", (20 + 10/60), (2 + 10/60), 6). авиакомпания(20, "Сочи", "Пекин", (21 + 20/60), (8 + 20/60), 7). авиакомпания(23, "Барнаул", "Москва", (22 + 30/60), (8 + 30/60), 1). =============================================================================== %1. Вывести список всех прямых рейсов в указанный город прибытия на указанный день недели %write("Введите день недели: "), read(Day), %write("Введите город: "), read(Arrival), Day = 1, Arrival = "Москва", findall([N, Arrival], (авиакомпания(N, _, Arrival, _, _, Day)), R), write(R). =============================================================================== %2. Вывести список всех возможных городов прибытия из указанного города с одной пересадкой, необходимо чтобы время ожидания пассажиров в аэропорту не превышало 5 часов. =============================================================================== %3. Вывести список всех городов отправления, из которых можно прилететь в указанный город с одной пересадкой, необходимо, чтобы время ожидания пассажиров в аэропорту не превышало 4 часов. =============================================================================== 2 лаб.  List = ["первая", "вторая2", "третья3", "четвертная", "первая + вторая", "вторая * 3", "конец"]. |