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

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

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

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

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы