Остановка движения объекта

@vitek2802 · Регистрация: 21.11.2015

Author24 — интернет-сервис помощи студентам

Как сделать, чтобы цикл заканчивался при нажатии клавиши, например Q, а не при достижении X ?

Pascal

uses GraphABC;
var
X,Y:integer;
begin
X:=10;
Y:=10;
while X<>400 do
begin
brush.Color:=clwhite;
FillEllipse(X,Y,X+10,Y+10);
X:=X+1;
Y:=Y+1;
brush.Color:=clyellow;
moveto(X,Y);
sleep(1000);
FillEllipse(X,Y,X+10,Y+10);
end;
end.

@volvo · 21.11.2015, 13:39

Pascal

uses
  GraphABC;
 
var
  stop: boolean := false;
 
procedure mykeypress(ch: char);
begin
  stop := UpCase(ch) = 'Q';
end;
 
var
  X, Y: integer;
 
begin
  OnKeyPress := mykeypress;
  X := 10;
  Y := 10;
  while not stop do
  begin
    brush.Color := clRed;
    FillEllipse(X, Y, X + 10, Y + 10);
    X := X + 1;
    Y := Y + 1;
    brush.Color := clyellow;
    moveto(X, Y);
    sleep(100);
    FillEllipse(X, Y, X + 10, Y + 10);
  end;
end.

@vitek2802 · 21.11.2015, 14:22 **[ТС]**

Спасибо огромное!

@Puporev · 21.11.2015, 15:12

Какая-то загадочная программа...

@vitek2802 0 / 0 / 1 Регистрация: 21.11.2015 Сообщений: 13
	21.11.2015, 14:22 [ТС]	3
	Спасибо огромное! 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.11.2015, 15:12	4
	Какая-то загадочная программа... 0

Опции темы

Остановка движения объекта

Решение