Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Мат. Задача

.docx
Скачиваний:
3
Добавлен:
29.12.2021
Размер:
72.37 Кб
Скачать

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ КЫРГЫЗСКОЙ РЕСПУБЛИКИ

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

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

Лабораторная работа

Бишкек 2021

Лабораторная работа №2

Вариант №7

Листинг кода:

domains

X, Y, N, St, Rst = real

predicates

nondeterm y(X, N, Y).

clauses

y(X,0,0):-!.

y(X, N, Y):-N1=N-1, y(X,N1,Yp), Str=(N*N), Y=Yp+(1/Str).

goal

y(5,9,M).

Фото результат: