Question

Помогите пожалуйста, я ничего не смыслю в информатике.Нужно в паскале написать программу движения по экрану окружности радиусом 10 по диагонали из правого верхнего в левый нижний угол экрана.

Answer 1

Можеш скинуть скрин???

Answer 2

Конечно, я помогу вам написать программу на Pascal, которая реализует движение окружности радиусом 10 по диагонали из правого верхнего в левый нижний угол экрана. Вот пример такой программы:

pascalCopy code
program MovingCircle;

uses
  Crt, Graph;

const
  Radius = 10;

var
  gd, gm, x, y: Integer;

procedure DrawCircle(X, Y: Integer);
begin
  SetColor(Blue);
  Circle(X, Y, Radius);
  SetFillStyle(SolidFill, Blue);
  FloodFill(X, Y, Blue);
end;

procedure EraseCircle(X, Y: Integer);
begin
  SetColor(Black);
  Circle(X, Y, Radius);
  SetFillStyle(SolidFill, Black);
  FloodFill(X, Y, Black);
end;

procedure MoveCircleDiagonal();
var
  angle: Real;
begin
  angle := 45; // Начальный угол (45 градусов) - правый верхний угол

  while (x >= Radius) and (y <= GetMaxY - Radius) do
  begin
    EraseCircle(x, y);
    x := Round(x - Radius * Cos(angle * Pi / 180));
    y := Round(y + Radius * Sin(angle * Pi / 180));
    DrawCircle(x, y);
    Delay(50);
  end;
end;

begin
  gd := Detect;
  InitGraph(gd, gm, '');

  if GraphResult <> 0 then
  begin
    Writeln('Ошибка при инициализации графики');
    Halt(1);
  end;

  x := GetMaxX - Radius; // Начальные координаты (правый верхний угол)
  y := Radius;

  DrawCircle(x, y);
  Delay(1000);

  MoveCircleDiagonal();

  Delay(2000);

  CloseGraph;
end.

Обратите внимание, что данная программа использует графический режим и библиотеку Graph для отрисовки. В зависимости от вашей системы и среды разработки, вам может потребоваться настроить библиотеку Graph.

Программа рисует окружность радиусом 10, начиная с правого верхнего угла экрана и перемещая ее по диагонали к левому нижнему углу экрана.

Перед запуском убедитесь, что у вас установлена подходящая среда разработки и библиотека Graph.