Question

Нарисовать изображение ,движущееся из центра экрана в левый,верхний угол(в паскале)

Answer 1

PascalABC.NET 3.2

uses
  GraphABC;
begin
  var w:=Window.Width;
  var h:=Window.Height;
  var x0:=w div 2 -1;
  var y0:=h div 2 -1;
  SetCoordinateOrigin(x0,y0);
  var k:=h/w;
  for var x:=0 downto -x0 do begin
    var y:=Trunc(k*x);
    Brush.Color:=clRed;
    Pen.Color:=clRed;
    Circle(x,y,10);
    sleep(50);
    Brush.Color:=clWhite;
    Pen.Color:=clWhite;
    Circle(x,y,15)
    end;
end.

Answer 2

Программа на скрине! надеюсь помог!

Answer 3

Вот пример кода на языке Pascal, который реализует движущееся изображение из центра экрана в левый верхний угол:

program MovingImage;

uses
  Crt, Graph;

var
  gd, gm, x, y, i: integer;

begin
  gd := D8bit;
  gm := m800x600;
  InitGraph(gd, gm, '');

x := GetMaxX div 2; // получаем координаты центра экрана
  y := GetMaxY div 2;

// отключаем отображение курсора
  SetCursorType(0);

// очищаем экран
  ClearDevice;

// рисуем изображение в центре экрана
  SetColor(White);
  Circle(x, y, 50);

// двигаем изображение в левый верхний угол
  for i := 50 downto 0 do
  begin
    // очищаем предыдущее изображение
    SetColor(Black);
    Circle(x, y, i);

// рисуем новое изображение
    SetColor(White);
    Circle(x - i, y - i, i);

// задержка для создания эффекта движения
    Delay(50);
  end;

// включаем отображение курсора
  SetCursorType(2);

// закрываем графический режим
  CloseGraph;
end.

Этот код использует графический режим Pascal для создания окна с изображением, которое движется из центра экрана в левый верхний угол. Изображение представлено кругом, который постепенно уменьшается в размере до нуля, создавая эффект движения в указанном направлении.