Определить, существует ли треугольник с заданными длинами сторон - Prolog
Формулировка задачи:
Здравствуйте. Условия задачи звучит так: определяющий существует ли треугольник с заданными длинами сторон а,b и с.
Подскажите пожалуйста как добавить в это кто условие, что если (a+b>c) and (a+c>b) and (b+c>a) - существует, иначе нет.
Листинг программы
- database - maindb
- item(integer)
- predicates
- nondeterm input(integer)
- nondeterm print()
- clauses
- input(0).
- input(I):- I > 0, readint(X), assert(item(X)), PrI = I - 1, input(PrI).
- print:- item(3), write(), write(" "), fail.
- goal
- retractall(item(_)), input(3), print.
Решение задачи: «Определить, существует ли треугольник с заданными длинами сторон»
textual
Листинг программы
- predicates
- is_triangle(real,real,real)
- clauses
- is_triangle(A,B,C) :- (A+B)>C, (B+C)>A, (C+A)>B.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
