Studiando il Pascal a scuola ho curiosato sul libro e ho visto che si possono scrivere programmi audio. Mi sono messo a studiare e ho scritto un programma che in teoria dovrebbe suonare le note di una musica classica. Il problema è che su linux non esce audio dallo speaker, su win7 fa sempre lo stesso suono mentre su xp funziona.
Come mai?
Vi allego il codice:
Codice: Seleziona tutto
program Audio;
uses Crt;
var
x,i :integer;
procedure a(x: integer);
begin
sound(x);
delay(1000);
nosound;
end;
begin
clrscr;
writeln('stai ascoltando una canzone');
for i:=1 to 4 do
begin
a(392);a(262);a(330);
end;
for i:= 1 to 4 do
begin
a(440);a(294);a(349);
end;
for i:= 1 to 4 do
begin
a(392);a(294);a(349);
end;
for i:=1 to 4 do
begin
a(392);a(262);a(330);
end;
end.
