Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Общие вопросы по программированию, компьютерный форум
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2018, 10:00   #1
Konstantin_KS
Новичок
Джуниор
 
Регистрация: 29.09.2018
Сообщений: 1
Сообщение Листинг на прологе

Привет всем! Такой вопрос, покажется странным для тех кто давно знаком с прологом. В какой программе написан этот листинг, подскажите пожалуйста?
Код:
include "lr1.inc"

domains
 S=symbol
 N=integer

predicates
 nondeterm reka(S,N,N,N,S,S)

clauses
    reka("ob", 4070, 400, 2990, "altai", "more_karskoe").
    reka("enisei", 3487, 600, 2580, "vost_cain", "more_karskoe").
    reka("irtish", 4248, 323, 1643, "kitai", "ob").
    reka("lena", 4400, 488, 2490, "baikal_hrebet", "more_laptevih").
    reka("tom", 827, 35, 62, "kuznetskiy_alatau", "ob").
goal
% request 1. Rivers flowing into the Ob
%write("Rivers flowing into the Ob: "), nl, 
%reka(River, _, _, _, _, ob).
% request 2. The rivers, the source of which is in the foothills of Altai
%write("The rivers, the source of which is in the foothills of Altai: "), nl.
%reka(X, _, _, _, altai, _).
% request 3. The rivers that are shorter than the Ob
%write ("Rivers that are shorter than the Ob: "), nl,
%reka(River, Length, _, _, _, _), reka(ob, Length_Ob, _, _, _, _), Length < Length_Ob.
% request 4. All information about the Ob River
write ("All information about the Ob River: ") , nl,
reka(ob, Length,Sink,Pool,Source, Where_flows_into).
Konstantin_KS вне форума Ответить с цитированием
Старый 29.09.2018, 10:22   #2
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Это Visual Prolog 5.2:
ob.PNG
С минимальными переделками пойдёт и под Turbo Prolog
Black Fregat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В прологе Анастас* Помощь студентам 0 20.12.2017 14:16
задачьки на прологе Anna) Помощь студентам 0 15.05.2012 20:49
Cамый краткий листинг - самый подробный листинг. katia2011 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 13.04.2011 19:10
программки на прологе qweerity Помощь студентам 0 12.04.2011 19:01
Задача на прологе Fenixbo Помощь студентам 6 22.01.2011 00:23