Měla by pištet, ale to vzhledem ke kvalite dněšních speakru

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: KMP (Programy mladňakoch

Zrobil: Pavel Paták
web: www.webpark.cz/programar

Program: Sirena.pas
Subor exe: Sirena.exe

Měla by pištet, ale to vzhledem ke kvalite dněšních speakru...
{ SIRENA.PAS                              Copyright (c) Pavel Patak }
{ Mela by pistet, ale to vzhledem ke kvalite dnesnich speakru...    }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program Sirena;
Uses Crt;
Var Frekvence : Integer;
Begin
 For Frekvence:=37 to 30000 do
    Begin
       Sound(Frekvence);
    End;
 For Frekvence:=37 to 30000 do
    Begin
       Sound(30037-Frekvence);
    End;
End.