[РЕШЕНО] Prolog: Вычислить значеник функции y=x^2+6*x-5 в промежутке от N до 2*N с шагом 2 . N - натуральное число, вводимое с клавиатуры

[AnnaSub]

Мне надо срочно решить!!!

Правая рекурсия, Prolog.

Вычислить значеник функции y=x^2+6*x-5 в промежутке от N до 2*N с шагом 2 . N - натуральное число, вводимое с клавиатуры.

[Black Fregat]

SWI Prolog

f(X,Y) :-
	Y is X*X + 6*X - 5.

tab(A, B) :-
	A =< B,
	!,
	f(A, Y),
	write("x = "),
	write(A),
	write("\ty = "),
	write(Y), nl,
	AA is A + 2,
	tab(AA, B);
	true.

go :-
	read(N),
	N2 is 2*N,
	tab(N, N2).

?- go.
|: 6.
x = 6   y = 67
x = 8   y = 107
x = 10  y = 155
x = 12  y = 211
true.

При вводе через read() нужно после числа ставить точку. Обязательно.

[AnnaSub]

Спасибо большое! все работает!!!