Движение прямоугольника по экрану, останавливаясь, достигнув его границы

@Надежда161095 · Регистрация: 04.04.2016

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

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

можно по нажатию клавиши «N», возобновить*- по нажатию клавиши «Y». Выход по Esc.

@Puporev · 10.04.2016, 12:47

Pascal

uses graphABC;
var d:integer=5;
procedure KeyPress(key:char);
begin
case key of
'N','n':d:=0;
'Y','y':d:=5;
#27:halt;
end;
end;
var a,b,x,y:integer;
begin
onkeypress:=KeyPress;
a:=40;
b:=20;
x:=a;
y:=windowheight div 2;
rectangle(x-a,y-b,x+a,y+b);
textout(windowwidth div 2-80,10,'N-stop Y-next  Esc-exit');
lockdrawing;
repeat
clearwindow;
textout(windowwidth div 2-80,10,'N-stop Y-next  Esc-exit');
x:=x+d;
rectangle(x-a,y-b,x+a,y+b);
sleep(100);
redraw;
until x+a>=windowwidth;
end.

@Надежда161095 · 10.04.2016, 16:23 **[ТС]**

Спасибо!

@Надежда161095 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 9
		1
	Движение прямоугольника по экрану, останавливаясь, достигнув его границы 10.04.2016, 10:53. Показов 1685. Ответов 2 Метки нет (Все метки) Прямоугольник движется по экрану, останавливаясь, достигнув его границы. Прервать движение можно по нажатию клавиши «N», возобновить*- по нажатию клавиши «Y». Выход по Esc. 0

@Надежда161095 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 9
	10.04.2016, 16:23 [ТС]	3
	Спасибо! 0

Движение прямоугольника по экрану, останавливаясь, достигнув его границы

Решение