Предикат, который рекурсивно находит целую часть от деления одного числа на другое - Prolog

Узнай цену своей работы

Формулировка задачи:

Определить предикат div1(A,B,Rez), который рекурсивно находит целую часть от деления одного натурального числа на другое.

Решение задачи: «Предикат, который рекурсивно находит целую часть от деления одного числа на другое»

textual
Листинг программы
div1(A, B, Rez) :-
    A >= 0,
    B > 0,
    div1(A, B, 0, Rez),
    !.
 
div1(A, B, Rez, Rez) :-
    A < B.
div1(A, B, Rez0, Rez) :-
    A1 is A - B,
    Rez1 is Rez0 + 1,
    div1(A1, B, Rez1, Rez).

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы