Question

Помогите пожалуйста,на паскале: Организуйте движение точки через центр экрана справа налево.

Answer 1

Вот маленькая точка летит по экрану...

uses Crt, Graph;
 var gd, gm, i: integer;
begin
 ClrScr;
 InitGraph(gd, gm, ' ');
{
В апострофах расписать путь к драйверу экрана egavga.bgi
}
 SetBkColor(1);
 for i:=640  downto 0 do
   begin
     SetColor(2);
     circle(i,240, 1);
     Delay (10);
     SetColor(1);
     Circle(i,240,1);
   end;
 ReadLn;
end.

Answer 2

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

program MovingPoint;

uses crt, dos;

var
  x, y: integer;

begin
  x := 80; // начальная позиция точки по оси X
  y := 12; // начальная позиция точки по оси Y

repeat
    clrscr; // очистить экран
    gotoxy(x, y); // переместить курсор в заданные координаты
    write('.'); // отобразить точку

delay(100); // задержка в миллисекундах

x := x - 1; // уменьшить значение координаты X (движение влево)
  until x = 1; // условие завершения движения

readkey; // ожидание нажатия клавиши
end.

В этом коде используется цикл `repeat...until`, который перемещает точку по горизонтальной оси влево с помощью уменьшения значения координаты X. Функция `delay` используется для создания паузы между перемещениями точки. Команды `clrscr` и `gotoxy` используются для очистки экрана и перемещения курсора в заданные координаты соответственно.

После выполнения программы точка будет двигаться через центр экрана справа налево.