Програмування Pascal, Детальна інформація
Програмування Pascal
#0:begin
ch:=readkey;
case ch of
#77: begin
xcur:=xcur+1;
if xcur>8 then xcur:=8;
curpos (xcur-1,ycur,xcur,ycur);
end;
#75: begin
xcur:=xcur-1;
if xcur<1 then xcur:=1;
curpos (xcur+1,ycur,xcur,ycur);
end;
#80: begin
ycur:=ycur+1;
if ycur>8 then ycur:=8;
curpos (xcur,ycur-1,xcur,ycur);
end;
#72: begin
ycur:=ycur-1;
if ycur<1 then ycur:=1;
curpos (xcur,ycur+1,xcur,ycur);
end;
end;
end;
' ': begin
if matr[xcur,ycur]=0 then
matr[xcur,ycur]:=1
else matr[xcur,ycur]:=0;
printmatrix;
ch:=readkey;
case ch of
#77: begin
xcur:=xcur+1;
if xcur>8 then xcur:=8;
curpos (xcur-1,ycur,xcur,ycur);
end;
#75: begin
xcur:=xcur-1;
if xcur<1 then xcur:=1;
curpos (xcur+1,ycur,xcur,ycur);
end;
#80: begin
ycur:=ycur+1;
if ycur>8 then ycur:=8;
curpos (xcur,ycur-1,xcur,ycur);
end;
#72: begin
ycur:=ycur-1;
if ycur<1 then ycur:=1;
curpos (xcur,ycur+1,xcur,ycur);
end;
end;
end;
' ': begin
if matr[xcur,ycur]=0 then
matr[xcur,ycur]:=1
else matr[xcur,ycur]:=0;
printmatrix;
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021