Question

Задача в паскале авс;нарисовать квадрат который движется по окружности пожалуйста

Answer 1

Нарисуй квадрат на круге думаю так хотяя не уверена

Answer 2

Вот пример кода на языке Pascal (Delphi), который рисует квадрат, движущийся по окружности:

pascalCopy code
program SquareMovingInCircle;

uses
  Crt, Graph;

const
  Radius = 100; // Радиус окружности
  CenterX = 320; // Координата X центра окружности
  CenterY = 240; // Координата Y центра окружности
  SquareSize = 50; // Размер стороны квадрата
  DelayTime = 50; // Задержка между кадрами (в миллисекундах)

var
  Gd, Gm: Integer;
  Angle: Real;
  SquareX, SquareY: Integer;

begin
  Gd := VGA;
  Gm := VGAHi;
  InitGraph(Gd, Gm, '');

  Angle := 0;
  SquareX := Round(CenterX + Radius * Cos(Angle));
  SquareY := Round(CenterY + Radius * Sin(Angle));

  repeat
    ClearDevice;

    // Рисуем окружность
    Circle(CenterX, CenterY, Radius);

    // Вычисляем новые координаты квадрата
    SquareX := Round(CenterX + Radius * Cos(Angle));
    SquareY := Round(CenterY + Radius * Sin(Angle));

    // Рисуем квадрат
    Rectangle(SquareX - SquareSize div 2, SquareY - SquareSize div 2,
      SquareX + SquareSize div 2, SquareY + SquareSize div 2);

    // Обновляем угол для следующего кадра
    Angle := Angle + 0.1;

    // Если угол выходит за пределы 360 градусов, сбрасываем его
    if Angle >= 2 * Pi then
      Angle := Angle - 2 * Pi;

    // Задержка между кадрами
    Delay(DelayTime);
  until KeyPressed;

  CloseGraph;
end.

При выполнении этого кода откроется графическое окно, в котором будет нарисован квадрат, движущийся по окружности. Квадрат будет перемещаться по окружности с центром в точке (320, 240) и радиусом 100 пикселей. Размер стороны квадрата составляет 50 пикселей. Задержка между кадрами составляет 50 миллисекунд.

Обратите внимание, что этот код написан с использованием графической библиотеки Graph, поэтому он должен быть выполнен в среде разработки, которая поддерживает эту библиотеку, например, Turbo Pascal или Free Pascal с подключенной библиотекой BGI.