Question

Паскаль кружок нарисуйте движущихся круг​

Answer 1

Объяснение:

надо было просто нарисовать круг

Answer 2

Конечно, вот пример кода на языке Pascal (Delphi) для создания движущихся кругов на форме:

pascalCopy code
program MovingCircles;

uses
  SysUtils, Forms, ExtCtrls;

var
  Form1: TForm;
  Circle1: TShape;
  Circle2: TShape;
  SpeedX1, SpeedY1, SpeedX2, SpeedY2: Integer;

procedure MoveCircles;
begin
  // Двигаем первый круг
  Circle1.Left := Circle1.Left + SpeedX1;
  Circle1.Top := Circle1.Top + SpeedY1;

  // Проверяем, не вышел ли за границы формы
  if Circle1.Left < 0 then
    SpeedX1 := Abs(SpeedX1);
  if Circle1.Left + Circle1.Width > Form1.ClientWidth then
    SpeedX1 := -Abs(SpeedX1);
  if Circle1.Top < 0 then
    SpeedY1 := Abs(SpeedY1);
  if Circle1.Top + Circle1.Height > Form1.ClientHeight then
    SpeedY1 := -Abs(SpeedY1);

  // Двигаем второй круг
  Circle2.Left := Circle2.Left + SpeedX2;
  Circle2.Top := Circle2.Top + SpeedY2;

  // Проверяем, не вышел ли за границы формы
  if Circle2.Left < 0 then
    SpeedX2 := Abs(SpeedX2);
  if Circle2.Left + Circle2.Width > Form1.ClientWidth then
    SpeedX2 := -Abs(SpeedX2);
  if Circle2.Top < 0 then
    SpeedY2 := Abs(SpeedY2);
  if Circle2.Top + Circle2.Height > Form1.ClientHeight then
    SpeedY2 := -Abs(SpeedY2);
end;

procedure Form1Timer(Sender: TObject);
begin
  MoveCircles;
end;

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);

  // Создаем и настраиваем круги
  Circle1 := TShape.Create(Form1);
  Circle1.Parent := Form1;
  Circle1.Shape := stCircle;
  Circle1.Width := 50;
  Circle1.Height := 50;
  Circle1.Brush.Color := clRed;
  Circle1.Left := 50;
  Circle1.Top := 50;

  Circle2 := TShape.Create(Form1);
  Circle2.Parent := Form1;
  Circle2.Shape := stCircle;
  Circle2.Width := 50;
  Circle2.Height := 50;
  Circle2.Brush.Color := clBlue;
  Circle2.Left := 200;
  Circle2.Top := 200;

  // Устанавливаем начальные скорости
  SpeedX1 := 5;
  SpeedY1 := 5;
  SpeedX2 := 3;
  SpeedY2 := 3;

  // Устанавливаем интервал для таймера (миллисекунды)
  Form1.Timer1.Interval := 50;
  Form1.Timer1.OnTimer := Form1Timer;
  Form1.Timer1.Enabled := True;

  Application.Run;
end.

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