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

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);

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);

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);