delay.pas

Пример программы для процедур Delay, NoSound и Sound.

Код примера

  {Delay.PAS}
  {Пример программы для процедур Delay, NoSound и Sound }
 
  Uses Crt;
 
  Begin
  Sound(220);        { Звук с частотой 200 Гц } 
  Delay(200);        { На 200 миллисекунд }
  NoSound;           { Выключаем динамик }
  End.

Скачать delay.pas