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
uses crt,graphABC;
var x,y: integer;
begin
setwindowsize(500,500);
hidecursor;
lockdrawing;
x:=250; y:=250;
setbrushcolor(clyellow);
setpenwidth(4);
repeat
clearwindow(clskyblue);
setpencolor(clyellow);
line(x-100,y,x+100,y);
line(x,y-100,x,y+100);
line(x-95,y-20,x+95,y+20);
line(x+95,y-20,x-95,y+20);
line(x-20,y-95,x+20,y+95);
line(x+20,y-95,x-20,y+95);
line(x-90,y-40,x+90,y+40);
line(x+90,y-40,x-90,y+40);
line(x-40,y-90,x+40,y+90);
line(x+40,y-90,x-40,y+90);
line(x-80,y-60,x+80,y+60);
line(x+80,y-60,x-80,y+60);
line(x-60,y-80,x+60,y+80);
line(x+60,y-80,x-60,y+80);
circle(250,250,60);
sleep(150);
redraw;
setpencolor(clred);
until keypressed;
end.
Объяснение:
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
uses crt,graphABC;
var x,y: integer;
begin
setwindowsize(500,500);
hidecursor;
lockdrawing;
x:=250; y:=250;
setbrushcolor(clyellow);
setpenwidth(4);
repeat
clearwindow(clskyblue);
setpencolor(clyellow);
line(x-100,y,x+100,y);
line(x,y-100,x,y+100);
line(x-95,y-20,x+95,y+20);
line(x+95,y-20,x-95,y+20);
line(x-20,y-95,x+20,y+95);
line(x+20,y-95,x-20,y+95);
line(x-90,y-40,x+90,y+40);
line(x+90,y-40,x-90,y+40);
line(x-40,y-90,x+40,y+90);
line(x+40,y-90,x-40,y+90);
line(x-80,y-60,x+80,y+60);
line(x+80,y-60,x-80,y+60);
line(x-60,y-80,x+60,y+80);
line(x+60,y-80,x-60,y+80);
circle(250,250,60);
sleep(150);
redraw;
clearwindow(clskyblue);
setpencolor(clred);
line(x-100,y,x+100,y);
line(x,y-100,x,y+100);
line(x-95,y-20,x+95,y+20);
line(x+95,y-20,x-95,y+20);
line(x-20,y-95,x+20,y+95);
line(x+20,y-95,x-20,y+95);
line(x-90,y-40,x+90,y+40);
line(x+90,y-40,x-90,y+40);
line(x-40,y-90,x+40,y+90);
line(x+40,y-90,x-40,y+90);
line(x-80,y-60,x+80,y+60);
line(x+80,y-60,x-80,y+60);
line(x-60,y-80,x+60,y+80);
line(x+60,y-80,x-60,y+80);
setpencolor(clyellow);
circle(250,250,60);
sleep(150);
redraw;
until keypressed;
end.
Объяснение: