После нажатия на цифру 1 фигура начинает двигаться вправо, а на цифру 2 – влево

@Ctepun · Регистрация: 03.12.2016

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

2)Дана фигура в случайном месте, после нажатия на цифру 1 фигура начинает двигаться вправо, а на цифру 2 – влево и останавливается, достигнув границы экрана.

@Puporev · 03.12.2016, 15:30

Pascal

uses graphABC;
var x,dx,r:integer;
procedure sektor(x,y,r:integer);
begin
setpencolor(clOrange);
setbrushcolor(clOrange);
FillPie(x,y,r,0,270);
end;
procedure KeyPress(key:char);
begin
case key of
'1':dx:=5;
'2':dx:=-5;
end;
end;
var y:integer;
begin
randomize;
onkeypress:=Keypress;
r:=30;
y:=r+random(windowheight-2*r);
x:=r+random(windowwidth-2*r);
sektor(x,y,r);
lockdrawing;
repeat
sleep(100);
clearwindow;
x:=x+dx;
sektor(x,y,r);
redraw;
until(x<r)or(x>windowwidth-r);
setwindowcaption('Программа завершена')
end.

@Ctepun 0 / 0 / 0 Регистрация: 03.12.2016 Сообщений: 20
		1
	После нажатия на цифру 1 фигура начинает двигаться вправо, а на цифру 2 – влево 03.12.2016, 10:44. Показов 1560. Ответов 1 Метки нет (Все метки) 2)Дана фигура в случайном месте, после нажатия на цифру 1 фигура начинает двигаться вправо, а на цифру 2 – влево и останавливается, достигнув границы экрана. 0

	03.12.2016, 15:30

После нажатия на цифру 1 фигура начинает двигаться вправо, а на цифру 2 – влево

Решение