Program Sound_Demo;
Uses crt;

Procedure Beep (note, time : integer);
Begin
 If note > 0
 Then Sound (note);
 Delay (time);
 NoSound;
End;

Begin
 Beep (100, 100);
 Beep (150, 50);
End.


Оценка - 1.0 (11)
2008-03-04 • Просмотров [ 2552 ]