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

@Goldy · Регистрация: 17.11.2014

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).

@Black Fregat · 17.11.2014, 20:36

Вот так тупо взять и перевести? Напишите, что программа должна делать

@Goldy · 18.11.2014, 15:09 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	17.11.2014, 20:36
	Вот так тупо взять и перевести? Напишите, что программа должна делать 0

@Goldy 0 / 0 / 0 Регистрация: 17.11.2014 Сообщений: 2
	18.11.2014, 15:09 [ТС]
	Определены структуры "точка" (координата_Х, координата_У), "отрезок" (точка,точка), "треугольник" (точка,точка,точка), "четырехугольник" (точка,точка,точка,точка). Найти все прямоугольные треугольники. 0

Опции темы