![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 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,а именно Цель? Чтобы получить ответ. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вопрос | 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 |