Програмування Pascal, Детальна інформація
Програмування Pascal
end;
#27: exit:=true;
#13: begin
count;
exit:=true;
readkey;
end;
end;
until exit;
draw;
ramka;
end;
{************** Основная процедура задания №2 ****************}
procedure zad2;
var st:string;
shoot,exit:boolean;
tx,ty,sx,len,angle,speed,maxx,x,y,e,x1,y1:integer;
t,an,vx,vy,xx,yy:real;
label 2;
begin
randomize;
maxx:=getmaxx;
setfillpattern (full, black);
setcolor (green);
bar (11,11,maxx-21,264);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (11);
st:='Умова задачi:';
outtextxy (200,40,st);
setcolor (white);
#27: exit:=true;
#13: begin
count;
exit:=true;
readkey;
end;
end;
until exit;
draw;
ramka;
end;
{************** Основная процедура задания №2 ****************}
procedure zad2;
var st:string;
shoot,exit:boolean;
tx,ty,sx,len,angle,speed,maxx,x,y,e,x1,y1:integer;
t,an,vx,vy,xx,yy:real;
label 2;
begin
randomize;
maxx:=getmaxx;
setfillpattern (full, black);
setcolor (green);
bar (11,11,maxx-21,264);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (11);
st:='Умова задачi:';
outtextxy (200,40,st);
setcolor (white);
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021