Создайте предикат, вычисляющий среднегеометрическое натуральных чисел, кратных 3, не превосходящих N

@alexpodsh · Регистрация: 12.03.2015

Студворк — интернет-сервис помощи студентам

Создайте предикат, вычисляющий среднегеометрическое натуральных чисел, кратных 3, не превосходящих N.

@Catstail · 13.03.2015, 15:00

Prolog

predicates
prod(real,real,real)
pow(real,real,real)
count(real,real,real)
task(real,real)
 
clauses
 
prod(N,N,N) :- !.
prod(N,K,1) :- K>N, !. 
prod(N,K,Z) :- K3=K+3, prod(N,K3,U), Z=U*K.
 
pow(X,Y,Z) :- exp(Y*ln(X))=Z.
 
count(N,K,1) :- K=N, !.
count(N,K,0) :- K>N, !.
count(N,K,Z) :- K3=K+3, count(N,K3,U), Z=U+1.
 
task(N,R) :- count(N,3,P), prod(N,3,A), B=1.0/P, pow(A,B,R).

@alexpodsh · 16.03.2015, 16:17 **[ТС]**

она не работает в прологе((

@Catstail · 16.03.2015, 17:00

alexpodsh, она работает в Турбо Прологе.

@alexpodsh · 17.03.2015, 16:58 **[ТС]**

Catstail,не могли бы вы добавить еще ввод и вывод (по заданию),что бы в зеленом диалоговом окне мне нужно было вводить и программа выводила

@Catstail · 17.03.2015, 17:07

В Турбо-прологе?

@alexpodsh · 17.03.2015, 17:44 **[ТС]**

да в турбо прологе ,нужно что бы goal был и после него write,readline

@Catstail · 17.03.2015, 18:17

Prolog

predicates
prod(real,real,real)
pow(real,real,real)
count(real,real,real)
task(real,real)
 
clauses
 
prod(N,N,N) :- !.
prod(N,K,1) :- K>N, !. 
prod(N,K,Z) :- K3=K+3, prod(N,K3,U), Z=U*K.
 
pow(X,Y,Z) :- exp(Y*ln(X))=Z.
 
count(N,K,1) :- K=N, !.
count(N,K,0) :- K>N, !.
count(N,K,Z) :- K3=K+3, count(N,K3,U), Z=U+1.
 
task(N,R) :- count(N,3,P), prod(N,3,A), B=1.0/P, pow(A,B,R).
 
goal
write("N="),readint(N),task(N,R),write("R="),write(R),nl.

@alexpodsh · 17.03.2015, 20:39 **[ТС]**

спасибо вам огромное.вы мне очень помогли

@alexpodsh 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 29
		1
	Создайте предикат, вычисляющий среднегеометрическое натуральных чисел, кратных 3, не превосходящих N 12.03.2015, 21:55. Показов 1376. Ответов 8 Метки нет (Все метки) Создайте предикат, вычисляющий среднегеометрическое натуральных чисел, кратных 3, не превосходящих N. 0

@alexpodsh 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 29
	16.03.2015, 16:17 [ТС]	3
	она не работает в прологе(( 0

@Catstail Модератор 36528 / 19832 / 4156 Регистрация: 12.02.2012 Сообщений: 32,966 Записей в блоге: 13
	16.03.2015, 17:00	4
	alexpodsh, она работает в Турбо Прологе. 1

@alexpodsh 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 29
	17.03.2015, 16:58 [ТС]	5
	Catstail,не могли бы вы добавить еще ввод и вывод (по заданию),что бы в зеленом диалоговом окне мне нужно было вводить и программа выводила 0

@Catstail Модератор 36528 / 19832 / 4156 Регистрация: 12.02.2012 Сообщений: 32,966 Записей в блоге: 13
	17.03.2015, 17:07	6
	В Турбо-прологе? 0

@alexpodsh 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 29
	17.03.2015, 17:44 [ТС]	7
	да в турбо прологе ,нужно что бы goal был и после него write,readline 0

@alexpodsh 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 29
	17.03.2015, 20:39 [ТС]	9
	спасибо вам огромное.вы мне очень помогли 0

Опции темы