Изобразить на экране правильный треугольник, вращающийся в плоскости экрана вокруг своего центра. Изобразить на экране п

uses GraphABC;
 
const
  side_length = 100; // Длина стороны треугольника
  line_thickness = 2; // Толщина линии
  triangle_color = clBlack; // Цвет треугольника
 
var
  center: Point; // Координаты центра окна
  angle: Real; // Угол поворота треугольника
 
begin
  SetWindowSize(400, 400); // Задаем размеры окна
  center := Window.Center; // Определяем координаты центра окна
  angle := 0; // Задаем начальный угол поворота
 
  while True do // Основной цикл программы
  begin
    ClearWindow; // Очищаем окно
 
    // Вычисляем координаты вершин треугольника
    var vertex1: Point := Point(Round(center.X + side_length * Cos(angle)), Round(center.Y + side_length * Sin(angle)));
    var vertex2: Point := Point(Round(center.X + side_length * Cos(angle + 2 * Pi / 3)), Round(center.Y + side_length * Sin(angle + 2 * Pi / 3)));
    var vertex3: Point := Point(Round(center.X + side_length * Cos(angle + 4 * Pi / 3)), Round(center.Y + side_length * Sin(angle + 4 * Pi / 3)));
 
    // Рисуем треугольник
    SetPenColor(triangle_color);
    SetPenWidth(line_thickness);
    DrawPolygon([vertex1, vertex2, vertex3]);
 
    // Обновляем угол поворота
    angle := angle + 0.01;
 
    // Ожидаем некоторое время, чтобы не перегружать процессор
    Sleep(10);
  end;
end.

uses GraphABC;
 
const
side_length = 100; // Длина стороны треугольника
line_thickness = 2; // Толщина линии
triangle_color = clBlack; // Цвет треугольника
 
var
center: Point; // Координаты центра окна
angle: Real; // Угол поворота треугольника
 
begin
SetWindowSize(400, 400); // Задаем размеры окна
center := Window.Center; // Определяем координаты центра окна
angle := 0; // Задаем начальный угол поворота
 
while True do // Основной цикл программы
begin
ClearWindow; // Очищаем окно
 
// Вычисляем координаты вершин треугольника
var vertex1: Point := new Point(Round(center.X + side_length * Cos(angle)), Round(center.Y + side_length * Sin(angle)));
var vertex2: Point := new Point(Round(center.X + side_length * Cos(angle + 2 * Pi / 3)), Round(center.Y + side_length * Sin(angle + 2 * Pi / 3)));
var vertex3: Point := new Point(Round(center.X + side_length * Cos(angle + 4 * Pi / 3)), Round(center.Y + side_length * Sin(angle + 4 * Pi / 3)));
 
// Рисуем треугольник
SetPenColor(triangle_color);
SetPenWidth(line_thickness);
DrawPolygon([vertex1, vertex2, vertex3]);
 
// Обновляем угол поворота
angle := angle + 0.01;
 
// Ожидаем некоторое время, чтобы не перегружать процессор
Delay(10);
end;
end.

uses GraphWPF;
const r=200;
begin
  var α:=0.0;
  OnDrawFrame := dt ->
    begin
      α-=dt;
      Polygon(|pnt(window.Center.X+sin(α)*r,window.Center.Y+cos(α)*r),
               pnt(window.Center.X+sin(α+pi/3*2)*r,window.Center.Y+cos(α+pi/3*2)*r),
               pnt(window.Center.X+sin(α-pi/3*2)*r,window.Center.Y+cos(α-pi/3*2)*r)|);
    end;
end.