Program zahrá 5 tónov rovnakej dĺľky (náhodne zvolenej)

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: Zadania Pascal

Autor: Pheo
web: pascalsource.ic.cz

Program: Melody.pas
Súbor exe: Melody.exe

Program zahrá 5 tónov rovnakej dĺľky (náhodne zvolenej).
{ MELODY.PAS                                     Copyright (c) Pheo }
{ Program zahrá 5 tónov rovnakej dĺžky (náhodne zvolenej).          }
{                                                                   }
{ Datum:20.04.2005                             http://www.trsek.com }
 
program melody;
uses crt;
var i:integer;
 
begin
  clrscr;
  randomize;
  for i:=1 to 10 do
    begin
       sound(100*i+random(640));
       delay(30000);
       nosound;
    end;
 
  repeat until keypressed;
end.