1 / 1 / 2
Регистрация: 28.12.2015
Сообщений: 21
1

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

23.12.2018, 19:21. Показов 1149. Ответов 1
Метки нет (Все метки)

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

Prolog
1
2
3
4
5
6
7
8
/*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).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2018, 19:21
Ответы с готовыми решениями:

Найти все разносторонние треугольники
не могу выполнить, помогите Уточнение задания: определены структуры «точка» (координата_Х,...

Найти все прямоугольные треугольники
Есть программа на Visual Prolog, помогите пожалуйста перевести на Turbo Prolog. Код программы:...

Найти все треугольники, которые вписаны в окружность
Здравствуйте, необходимо написать программу, которая генерирует 100 случайных точек в двумерном...

Найти все равновеликие прямоугольные треугольники
Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a и b, а...

1
Фрилансер
3707 / 2079 / 567
Регистрация: 31.05.2009
Сообщений: 6,683
08.01.2019, 07:32 2
Для перехода к разносторонним треугольникам нужно только переписать srav:
Prolog
1
srav(A, B, C) :- A <> B, A <> C, B <> C.
Или вместо <> другой символ "не равно", зависит от версии Пролога
0
08.01.2019, 07:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2019, 07:32
Помогаю со студенческими работами здесь

Вложенные циклы. Найти все равновеликие прямоугольные треугольники с заданной площадью
Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a i b,а...

Найти все треугольники, которые могут иметь эти точки за вершины
На плоскости заданы 5 точек с координатами (x0, y0), (x1, y1) ..., (x4, y4). Найти все...

Найти и начертить все треугольники, образованные сочетанием любых трех точек из К
Люди,если не сложно, помогите пожалуйста написать прогу, мне ее через 2 дня сдавать надо,а я полный...

Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами
Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a и b, а...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru