Построить объект, который передвигается с помощью навигационных клавиш (программа Паскаль)
Вопрос посетителя
Построить объект, который передвигается с помощью навигационных клавиш
Ответ эксперта
USES Crt,Graph; VAR Gd,Gm : INTEGER; Av : CHAR; X,Y,I,T,Z,K : INTEGER; St : STRING[225];
BEGIN
Gd:=Detect; InitGraph(Gd,Gm,’C:tp7BGI’);
ClearDevice;
X:=GetMaxX DIV 2; Y:=GetMaxY DIV 2;
T:=0; I:=0; K:=500;
REPEAT
SetColor(15);
{ Построение объекта }
Line(X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3); Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
Circle(X,Y,7);
Av:=ReadDKey;
{ Изменение координат при нажатии клавиши }
IF CHR(75)=Av THEN T:=-10; IF CHR(77)=Av THEN T:=10;
IF CHR(72)=Av THEN I:=-10; IF CHR(80)=Av THEN I:=10;
SetColor (0); Line (X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3);
Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
Circle(X,Y,7);
X:=X+T; Y:=Y+I; I:=0; T:=0;
IF X>(GetMaxX-2) THEN X:=GetMaxX-2; IF X<2 THEN X:=2;
IF Y>(GetMaxY-2) THEN Y:=GetMaxY-2; IF Y<2 THEN Y:=2;
UNTIL ORD(Av)=27; { Пока не нажата клавиша Esc }
END.