Benya365

Coffin Dance

May 20th, 2020
1,855
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program coffin_dance;
  2. uses crt;
  3.  
  4. const z:array[1..12] of integer=(262,277,294,311,330,349,370,392,415,440,466,494);
  5. var dur:integer;
  6.     bpm:real;
  7.     i,j:byte;
  8.     x:array[1..12] of integer;
  9.     y:array[1..12] of integer;
  10.  
  11. procedure beep(fr:integer; dur:integer);
  12. begin
  13.     sound(fr);
  14.     delay(dur-1);
  15.     nosound;
  16.     delay(1);
  17.     writeln('Playing ', fr, ' Hz');
  18. end;
  19.  
  20. procedure pause(dur:integer);
  21. begin
  22.     nosound;
  23.     delay(dur);
  24. end;
  25.  
  26. begin    
  27.     clrscr;
  28.     for i:=1 to 12 do
  29.     begin
  30.     y[i] := round(z[i]/2);
  31.     end;
  32.     bpm := 126;
  33.     dur := round(60 / bpm * 500);
  34.     for j:=1 to 3 do
  35.     begin
  36.         beep(z[8], dur);
  37.         pause(dur);
  38.         beep(z[8], dur);
  39.         beep(z[3]*2, dur);
  40.         beep(z[1]*2, dur);
  41.         pause(dur);
  42.         beep(z[11], dur);
  43.         pause(dur);
  44.         beep(z[10], dur);
  45.         pause(dur);
  46.         beep(z[10], dur);
  47.         beep(z[10], dur);
  48.         beep(z[1]*2, dur);
  49.         pause(dur);
  50.         beep(z[11], dur);
  51.         beep(z[10], dur);
  52.         for i:=1 to 2 do
  53.         begin
  54.             beep(z[8], dur);
  55.             pause(dur);
  56.             beep(z[8], dur);
  57.             beep(z[11]*2, dur);
  58.             beep(z[10]*2, dur);
  59.             beep(z[11]*2, dur);
  60.             beep(z[10]*2, dur);
  61.             beep(z[11]*2, dur);
  62.         end;
  63.     end;
  64.     for i:=1 to 4 do
  65.     begin
  66.         beep(z[11], round(dur/2));
  67.         pause(round(dur/2));
  68.     end;
  69.     for i:=1 to 4 do
  70.     begin
  71.         beep(z[3]*2, round(dur/2));
  72.         pause(round(dur/2));
  73.     end;
  74.     for i:=1 to 4 do
  75.     begin
  76.         beep(z[1]*2, round(dur/2));
  77.         pause(round(dur/2));
  78.     end;
  79.     for i:=1 to 4 do
  80.     begin
  81.         beep(z[6]*2, round(dur/2));
  82.         pause(round(dur/2));
  83.     end;
  84.     for i:=1 to 12 do
  85.     begin
  86.         beep(z[8]*2, round(dur/2));
  87.         pause(round(dur/2));
  88.     end;
  89.     beep(z[1]*2, dur);
  90.     beep(z[11], dur);
  91.     beep(z[10], dur);
  92.     beep(z[6], dur);
  93. end.
RAW Paste Data