Question

Составьте программу которая имитирует движение летающей тарелки из левого нижнего в правый верхний угол. в паскале​

Answer 1

Ввиде кружка с графическим редактором?

Answer 2

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

pascalCopy code
program UFOAnimation;

uses
  crt;

var
  x, y: integer;

begin
  clrscr; // Очистка экрана

  x := 1; // начальная позиция X
  y := 25; // начальная позиция Y

  // Основной цикл анимации
  while (x <= 80) and (y >= 1) do
  begin
    clrscr; // Очистка экрана
    gotoxy(x, y); // Установка позиции курсора
    write('UFO'); // Отрисовка тарелки

    // Имитация движения
    x := x + 1; // Увеличение X
    y := y - 1; // Уменьшение Y

    delay(100); // Задержка для анимации (100 миллисекунд)
  end;

  readln; // Ожидание нажатия клавиши перед завершением программы
end.

Эта программа создает простую анимацию летающей тарелки, начиная с левого нижнего угла экрана и двигаясь вправо и вверх до достижения правого верхнего угла экрана. Задержка delay(100) используется для управления скоростью анимации. Вы можете изменить эту задержку, чтобы ускорить или замедлить анимацию, если это необходимо.