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

Найти все прямоугольные треугольники

17.11.2014, 18:58. Показов 1194. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Есть программа на Visual Prolog, помогите пожалуйста перевести на Turbo Prolog. Код программы:
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
implement main
    open core, console
 
constants
    className = "main".
    classVersion = "".
clauses
    classInfo(className, classVersion).
 
class facts
  pnt:(real,real).
clauses     
   pnt(2,2). pnt(2,5). pnt(2,9). pnt(4,9). pnt(8,2).
clauses
       run():-  W=[   [   [Xa,Ya], [Xb,Yb], [Xc,Yc]   ]  ||   
                    pnt(Xa,Ya), pnt(Xb,Yb), [Xa,Ya] <> [Xb,Yb], 
                    pnt(Xc,Yc), [Xc,Yc] > [Xb,Yb], [Xa,Ya] <> [Xc,Yc],
                    (Xb-Xa)*(Xc-Xa)+(Yb-Ya)*(Yc-Ya)=0                    ],
         list::forAll(W,{(Wj):- write(Wj), nl, nl}),          write("\n\n..................."),   _=readchar().         
 
end implement main
 
goal
    mainExe::run(main::run).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2014, 18:58
Ответы с готовыми решениями:

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

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

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

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

2
Фрилансер
3704 / 2076 / 567
Регистрация: 31.05.2009
Сообщений: 6,683
17.11.2014, 20:36 2
Вот так тупо взять и перевести? Напишите, что программа должна делать
0
0 / 0 / 0
Регистрация: 17.11.2014
Сообщений: 2
18.11.2014, 15:09  [ТС] 3
Определены структуры "точка" (координата_Х, координата_У), "отрезок" (точка,точка), "треугольник" (точка,точка,точка), "четырехугольник" (точка,точка,точка,точка). Найти все прямоугольные треугольники.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2014, 15:09
Помогаю со студенческими работами здесь

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

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

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

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

работа по программированию. N точек, определить прямоугольные треугольники
Вот полная формулировка задания: &quot;Даны N точек на плоскости. Для всех треугольников, образуемых...

Доказать, что боковые грани пирамиды - прямоугольные треугольники.
В основании пирамиды лежит прямоугольник. Одно из боковых ребер перпендикулярно к плоскости...


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

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

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