Паскаль

[Елена777Алиса]

Помогите пожалуйста... Как нарисовать 2 движущиеся точки, одна из которых догоняет другую и при столкновении программа завершается?

[alex_fcsm]

Легко) Задает координату второй точки больше,чем первой например на 50.
И каждый раз перерисовываете экран меня координату первой на 3 второй на 1.
Соответственно как только первая догоняет вторую заканчиваете программу. В общем показывайте что не получается

[Елена777Алиса]

Спасибо большое сейчас попробую!

Program raketa;
Uses GraphABC,crt;
var x,y,r,a1,a2,cx,cy: integer;
begin
cx:=WindowWidth div 2;
cy:=WindowHeight div 2;
SetPixel(100,200,green);
SetPixel(400,200,red);
end.
Вот это пока я только написала

[alex_fcsm]

Здесь две точки только. Нужно организовать цикл, в котором будите изменять координаты. Предлагаю

while

[Елена777Алиса]

Program raketa;
Uses GraphABC,crt;
var x,y,r,a1,a2,cx,cy: integer;
x1,x2,y1,y2: real;
ms: integer;
begin
cx:=WindowWidth div 2;
cy:=WindowHeight div 2;
x1:=200;
y1:=300;
x2:=400;
y2:=300;

while (x1<>x2) do
begin
x1:=x1+1;
x2:=x2-3;
y1:=y1-2;
y2:=y2-2;
SetPixel(round(x1),round(y1),green) ;
SetPixel(round(x2),round(y2),red);
Delay(40);

end;
end.
Получилось=)) Спасибо огромное!!!!

А как сделать, чтобы точки удалялись не оставляя за собой пути?

[alex_fcsm]

В начале цикла перерисовывать экран. Используйте функции ClearDevice или Clrscr из модуля CRT;

[Елена777Алиса]

Точно, я и забыла. Очень круто! Спасибо Вам за помощь! Очень признательна=)
Всё получилось!=)))

[alex_fcsm]

Я рад за вас