Програмування Pascal, Детальна інформація
Програмування Pascal
I
I
?
?
?
kd
;
line (27,200,33,195);
line (33,195,33,185);
circle (27,193,4);
setcolor (red);
circle (33,183,1);
setcolor (white);
setfillpattern (full,black);
shoot:=false;
exit:=false;
repeat
ch:=readkey;
case ch of
#0:begin
ch:=readkey;
case ch of
#77: begin
dec (angle);
if angle < 0 then angle:=0;
str (angle,st);
bar (120,30,140,40);
outtextxy (120,30,st);
end;
#75: begin
I
?
?
?
kd
;
line (27,200,33,195);
line (33,195,33,185);
circle (27,193,4);
setcolor (red);
circle (33,183,1);
setcolor (white);
setfillpattern (full,black);
shoot:=false;
exit:=false;
repeat
ch:=readkey;
case ch of
#0:begin
ch:=readkey;
case ch of
#77: begin
dec (angle);
if angle < 0 then angle:=0;
str (angle,st);
bar (120,30,140,40);
outtextxy (120,30,st);
end;
#75: begin
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021