Вычислить значение m

imported_Алексей777 · Регистрация: 22.01.2011

Добрый вечер!

Помогите решить арифметическую задачу. Спасибо!

imported_Алексей777 · 22.01.2011, 23:03

Вроде написал, проверьте так я сделал или нужно по другому? Спасибо!

domains
x,y,z=integer
predicates
m(x,y,z)
clauses

m(X,Y,Z) :- X>8, Z=(X+exp(X))/2.
m(X,Y,Z) :- X<=8, Z=X*sin(X).

sershum · 23.01.2011, 00:06

prolog Код:

predicates
m(real,real)
clauses
m(X,Y):-X>8,!,Y=(X+exp(X))/2.
m(X,Y):-Y=X*sin(X).
goal
m(5,Z),write(Z)

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вычислить значение n-го члена ряда Фибоначчи. Не могу сделать здачу. Посодействуйте.	Lintik555	Prolog	3	08.11.2011 21:34
Вычислить yi=2 соs (xi)+в; здесь i=1,10	Мирзали	Pascal	6	29.06.2011 01:58
Вычислить значение выражения	Женечка	Visual Basic	4	28.11.2010 20:35
Вычислить значение функции :y(x) в точках X1 и X2	BeLai	Программирование под Windows	1	29.10.2010 19:05
Вычислить S=a+a(a+1)+...+a(a+1)...(a+n).	lb-lux	Prolog	11	06.06.2010 15:10
Вычисление приближенное значение функции; и точное значение функции	Awatar	Prolog	1	29.03.2010 21:22
вычислить	tali	Prolog	1	24.11.2009 16:14
Вычислить значение фунции	lkz	Pascal	4	27.10.2009 11:07
Вычислить рекурсивно среднее значение элементов одномерного массива	Vika-Viktoria	Visual C++	4	25.02.2009 20:37
вычислить значение функции	Seraf_47	Prolog	1	16.04.2008 22:52
Вычислить функцию	imported_KILLER	Prolog	2	16.04.2006 17:53
Как вычислить среднее арифметическое значение элементов главной диагонали	br.dmitriy	Вопросы начинающих программистов	1	27.05.2005 16:36

imported_Алексей777 Новичок Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 22.01.2011	22.01.2011, 23:03 Вроде написал, проверьте так я сделал или нужно по другому? Спасибо! domains x,y,z=integer predicates m(x,y,z) clauses m(X,Y,Z) :- X>8, Z=(X+exp(X))/2. m(X,Y,Z) :- X<=8, Z=X*sin(X).

sershum Member Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 07.01.2011	23.01.2011, 00:06 prolog Код: predicates m(real,real) clauses m(X,Y):-X>8,!,Y=(X+exp(X))/2. m(X,Y):-Y=X*sin(X). goal m(5,Z),write(Z)

Ads