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

(1,14);

FloodFill (195,65,1);

Rectangle (210,60,220,70);

SetFillStyle (1,14);

FloodFill (215,65,1);

Rectangle (230,60,240,70);

SetFillStyle (1,14);

FloodFill (235,65,1);

Rectangle (190,80,200,90);

SetFillStyle (1,14);

FloodFill (195,85,1);

Rectangle (210,80,220,90);

SetFillStyle (1,14);

FloodFill (215,85,1);

Rectangle (230,80,240,90);

SetFillStyle (1,14);

FloodFill (235,85,1);

Rectangle (205,30,230,35);

SetFillStyle (1,14);

FloodFill (210,32,1);

Rectangle (240,30,255,35);

SetFillStyle (9,8);

FloodFill (245,32,1);

Rectangle (265,30,290,35);

SetFillStyle (1,14);

FloodFill (270,32,1);

Rectangle (300,30,325,35);

SetFillStyle (1,14);

FloodFill (310,32,1);

Rectangle (265,40,290,45);

SetFillStyle (1,14);

FloodFill (270,42,1);

Rectangle (300,40,325,45);

SetFillStyle (9,8);

FloodFill (310,42,1);

Rectangle (265,50,290,55);

SetFillStyle (1,14);

FloodFill (270,52,1);

Rectangle (300,50,325,55);

SetFillStyle (1,14);

FloodFill (310,52,1);

Rectangle (300,60,325,65);

SetFillStyle (1,14);

FloodFill (310,62,1);

Rectangle (265,60,290,65);

SetFillStyle (1,14);

FloodFill (270,62,1);

Rectangle (360,50,365,55);

SetFillStyle (9,8);

FloodFill (362,52,1);

Rectangle (360,40,365,45);

SetFillStyle (1,14);

FloodFill (362,42,1);

Rectangle (370,45,375,40);

SetFillStyle (1,14);

FloodFill (372,42,1);

Rectangle (360,30,365,35);

SetFillStyle (1,14);

FloodFill (362,31,1);

Rectangle (370,30,375,35);

SetFillStyle (1,14);

FloodFill (372,32,1);

Rectangle (390,25,395,30);

SetFillStyle (9,8);

FloodFill (392,28,1);

Rectangle (390,15,395,20);

SetFillStyle (1,14);

FloodFill (392,17,1);

Rectangle (375,15,380,20);

SetFillStyle (1,14);

FloodFill (378,17,1);

Rectangle (405,30,410,35);

SetFillStyle (1,14);

FloodFill (407,32,1);

Rectangle (415,30,420,35);

SetFillStyle (1,14);

FloodFill (418,32,1);

Rectangle (405,20,410,25);

SetFillStyle (9,8);

FloodFill (408,22,1);

Rectangle (415,20,420,25);

SetFillStyle (1,14);

FloodFill (418,22,1);

Rectangle (435,10,450,15);

SetFillStyle (1,14);

FloodFill (445,12,1);

Rectangle (435,20,450,25);

SetFillStyle (1,14);

FloodFill (440,22,1);

Line (55,30,110,30);

Line (110,30,110,150);

SetFillStyle (1,9);

FloodFill (60,35,1); p> Line (75,10,125,10);