Паскаль / курсовые / 13 / FUSS

PROGRAM FIP;
USES GRAPH,crt;
label 1;
VAR GD,GM,X,Y,I,K,t,h,m:INTEGER;

s,d:array[1..30] of integer;
BEGIN
clrscr;
gd:=detect;
initgraph(gd,gm,'');
s[1]:=466;
d[1]:=400*5;

s[2]:=294;
d[2]:=400*5;

d[3]:=30*5;

s[4]:=294;
d[4]:=400*5;

s[5]:=466;
d[5]:=400*5;

d[6]:=30*5;

s[7]:=466;
d[7]:=1000*5;

s[8]:=294;
d[8]:=400*5;

d[9]:=30*5;

s[10]:=294;
d[10]:=400*5;

s[11]:=466;
d[11]:=400*5;

d[12]:=30*5;

s[13]:=466;
d[13]:=400*5;

s[14]:=294;
d[14]:=400*5;

s[15]:=311;
d[15]:=400*5;

s[16]:=294;
d[16]:=400*5;

d[17]:=30*5;

s[18]:=294;
d[18]:=400*5;

s[19]:=262;
d[19]:=400*5;

d[20]:=30*5;

s[21]:=262;
d[21]:=400*5;

s[22]:=440;
d[22]:=400*5;

d[23]:=30*5;

s[24]:=440;
d[24]:=400*5;

s[25]:=440;
d[25]:=400*5;

d[26]:=30*5;
setcolor(15);
{бв Є ­}
ellipse(140,330,0,360,68,10);
ellipse(140,430,180,360,35,10);
line(72,330,105,430);
line(208,330,175,430);
line(140,340,140,440);
line(102,338,123,438);
line(178,338,157,438);
{Ўгвл«Є }
ellipse(500,400,180,360,70,25);
ellipse(500,200,180,360,70,25);
ellipse(530,200,0,80,40,30);
ellipse(470,200,100,180,40,30);
ellipse(500,170,180,360,37,10);
ellipse(500,30,0,360,30,10);
ellipse(500,30,0,360,20,5);
ellipse(500,40,180,360,30,10);
ellipse(500,250,180,360,70,25);
line(530,30,530,40);
line(470,30,470,40);
line(570,200,570,400);
line(430,200,430,400);
setcolor(14);
line(568,259,568,400);
line(432,259,432,400);
ellipse(500,398,180,360,68,25);
ellipse(500,255,180,360,68,25);
setcolor(15);
setfillstyle(11,15);
floodfill(500,300,14);
line(537,170,520,100);
line(463,170,480,100);
line(520,100,520,50);
line(480,100,480,50);
delay(4000);
setcolor(0);


setfillstyle(11,0);
floodfill(500,300,14);
line(568,259,568,400);
line(432,259,432,400);
ellipse(500,398,180,360,68,25);
ellipse(500,255,180,360,68,25);
{Ўгвл«Є  бвҐа« бм}
setcolor(0);
ellipse(500,400,180,360,70,25);
ellipse(500,200,180,360,70,25);
ellipse(530,200,0,80,40,30);
ellipse(470,200,100,180,40,30);
ellipse(500,170,180,360,37,10);
ellipse(500,250,180,360,70,25);
ellipse(500,30,0,360,30,10);
ellipse(500,30,0,360,20,5);
ellipse(500,40,180,360,30,10);
line(530,30,530,40);
line(470,30,470,40);
line(570,200,570,400);
line(430,200,430,400);
line(537,170,520,100);
line(463,170,480,100);
line(520,100,520,50);
line(480,100,480,50);
delay(500);
setcolor(15);

{Ўгвл«Є  1 }
ellipse(500,100,270,90,25,70);
ellipse(300,100,270,90,25,70);
line(500,170,300,170);
line(500,30,300,30);
ellipse(305,130,190,260,30,40);
ellipse(305,70,100,170,30,40);
ellipse(275,100,270,90,10,37);
line(275,65,205,82);
line(154,115,525,115);
line(276,136,205,117);
line(133,115,140,115);
line(205,82,155,82);
line(210,118,154,118);
setfillstyle(11,15);
floodfill(400,120,15);
floodfill(300,120,15);
ellipse(136,100,0,360,10,30);
ellipse(136,100,0,360,5,20);
ellipse(146,100,270,90,10,30);
line(136,130,146,130);
line(136,70,146,70);
floodfill(280,120,15);
floodfill(133,117,15);
delay(9000);
for i:=115 to 440 do begin
putpixel(trunc(133+4*sin(i/30)),i,15);
putpixel(trunc(140+4*sin(i/30)),i,15);
delay(50);
end;
m:=430;
t:=34;
for i:=1 to 26 do begin
if (i=3) or (i=6) or (i=9) or (i=12) or (i=17) or (i=20) or (i=23) or (i=26)
then begin nosound ; goto 1; end;
sound(s[i]);
1:ellipse(140,m,180,360,t,10);
t:=t+1;
m:=m-3;
delay(d[i]);
end;

readln;
closegraph;
end.