Amadeusz MocartMarsz Turecki

[aeza]

witam potrzebuje zrobić tak ażeby spiker wygrał tą nutkę w programie Pascal

mogł by ktoś dokonczyć wd notatek na lekcji czestotliwość była do A5 a nutki są poza A5 więc nie wiem jak to napisać i jaka jest częstotliwośc nutek po A5 praca domowa na Jutro!

Program Mozart;

uses CRT;

Const

{dlugosc dzwieku}

N1k=1800;

N1=1200;

N2k=900;

N2=600;

N4k=450;

N4=300;

N8k=225;

N8=150;

N16k=112;

N16=75;

{czestotliwosc dzwiekow}

C4 =integer (262);

D4 =integer (294);

E4 =integer (330);

F4 =integer (349);

G4 =integer (392);

A4 =integer (440);

H4 =integer (494);

C5 =integer (523);

D5 =integer (587);

E5 =integer (659);

F5 =integer (698);

G5 =integer (784);

A5 =integer (880);

{nie wiem czy dobrze}

 

 

 

Var e4b,h4b:word;

Procedure odtwarzaj(nuta,czas:word);

begin

Sound(nuta);

Delay(czas);

end;

Begin

e4b :=Round(Sqrt(C5*D5));

h4b :=Round(sqrt(H4*C5));

 

{a wiec:)}

{polnuta?}

odtwarzaj(H4,N8);

odtwarzaj(A4,N8);

odtwarzaj(G4,N8);

odtwarzaj(A4,N8);

{ta druganuta}

odtwarzaj(C5,N4);

odtwarzaj(D5,N8);

odtwarzaj(C5,N8);

odtwarzaj(H4,N8);

odtwarzaj(C5,N8);

odtwarzaj(E5,N4);

odtwarzaj(F5,N8);

odtwarzaj(E5,N8);

odtwarzaj(D5,N8);

odtwarzaj(E5,N8);

{nie jestem pewien czy stad dobrze}

odtwarzaj(A5,N8);

odtwarzaj(A5,N8);

odtwarzaj(G5,N8);

odtwarzaj(A5,N8);

odtwarzaj(A5,N8);

odtwarzaj(A5,N8);

odtwarzaj(G5,N8);

odtwarzaj(A5,N8);

odtwarzaj(A5,N4);

odtwarzaj(A5,N4);

odtwarzaj(A5,N4);

odtwarzaj(A5,N4);

odtwarzaj(A5,N4);

odtwarzaj(G5,N4);

odtwarzaj(A5,N4);

odtwarzaj(A5,N4);

odtwarzaj(A5,N4);

odtwarzaj(G5,N4);

odtwarzaj(A5,N4);

odtwarzaj(A5,n4);

odtwarzaj(A5,N4);

odtwarzaj(G5,N4);

odtwarzaj(F5,N4);

{polnuta??????}

odtwarzaj(E5,N4);

 

end.

[aeza]

pomoże ktoś może?