Построить окружность и вписать в нее треугольник - Prolog

Формулировка задачи:

Построить окружность и вписать в нее треугольник

Решение задачи: «Построить окружность и вписать в нее треугольник»

Листинг программы

predicates
go
 
clauses
go:-
  initgraph(0, 0, _, _, "GDI"),
  getmaxx(W),
  getmaxy(H),
  XC = W/2,
  YC = H/2,
  R = H/3,
  X1 = XC,
  Y1 = YC - R,
  X2 = XC - R * sqrt(3)/2,
  Y2 = YC + R/2,
  X3 = XC + R * sqrt(3)/2,
  Y3 = YC + R/2, 
  circle(XC,YC,R),
  moveto(X1,Y1),
  lineto(X2,Y2),
  lineto(X3,Y3),
  lineto(X1,Y1),
  readln(_),
  closegraph.
  
goal
go.

Объяснение кода листинга программы

В этом коде используется язык программирования Prolog. Вот список действий, которые он выполняет:

Инициализирует графический дисплей с помощью функции initgraph.
Получает размеры окна с помощью функций getmaxx и getmaxy.
Вычисляет координаты центра окружности (XC, YC) и радиус R.
Вычисляет координаты вершин треугольника (X1, Y1), (X2, Y2), (X3, Y3).
Рисует окружность с помощью функции circle.
Перемещает курсор в точку (X1, Y1) с помощью функции moveto.
Рисует отрезок между (X1, Y1) и (X2, Y2) с помощью функции lineto.
Рисует отрезок между (X2, Y2) и (X3, Y3) с помощью функции lineto.
Рисует отрезок между (X3, Y3) и (X1, Y1) с помощью функции lineto.
Прочитывает строку с помощью функции readln.
Закрывает графический дисплей с помощью функции closegraph. Переменные:
- W - ширина окна
- H - высота окна
- XC - координата X центра окружности
- YC - координата Y центра окружности
- R - радиус окружности
- X1, Y1 - координаты первой вершины треугольника
- X2, Y2 - координаты второй вершины треугольника
- X3, Y3 - координаты третьей вершины треугольника