Програмування Pascal, Детальна інформація
Програмування Pascal
circle (tx,190-ty,1);
setcolor (green);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (white);
draw;
end;
{*********************** Задание №3 **************************}
procedure zad3;
var str:string;
exit:boolean;
a,b,c,i,x1,x2,x3:integer;
p: pointer;
size: word;
label 10;
begin
setfillpattern (full, black);
setcolor (green);
bar (11,11,maxx-21,264);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (white);
str:='Esc - вихiд.';
outtextxy (30,255,str);
randomize;
exit:=false;
setcolor (black);
setfillpattern (brick,red);
bar (11,11,maxx-21,249);
setfillpattern (full,black);
setcolor (red);
bar3d (26,24,maxx-36,236,0,topon);
setcolor (green);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (white);
draw;
end;
{*********************** Задание №3 **************************}
procedure zad3;
var str:string;
exit:boolean;
a,b,c,i,x1,x2,x3:integer;
p: pointer;
size: word;
label 10;
begin
setfillpattern (full, black);
setcolor (green);
bar (11,11,maxx-21,264);
bar3d (10,250,maxx-20,265,0,topon);
setcolor (white);
str:='Esc - вихiд.';
outtextxy (30,255,str);
randomize;
exit:=false;
setcolor (black);
setfillpattern (brick,red);
bar (11,11,maxx-21,249);
setfillpattern (full,black);
setcolor (red);
bar3d (26,24,maxx-36,236,0,topon);
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021