Задача про цветы и травы. (Почти готова, нужно немного доделать)

Pavlik24 · 12.01.2010, 18:56

Все цветы имеют лепестки и стебель. Все травы имеют листья и стебель. Бамбук имеет стебель. Маргаритка имеет стебель и лепестки. Бамбук имеет листья. Является ли Бамбук травой? Является ли маргаритка травой?

Код:

predicates
       имеет_стебель(string,string)
       имеет_листья(string)
       имеет_лепестки(string)
       цветы(string)
       травы(string)
       
clauses
        
         имеет_стебель("margaritka","bambuk").
         имеет_листья("bambuk").
         имеет_лепестки("margaritka").
         цветы(X):- имеет_стебель(X,_), имеет_лепестки(X).
         травы(X):- имеет_стебель(_,X), имеет_листья(X).
 goal
     травы("margaritka").

как сделать что бы выводила и бамбук тоже?

Alexiski · 12.01.2010, 19:55

Не надо независимые факты вписывать в один предикат

Код:

predicates
       имеет_стебель(string)
       имеет_листья(string)
       имеет_лепестки(string)
       цветы(string)
       травы(string)
       
clauses
        
         имеет_стебель("margaritka").
         имеет_стебель("bambuk").
         имеет_листья("bambuk").
         имеет_лепестки("margaritka").
         цветы(X):- имеет_стебель(X), имеет_лепестки(X).
         травы(X):- имеет_стебель(X), имеет_листья(X).

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
НУЖНА ХОТЯ БЫ ИДЕЯ ИДЕЯ РЕШЕНИЯ!) немного непонятная задача с массивом....	nidaime	Pascal	0	12.12.2011 16:36
Логическая задача! плиииз! очень нужно!!!	inForm	Pascal	3	25.12.2010 11:40
логическая задача про подруг (нужно написание программы)	katys	Prolog	1	20.11.2010 01:04
Как создать искусственные цветы	Ikshot	Мысли вслух	0	16.02.2009 18:06
Intel готова к 32 нм	Ledokol	Процессоры	10	11.12.2008 19:30
Нужно немного сменить прогу ...	Yunno	Pascal	13	23.10.2008 07:09
Opera 9.50 - к старту готова!	VipeR	Софт и программы	1	12.06.2008 21:35
Задача по строкам (удалить повторяющиеся пробелы) нужно дорешать	sansay	Prolog	6	23.05.2008 18:50
сть реализованная программа для RLE кодирования нужно доделать до RLE2	fxf	Assembler	0	08.08.2007 20:48
Задача на Прологе. Почти решил но не компилируется.	HARM	Prolog	2	15.06.2006 12:48
VBA в Excel!!!Нужно буквально немного!	oksyxxl	Visual Basic	1	02.06.2005 03:25
Нужно сделать редирект на сайте, на джава скрипте, немного неординарный	nasok	DHTML, JavaScript, VBScript	1	08.10.2004 14:26

Ads