Здравствуйте!!!!
Не могу заставить модуль Crt со мной общаться.
Решила попробовать уж на совсем простой задачке со звуком:
суть такая - набираешь октаву, ноту, он ее проигрывает....
не фига не проигрывает.
program Notka;
Uses Crt;
var
okt:integer;
nota:byte;
hz:word;
begin
readln(okt, nota);
hz:=round(440*exp(ln(2)*okt-(10-nota)/12));
sound(hz);
delay(200);
Nosound;
end.
У тебя вообще звука нету или в чем проблема ?
ps
http://forum.pascal.net.ru/index.php?showtopic=4847&st=0&p=39717entry39717
+ Пользуйся тегами в следующий раз
[quote name='klem4' date='3.12.2006 19:42' post='81800']
У тебя вообще звука нету или в чем проблема ?
Прога вообще не грузится. Divizion by zero. вот
Странно, на FPC и BP компилируется и даже какие-то звуки выдает, другое дело что рассчет возможно не верный
Какие ты данные вводишь ? Или у тебя еще до ввода DivByZero вылетает ?
Не компилирует.....