Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу географический справочник
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
mel mel вне форума
Member
 
Сообщений: 36
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.04.2007
По умолчанию 24.04.2007, 16:42

У вас на форуме есть вот эта программа, реализующая географический справочник. Помогите сделать так, чтобы Limit работал отдельно для стран, для рек, для озер. Очень надо.Помогите
Код:
DOMAINS 
nazv = String 
izmer= Integer
file=f 
DATABASE 
geogr(nazv,izmer)
PREDICATES 
nondeterm m(char) 
nondeterm menu 
output_i_n(izmer)
output_n_i(nazv)
CLAUSES 

geogr("Russia",500).
geogr("Tashkent",200).
geogr("Lena",600).
geogr("Irtish",750).
geogr("Ob",100).
geogr("Pol'sha",120).
geogr("Kama",170).

menu:-
write("1 - ishem izmer po nazv "),nl,
write("2 - ishem nazv po izmer "),nl,
write("3 - dobavlenie infi "),nl, 
write("4 - izmenenie punkta "),nl, 
write("5 - udalenie zapisi "),nl,
write("6 - vsy baza "),nl, 
write("7 - limit "),nl,
write("0 - vihod "),nl,
readchar©,
m©. 

m('1'):-
write("vvedi nazv "), nl, 
readln(Nazv),
output_n_i(Nazv),
menu.

m('2'):-
write("vvedi izmer "),nl,
readln(Izmer),
output_i_n(Izmer),
menu.

m('3'):-!, 
write("vvedi nazv "),nl,
readln(Nazv),
write("vvedi izmer "),nl,
readln(Izmer),
assert(geogr(Nazv,Izmer)), 
menu.

m('4'):-!,
write("vvedi nazv "),nl,
readln(Nazv),
write("vvedi nov izmer "),nl,
readln(Izmer),
retract(geogr(Nazv,_)), 
assert(geogr(Nazv,Izmer)), 
menu.

m('5'):-!,
write("udalyem nazv "), nl, 
readln(Nazv), 
retractall(geogr(Nazv,_)), 
menu.

m('6'):-
geogr(Nazv, Izmer),
write(" Nazv: ", Nazv, " Izmer: ",Izmer),nl,
fail,menu.

m('7'):-
write("vvedi limit izmer "),nl,
readln(Limit),
geogr(Nazv, Izmer),
Izmer <=Limit,
write(" Nazv: ", Nazv, " Izmer: ",Izmer),nl,
fail,menu.

m('0'):-!,
save("avia.ddb"), 
retractall(_).

m(_):-!,menu. 

output_i_n(Limit):-
geogr(Nazv, Izmer),
Izmer <=Limit,
write("nazv : ",Nazv," izmer=",Izmer),nl,
fail.

output_i_n(Limit):-
geogr(Nazv, Izmer),
Izmer > Limit,!.
output_i_n( Izmer):-
write("ne hvatit "),nl,fail.

output_i_n(Limit):-
geogr(Nazv,_),!.
output_i_n(_):-
write("net infi o takoi strane(reke)"),nl,
fail.

output_n_i(Nazv):-
geogr(Nazv, Izmer),
write("nazv: ",Nazv," Izmer ",Izmer),nl,
fail.
output_n_i(Nazv):-
geogr(Nazv,_),!.
output_n_i(_):-
write("net infi o strane "),nl,
fail.
GOAL 
menu.
Ответить с цитированием
  (#2 (permalink)) Старый
Винитарх Винитарх на форуме
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,838
Сказал(а) спасибо: 2
Поблагодарили 285 раз(а) в 285 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 24.04.2007, 19:20

Для этого в пункт №7 надо добавить ввод Вашего дополнительного параметра, а также добавить этот параметр в каждый факт в виде аргумента.
Ответить с цитированием
  (#3 (permalink)) Старый
mel mel вне форума
Member
 
Сообщений: 36
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.04.2007
По умолчанию 24.04.2007, 21:54

Огромное спасибо!!!Получилось!!!!!
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запись: справочник покупателя!!! glebochek Pascal 0 01.04.2012 14:05
Как создать телефонный справочник volkodaw Pascal 0 30.05.2011 15:39
Написать программу, реализующую географический справочник gem Prolog 0 18.04.2011 15:05
Русский справочник по Lisp где найти igsavenko Lisp 2 28.01.2010 22:11
географический справочник Evgesha1989 Prolog 15 07.12.2009 19:22
Двоичный справочник GSR Prolog 1 28.05.2007 17:05
Телефонный справочник Slimy Prolog 1 28.11.2006 22:12
Где скачать справочник по WinAPI для C++ Desolator Visual C++ 3 07.05.2006 12:44
Справочник по внутренним константам PowerCat Visual Basic 3 10.02.2006 21:34
Где взять подробный справочник по WIN API imported_TIK WinAPI 6 14.10.2005 01:56
Справочник РНР Sergey24 PHP 1 08.01.2003 14:10
Справочник по командам процессора ortho Assembler 2 22.07.2002 16:29



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов