Програмування Pascal, Детальна інформація
Програмування Pascal
inc (angle);
if angle >90 then angle:=90;
str (angle,st);
bar (120,30,140,40);
outtextxy (120,30,st);
end;
#80: begin
dec (speed);
if speed < 0 then speed:=0;
str (speed,st);
bar (120,20,145,29);
outtextxy (120,20,st);
end;
#72: begin
inc (speed);
if speed >100 then speed:=100;
str (speed,st);
bar (120,20,145,29);
outtextxy (120,20,st);
end;
end;
end;
#27: exit:=true;
#13: begin
shoot:=true;
setcolor (black);
line (33,195,33,185);
circle (33,183,1);
circle (33,183,2);
setcolor (yellow);
if angle >90 then angle:=90;
str (angle,st);
bar (120,30,140,40);
outtextxy (120,30,st);
end;
#80: begin
dec (speed);
if speed < 0 then speed:=0;
str (speed,st);
bar (120,20,145,29);
outtextxy (120,20,st);
end;
#72: begin
inc (speed);
if speed >100 then speed:=100;
str (speed,st);
bar (120,20,145,29);
outtextxy (120,20,st);
end;
end;
end;
#27: exit:=true;
#13: begin
shoot:=true;
setcolor (black);
line (33,195,33,185);
circle (33,183,1);
circle (33,183,2);
setcolor (yellow);
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021