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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.09.2011, 04:42   #1
123123qwe
Новичок
Джуниор
 
Регистрация: 12.09.2011
Сообщений: 1
По умолчанию Вопрос по ТурбоПрологу

Имеется текст программы в Турбо Прологе

DOMAINS
nom,tel,voz,kod=integer
data, fiov, fio,adres,m_rab,spec,diag,naz,bol=s tring
PREDICATES
karta(nom,fio,adres,tel,voz,m_rab)
vrach(kod,fiov,spec)
priem(kod,nom,data,diag,naz,bol)

proshel(fio,data,fiov,diag)
prinial(fiov,data,fio,naz,bol)


CLAUSES
karta(1," Sidorov S. G."," ul. Nekrasova ", 3432, 30 , "Digma").
karta(2," Vorobyev S. I."," ul. Belinskogo ",7374,19,"Pragma").
karta(3," Neznamov V. I."," ul. Glinki ",1332,45,"Bolnitsa").
karta(4," Ustinov V. V."," ul. Mayakovskogo ",3349,34,"Bank").
karta(5," Goryachev N. N."," ul. Scherbakova ",5691,23,"GUAP").
karta(6," Tsyplukhin V. L. "," ul. Kosigina ",23882,19,"Delovoy Peterburg").
karta(7," Durov P. E."," ul. Zhulovskogo ",7638,28, "Administracia").
karta(8," Voroshilov K. R."," ul. Vosstania ",6598,90,"Zavod Zara").
karta(9," Voloshin E. N."," ul. Ryleeva ",9845,29," Karusel ").
karta(10," Lomonosov M. Y."," ul. Tverskaya ",4733,41, " Policia ").


vrach(1," Maslova E. P."," otolaringolog ").
vrach(2," Solovyev P. P.","hirurg").
vrach(3," Onischenko G. P. "," terapevt ").
vrach(4," Malakhov G. P."," gomeopat ").
vrach(5," Ivanov I. I."," oftalmolog ").
vrach(6," Pirogov E. K."," kardiolog ").

priem(1,1,"01.01.2009","opuhol","op eracia","da").
priem(2,2,"28.04.2011","perelom","g ips","da").
priem(3,3,"12.12..2010"," prostuda","tabletki","net").
priem(4,4,"15.07.2008","psikhoz","t abletki","da").
priem(5,5,"24.12.2011","katarakta", "operacia","net ").
priem(6,6,"03.03.2010","tahikardia" ,"terapiya","net").
priem(1,7,"31.01.2011","prostuda"," kapli","net ").
priem(6,8,"18.06.2011","infarkt","t erapia","da").
priem(4,9,"14.02.2010","perelom ","tabletki","da ").
priem(2,10,"19.08.2010","ploskostop ie","terapia","net").

proshel(Fio,Data,Fiov,Diag):-priem(Kod,Nom,Data,Diag,_,_),vrach( Kod,Fiov,_),karta(Nom,Fio,_,_,_,_).
prinial(Fiov,Data,Fio,Naz,Bol):-priem(Kod,Nom,Data,_,Naz,Bol),karta (Nom,Fio,_,_,_,_),vrach(Kod,Fiov,_) .

Что нужно писать в окне Dialog,а именно Цель? Чтобы получить ответ.
123123qwe вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос EddieG Общие вопросы C/C++ 2 18.01.2011 14:48
Вопрос по mySQL + Вопрос по RichEdit HTL Общие вопросы Delphi 4 01.01.2010 20:22
Вопрос наверное про функции, а так точно даже не знаю про что. (Вопрос начинющего #6) Albert2008 Общие вопросы Delphi 4 21.08.2008 15:33
вопрос по сокетам и общение как в ICQ.Сложный вопрос... Руслантус Общие вопросы C/C++ 2 12.08.2008 21:10