Program Procedury_Graficzne; uses graph; var karta,tryb:integer; sciezka:string; Begin sciezka:='c:\szkola\bp\bgi'; DetectGraph(karta,tryb); InitGraph(karta,tryb,sciezka); Rectangle(10,30,90,180); SetFillStyle(1,Red); Bar(150,30,230,180); SetFillStyle(2,Blue); Bar3d(290,30,370,180,10,true); SetFillStyle(3,Green); Bar3d(430,30,510,180,10,false); OutTextXY(10,190,'Rectangle'); OutTextXY(150,190,'Bar'); OutTextXY(290,190,'Bar3d z daszkiem'); OutTextXY(430,190,'Bar3d bez daszku'); Circle(50,270,40); Ellipse(170,270,0,360,15,40); SetFillStyle(1,Magenta); FillEllipse(290,270,40,15); Arc(420,270,45,135,40); SetFillStyle(1,Yellow); PieSlice(540,270,20,160,40); OutTextXY(10,330,'Circle'); OutTextXY(150,330,'Ellipse'); OutTextXY(250,330,'FillEllipse'); OutTextXY(400,330,'Arc'); OutTextXY(500,330,'PieSlice'); OutTextXY(10,450,'Wcisnij ENTER aby wypelnic puste figury.'); ReadLn; SetFillStyle(1,Cyan); FloodFill(20,50,White); FloodFill(50,270,White); FloodFill(170,270,White); Readln; CloseGraph; end.