Поиск чисел Фибоначчи, что не превышают заданное число

@A1exSun · Регистрация: 09.03.2013

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

Знаю, что уже было и не раз.

Нашел следующие исходники.
Интерпретация:

Prolog

fib(0, 0).
fib(1, 1).
fib(N, NF) :-
    A is N - 1, B is N - 2,
    fib(A, AF), fib(B, BF),
    NF is AF + BF.

Рекурсия:

Prolog

1
2
3

fib(0, A, _, A).
fib(N, A, B, F) :- N1 is N - 1, Sum is A + B, fib(N1, B, Sum, F).
fib(N, F) :- fib(N, 0, 1, F).

Как их запустить в Turbo Prolog?
Написал так:

Prolog

domains
    n = number
predicates
    fib(n, n)
clauses
    fib(0, 0).
    fib(1, 1).
    fib(N, NF) :-
        A is N - 1, B is N - 2,
        fib(A, AF), fib(B, BF),
        NF is AF + BF.

Ругается на A в 9 строке - не объявленный предикат. Как его описать в разделе predicates? И что это вообще?

@Грымзик · 16.10.2013, 21:35

Prolog

predicates
    fib(integer, integer)
clauses
    fib(0, 0).
    fib(1, 1).
    fib(N, NF) :-
        A = N - 1, B = N - 2,
        fib(A, AF), fib(B, BF),
        NF = AF + BF.
goal
    fib(5,X), write(X).

@A1exSun · 16.10.2013, 23:44 **[ТС]**

Сообщение от Грымзик

Prolog

predicates
    fib(integer, integer)
clauses
    fib(0, 0).
    fib(1, 1).
    fib(N, NF) :-
        A = N - 1, B = N - 2,
        fib(A, AF), fib(B, BF),
        NF = AF + BF.
goal
    fib(5,X), write(X).

Как-то оно неверно работает.
Почему fib(3, X) возвращает 2, а fib(8, X) возвращает 21? fib(5, X) - 5...

Добавлено через 19 минут
Как вывести списком все числа Фибоначчи, что меньше указанного числа?

	16.10.2013, 23:44