Предикат, который рекурсивно находит целую часть от деления одного числа на другое - 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).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
