Лифп / лиф3 3 лаба (1)

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ

КЫРГЫЗСКОЙ РЕСПУБЛИКИ

КЫРГЫЗСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ им. И. РАЗЗАКОВА

ОТЧЁТ

По дисциплине: Логическое и функциональное программирование

На тему: Лабораторная работа №3

Бишкек 2020 г.

Вариант №8

Листинг:

Stepen(X,1,X)-условие остановки рекурсии. (нерекурсивная часть правила):0!=1

Stepen(X,St,R)-рекурсивная часть правила n!=(n-1)!*n

Result-(X,1,0)условие остановки рекурсии

Result(X,N,Y)-рекурсивная часть решения

Stepen(N,2,RZn)-степень равно двум.

Y=YP+RZN=заключительная часть функции.

Результат: