您所在位置：主题：[讨论]pascal的发声程序，找出问题加30分
guozhushenyu
[专家分：30] 发布于 2008-03-22 22:06:00
我编写了一个pascal发声的程序，可是不论是在free pascal还是在turbo pascal 中都无法正常发出声音来....
源代码：
program ddd;
uses crt;
var i:word;
begin
for i := 10 to 2000 do
begin
sound(i);
delay(200);
nosound;
end;
end.
请大家指教一下为什么发不出声音呢？
源代码：
program ddd;
uses crt;
var i:word;
begin
for i := 10 to 2000 do
begin
sound(i);
delay(200);
nosound;
end;
end.
请大家指教一下为什么发不出声音呢？
