Реферат Графіка в Турбо Паскалі

152,165,23,8,8);

SetFillStyle (9,8);

FloodFill (248,154,1);

Circle (280,152,10);

SetFillStyle (9,8);

FloodFill (280,152,1);

arc (240,145,90,270,5);

SetFillStyle (1,7);

FloodFill (240,145,1);

SetColor (6);

Line (435,230,370,240);

Line (440,215,390,230);

Line (435,230,435,300);

Line (425,240,370,260);

Line (425,240,425,300);

Line (425,300,435,300);

Line (435,295,440,295);

Line (440,215,440,295);

Line (391,230,351,185);

Line (328,200,355,185);

Ellipse (365,210,160,290,33,50);

Line (340,185,340,193);

Circle (340,178,10);

SetFillStyle (1,6);

FloodFill (340,178,6);

Line (352,188,390,135);

Line (355,190,390,140);

Line (390,140,390,135);

Line (335,200,288,210);

Line (335,205,288,215);

SetFillStyle (8,1);

FloodFill (353,189,6);

SetFillStyle (1,1);

FloodFill (380,152,6);

Line (288,210,280,178);

Line (288,215,275,185);

Line (275,185,280,178);

SetFillStyle (1,1);

FloodFill (277,185,6);

SetColor (0);

Ellipse (395,200,0,360,5,3);

Line (390,200,390,210);

Line (400,200,400,210);

SetFillStyle (9,6);

FloodFill (395,200,0);

Arc (395,208,150,0,5);

SetFillStyle (1,7);

FloodFill (395,208,0);

SetColor (1);

Line (500,100,500,400);

Line (520,100,520,400);

Ellipse (510,100,0,200,10,10);

Ellipse (510,396,200,0,10,10);

SetFillStyle (1,6);

FloodFill (513,105,1);

Ellipse (485,130,10,160,25,25);

Ellipse (535,115,19,160,25,25);

Ellipse (460,138,10,170,16,16); p> Ellipse (460,138,160,8,15,8);

SetFillstyle (1,14);

FloodFill (463,140,1);

begin

Ellipse (560,122,10,170,16,16);

Ellipse (560,122,160,8,15,8);

SetFillStyle (1,14);

FloodFill (562,125,1);

Delay (30000);

SetFillStyle (1,0);

FloodFill (562,125,1); p> Delay (30000);

SetFillStyle (1,14);

FloodFill (562,125,1);

Delay (30000);

SetFillStyle (1,0);

FloodFill (562,125,1);

Delay (30000);

SetFillStyle (1,14);

FloodFill (562,125,1);

Delay (30000);

SetFillStyle (1,0);

FloodFill (562,125,1);

Delay (30000);

SetFillStyle (1,14);

FloodFill (562,125,1);

Delay (30000);

SetFillStyle (1,0);

FloodFill (562,125,1);

Delay (30000);

SetFillStyle (1,14);

FloodFill (562,125,1);

Delay (30000);

SetFillStyle (1,0);

FloodFill (562,125,1);

Delay (30000);

SetFillStyle (1,14);

FloodFill (562,125,1);

Delay (30000);

Set...