Doporučuji: Testy.mysteria.cz, HockeyPage.wz.cz

Pascal - hotové kódy

Klavír - hraje na Vaše přání

program klavir;
{*************************************************}
uses crt;
var klavesa: char;
    x,y, z, n, doba, vyska :integer;

const cekani=1;

{*************** deklarace procedur **********************}
procedure napis (txt: string);
begin
 writeln (txt);
end;

procedure cekej (cas:integer);
begin
  delay(cas*1000);
end;

procedure podpis;
begin
   clrscr;

napis ('autor programu: Tomas Kotlant');
   napis ('kontakt: nereknu');
   cekej(cekani);
end;

procedure piskni (cas:integer);
begin
     sound (cas*100);
     delay (doba);
     nosound;
end;

procedure helpik;
begin
 writeln ('                                 klavir:))) ');
 writeln ('a-z + A-Z ----> hudba, 1 ---> zkratit ton, 3 ----> prodlouzit ton');
 writeln ('4 ---> zvysit tony, 6 ----> snizit tony, * ---> puvodni nastaveni, 9 ---> konec');
end;

procedure UvodniNastaveni;
begin
 doba:=1000;
 vyska:=10;
 clrscr;
 helpik;
end;

procedure hudba;
begin
   klavesa:=readkey;
   x:= ord(klavesa);
   write (x);
   if (klavesa>'A') and (klavesa<'z') then
   begin
        sound (x*vyska);
        delay (doba);
        nosound;
   end;
   case klavesa of
   '1':      doba := doba-200;
   '3':      doba := doba+250;
   '4':      vyska := vyska+5;
   '6':      vyska := vyska-10;
   '*':      UvodniNastaveni;

end; {of case}
end;
  procedure kontrola;
begin
 if doba<1 then
 begin
 doba:=1;
 writeln ('Kratsi uz to byt nemuze');
 end;
 if vyska<10 then
 begin
 vyska:=10;
 writeln ('To neuslisis.');
 end;

end;

{***************** vlastni program ******************}
begin
 UvodniNastaveni;
 repeat
   hudba;
   kontrola;
 until klavesa='9' ;
 podpis;

end.

zpět na přehled kódů <