Pascal programozás alap és haladó szinten!

program ZONGORA;

uses CRT;

var  q:char;

    hm:integer;

begin

  ClrScr;

  WriteLn('Egész hangok: í y x c v b n m');

  repeat

    q:=ReadKey;

    case q of

      'í','Í': hm:=262;

      'y','Y': hm:=294;

      'x','X': hm:=330;

      'c','C': hm:=349;

      'v','V': hm:=392;

      'b','B': hm:=440;

      'n','N': hm:=494;

      'm','M': hm:=523;

     else hm:=0;

   end;

  Sound(hm);Delay(6000);NoSound;

  until q=#27;

end.

A Sound(frekvencia); utasítással tudunk egy adott rezgésszámú, frekvenciájú hangot megszó­lal­tatni, és a  NoSound; utasítással tudjuk megszüntetni.

Azt, hogy különböző billentyűk lenyomásakor más-más történjék, az előző programban már megoldottuk. Az if utasítások alkalmazásával el tudjuk készíteni a „zongoránkat”.

Nézzünk egy másik megoldást! Alkalmazzuk a case utasítást!

A case kulcsszó utáni egész, karakterlánc, vagy logikai típusú változó, vagy kifejezés értékétől függ az, hogy, hogy mi történik. Az of és end kulcsszavak között adjuk meg, hogy q változó különböző értékeinél mi történjék. Például a 'c',’C’: hm:=349; utasítás értelme: amennyiben a q változó értéke c (kis c) vagy C (nagy C), akkor a hm változó értéke legyen 349. Felsoroltuk, hogy q milyen értékeinél legyen ez a frekvencia. Ez az ú.n. értéklista.

Az else kulcsszó utáni utasítás végrehajtására akkor kerül sor, ha az előző utasítások egyikét sem hajtja végre. Programunkban: más billentyűt nyomtunk le, mint amelyek a „zongorabillentyűk”.