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

@Mozzgg · Регистрация: 15.05.2014

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

Здравствуйте, есть код

Prolog

predicates 
stepen(integer O, integer P, integer R) 
clauses 
stepen(0, B, 0):- B > 0, !. 
stepen(A, 0, 1):- A <> 0, !. 
stepen(A, B, Pow):- A > 0, B > 0, !, 
Pow = val(integer, exp(B * ln(A))). 
stepen(A, B, Pow):- A<>0, B > 0, B mod 2 = 0, !, 
Pow = val(integer, exp(B * ln(abs(A)))). 
stepen(A, B, Pow):- A<>O, B > 0, 
Pow = - val(integer, exp(B * ln(abs(A)))). 
goal 
stepen(-2, 5, stepen).

что не так? почему не могу запустить, всегда пишет надпись "208 Syntax error in predicate declaration, ',' or ')' expected.

@arlat · 14.05.2016, 15:30

<> заменить на \=

@Catstail · 14.05.2016, 19:32

Сообщение от Mozzgg

что не так?

- да все!

Вот простое решение:

Prolog

predicates
pow(integer,integer,integer)
 
clauses
pow(_,0,1).
pow(P,N,R) :- N1=N-1, pow(P,N1,R1), R=R1*P, !.

@arlat 794 / 598 / 156 Регистрация: 07.10.2013 Сообщений: 1,327
	14.05.2016, 15:30	2
	<> заменить на \= 0

	14.05.2016, 19:32

Опции темы