1. Всем пользователям необходимо проверить работоспособность своего электронного почтового адреса. Для этого на, указанный в вашем профиле электронный адрес, в период с 14 по 18 июня, отправлено письмо. Вам необходимо проверить свою почту, возможно папку "спам". Если там есть письмо от нас, то можете не беспокоиться, в противном случае необходимо либо изменить адрес электронной почты в настройках профиля , либо если у вас электронная почта от компании "Интерсвязь" (@is74.ru) вы им долго не пользовались и хотите им пользоваться, позвоните в СТП по телефону 247-9-555 для активации вашего адреса электронной почты.
    Скрыть объявление

Нужна помощь в Visual Prolog, расписать листинг в коментариях что данная команда(строка) делает, реб

Тема в разделе "Точные науки", создана пользователем deadrunner, 28 ноя 2014.

  1. deadrunner

    deadrunner

    Репутация:
    543
    deadrunner, 28 ноя 2014
    %раздел доменов


    name = string %название судна
    type = string %тип (сухогруз, танкер, паром и т.д.)
    port = string %порт приписки
    vodoiz = integer %водоизмещение
    max_v = integer %максимальная скорость (в узлах)
    tech_har = tech_har(vodoiz, max_v) %технические характеристики (структурированный домен)
    kolvo_pers = integer %количество обслуживающего персонала (чел);
    ocean = string %местонахождение в данный момент


    predicates %Описание предикатов


    nondeterm ship (name, type, port, tech_har, kolvo_pers, ocean) %предикат, содержащий сведения о морском судне
    nondeterm ship_name


    goal %раздел целей


    write("По названию судна напечатать его тип и местонахождения в данный момент"),
    ship_name, readchar(_).


    clauses %раздел предложений


    %набор фактов (около 20), содержащий данные сведения
    ship("Капитан Рокотов", "сухогруз", "Абакан", tech_har(50, 34), 50, "Тихий").
    ship("Капитан Сухов", "сухогруз", "Абакан", tech_har(70, 23), 20, "Тихий").
    ship("Капитан Перов", "ледокол", "Владивосток", tech_har(100, 34), 14, "Атлантический").
    ship("Капитан Акимов", "контейнеровоз", "Абакан", tech_har(70, 57), 65, "Индийский").
    ship("Николай Гоголь", "пассажирский", "Санкт-Петербург", tech_har(95, 36), 40, "Атлантический").
    ship("Ермак", "ледокол", "Владивосток", tech_har(35, 40), 30, "Северный Ледовитый").
    ship("Ленин", "ледокол", "Абакан", tech_har(67, 32), 20, "Тихий").
    ship("Комсомол", "танкер", "Санкт-Петербург", tech_har(45, 34), 40, "Атлантический").
    ship("20 съезд", "сухогруз", "Владивосток", tech_har(38, 34), 20, "Атлантический").
    ship("Энгельс", "паром", "Находка", tech_har(80, 67), 30, "Тихий").
    ship("Белый бриз", "сухогруз", "Находка", tech_har(90, 45), 30, "Атлантический").
    ship("Украина", "танкер", "Находка", tech_har(40, 48), 40, "Атлантический").
    ship("Норильск", "ледокол", "Владивосток", tech_har(57, 38), 50, "Тихий").
    ship("Лейтенант Шмидт", "сухогруз", "Находка", tech_har(59, 34), 50, "Атлантический").
    ship("Лев Толстой", "танкер", "Владивосток", tech_har(69, 34), 45, "Индийский").
    ship("Николай Седов", "ледокол", "Владивосток", tech_har(48, 26), 60, "Атлантический").
    ship("Родина", "паром", "Севастополь", tech_har(79, 56), 50, "Тихий").
    ship("Радуга", "паром", "Севастополь", tech_har(45, 60), 30, "Атлантический").
    ship("Московия", "пассажирский", "Севастополь", tech_har(100, 50), 50, "Тихий").


    %по названию судна напечатать его тип и местонахождения в данный момент;
    ship_name:-
    write("\nНазвание судна: "), readln(X),
    ship(X, Y, _, _, _, C), \ Что означает это???
    write("Тип: ", Y, ". \nМестонахождение: ", C, "\n").
     
    #1
Загрузка...