1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
| uses crt,graph;
var q,w,e,xqwe,yqwe:integer;
procedure mir;
begin
setcolor(2);
setfillstyle(1,2);
bar(640,480,0,250);
setfillstyle(1,6);
setcolor(6);
line(566,216,566,250);
line(572,187,566,216);
line(600,163,572,187);
line(631,169,600,163);
line(636,168,631,169);
line(618,163,636,168);
line(626,151,618,163);
line(622,150,626,151);
line(616,160,622,150);
line(607,158,616,160);
line(628,121,607,158);
line(638,128,628,121);
line(639,122,638,128);
line(630,120,639,122);
line(632,76,630,120);
line(628,112,632,76);
line(607,100,628,112);
line(606,106,607,100);
line(625,119,606,106);
line(605,148,625,119);
line(572,167,605,148);
line(580,95,572,167);
line(602,62,580,95);
line(624,63,602,62);
line(604,60,624,63);
line(614,29,604,60);
line(620,17,614,29);
line(614,15,620,17);
line(612,27,614,15);
line(585,18,612,27);
line(609,30,585,18);
line(599,51,609,30);
line(581,76,599,51);
line(586,34,581,76);
line(556,21,586,34);
line(578,35,556,21);
line(576,69,578,35);
line(561,106,576,69);
line(556,132,561,106);
line(556,131,556,132);
line(526,115,556,131);
line(523,122,526,115);
line(553,143,523,122);
line(553,169,553,143);
line(548,205,553,169);
line(544,249,548,205);
line(567,250,544,249);
FloodFill(569,138,6);
setcolor(14);
setfillstyle(1,14);
circle(103,51,40);
FloodFill(120,45,14);
setfillstyle(1,3);
setcolor(3);
line(260,105,239,70);
line(294,111,260,105);
line(312,115,294,111);
line(323,115,312,115);
line(332,114,323,115);
line(343,112,332,114);
line(352,111,343,112);
line(367,110,352,111);
line(378,113,367,110);
line(385,116,378,113);
line(395,120,385,116);
line(409,119,395,120);
line(420,115,409,119);
line(432,110,420,115);
line(452,103,432,110);
line(475,99,452,103);
line(482,90,475,99);
line(471,74,482,90);
line(452,66,471,74);
line(420,62,452,66);
line(378,60,420,62);
line(355,54,378,60);
line(325,44,355,54);
line(275,50,325,44);
line(249,55,275,50);
line(249,55,249,55);
line(239,70,249,55);
FloodFill(375,77,3);
end;
{++++++++++++++++++++++}
procedure tas(aaa:integer);
begin
setcolor(6);
setfillstyle(1,6);
circle(212+aaa,240,10);
line(238+aaa,242,201+aaa,239);
line(248+aaa,226,238+aaa,242);
line(204+aaa,224,248+aaa,226);
line(201+aaa,239,204+aaa,224);
line(220+aaa,240,201+aaa,239);
line(211+aaa,248,214+aaa,231);
line(220+aaa,235,206+aaa,245);
line(295+aaa,235,240+aaa,239);
setfillstyle(1,4);
setcolor(4);
line(320+aaa,241,278+aaa,239);
line(323+aaa,234,320+aaa,241);
line(304+aaa,232,323+aaa,234);
line(305+aaa,216,304+aaa,232);
line(279+aaa,221,305+aaa,216);
line(278+aaa,239,279+aaa,221);
setcolor(9);
circle(292+aaa,242,13);
circle(316+aaa,245,3);
circle(315+aaa,245,5);
circle(293+aaa,243,5);
circle(293+aaa,244,8);
end;
begin
q:=detect;
initgraph(q,w,'');
mir;
xqwe:=184;
repeat
xqwe:=xqwe+1;
setfillstyle(1,0);
BAR (50,0,544,249);
setfillstyle(1,2);
bar(0,249,640,480);
tas(xqwe-250);
delay(10);
until (keypressed) or (xqwe>=470);
repeat
xqwe:=xqwe-1;
setfillstyle(1,0);
BAR (50,0,544,249);
setfillstyle(1,2);
bar(0,249,640,480);
tas(xqwe-250);
delay(10);
until (keypressed) or (xqwe<=400);
closegraph;
end. |
(
