Найти все разносторонние треугольники

@Lalalala · Регистрация: 28.12.2015

Студворк — интернет-сервис помощи студентам

Доброго вечера, товарищи. Такое дело. Имеется БД с координатами треугольников. Я научилась выводить равносторонние треугольники, а вот дальше у меня не прет. Нужно суметь вывести разносторонние треугольники. Не могу правильно задать условие для такого треугольника. Вот, собственно, часть кода:

Prolog

/*ravn для запуска расчета длин сторон и сравнения. Если сравнение случилось, то единичка, и мы можем вывести треугольник. Иначе нолик и дальше проверяем остальные треугольники*/
ravn(chet(P1,P2,P3),1):-dlina(P1,P2,A), dlina(P2, P3, B), dlina(P3, P1, C), srav(A,B,C),!.
    ravn(_, 0).
    raznl([]).
    raznl([A|L]):-ravn(A, 1),output(A),nl,raznl(L).
    raznl([A|L]):-ravn(A, 0),raznl(L).
    dlina(t(X1, Y1),t(X2,Y2), C):-C=sqrt((X2-X1)*(X2-X1)+(Y1-Y2)*(Y1-Y2)).
    srav(A,A,A).

@Black Fregat · 08.01.2019, 07:32

Для перехода к разносторонним треугольникам нужно только переписать srav:

Prolog

1	srav(A, B, C) :- A <> B, A <> C, B <> C.

Или вместо <> другой символ "не равно", зависит от версии Пролога

Опции темы