no teraz programujeme hudbu v pascale (tak ze davame frekvencie a delay) neexistuje nejaky prikaz
cez ktory nacitam pesnicku ?
moj vytvor malo to byt smoke on the water (nepodarilo sa vlemi a to som to robil asi hodinu a pol
)
Kód:
program mmmm;
uses crt;
var h,i:word;
const
a:array[1..25] of word = (82,16000,87,16000,87,16000,92,16000,87,16000,82,16000,
73,16000,77,16000,82,16000,73,16000,77,16000,70,16000,73);
b:array[1..25] of word = (100,400,120,400,140,400,100,400,100,400,100,600,100,
600,200,400,200,600,200,600,200,600,250,600,300);
begin
for i:=1 to 25 do
begin
sound(1* a[i]);
delay(6*b[i]);
end;
nosound;
readln;
end.
Choď na stránku: