Informatica

Grafica

Program O1;
 

uses GraphABC;

 

begin
 setwindowsize(800,600);
setpencolor(cllightblue);
setbrushcolor(cllightblue);
rectangle(0,0,800,400);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,400,800,600);
setpencolor(clblack);
setbrushcolor(clSilver);
rectangle(50,300,250,500);
rectangle(250,500,500,300);
line(50,300,150,200);
line(150,200,250,300);
line(400,200,500,300);
line(150,200,400,200);
floodfill(170,250,clsilver);
floodfill(300,250,clMaroon);
setbrushcolor(clblue);
rectangle(110,360,190,440);
rectangle(280,360,360,440);
setbrushcolor(clSilver);
rectangle(280,180,320,230); 
setbrushcolor(clMaroon);
rectangle(400,350,470,500);
setbrushcolor(clred);
circle(150,270,20);
setbrushcolor(clBrown);
rectangle(640,400,670,500);
setbrushcolor(clgreen);
ellipse(570,150,750,420);
end.


 

                           REZULTAT