Měla by pištet, ale to vzhledem ke kvalite dněšních speakru
Delphi & Pascal (česká wiki)
Kategorija: KMP (Programy mladňakoch
Zrobil: Pavel Paták
web: www.webpark.cz/programar
Program: Sirena.pas
Subor exe: Sirena.exe
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.