8. Výčtový typ & příkaz Case

8.1 Příklad použití

type BarvySemaforu = ( cervena, zluta, zelena );  

var Semafor : BarvySemaforu;

{je deklarován výčtový typ BarvySemaforu a proměnná Semafor tohoto typu}

8.2 Ukázky použití

• kategorie automobilů: osobní, nákladní, dodávka....

• pohlaví: muž, žena

• vojenské hodnosti: vojín, seržant, major, generál....

• měsíce: leden - prosinec

• dny v týdnu: pondělí, úterý....

  ---

8.3 Příkaz case

podmíněný příkaz dělící program do několika větví

case <výraz> of

      <hodnoty1> : <příkaz1>;

      .........

      <hodnotyN> : <příkazN;>

end

8.3.1 Poznámky

• Zde pan Wirth poněkud zažertoval: příkaz end není párový k begin, ale k case!

• Zpracování case příkazu začíná vyhodnocením <výrazu>. Najde se větev, která v levé části obsahuje výslednou hodnotu a provede se příkaz této větve.

• Pokud žádná větev nevyhovuje, dojde ve standardní verzi Pascalu k běhové chybě....

• Turbo Pascal řeší situaci, kdy žádná větev nevyhovuje, pomocí klíčového slova else (jiné implementace pak pomocí otherwise)

8.3.2 Příklad 

program vyznaky.pas:

vstupní text je ukončen zavináčem @, program počítá písmena, číslice a ostatní znaky

program PocetZnaku;

const Konec = '@';

var Znak : Char;

      Pismena, Cislice, Ostatni : Integer;

begin

      Write ( 'Kategorie znaků. ' );

      Write ( 'Ukončete vstupní text symbolem ''@''. ' );

      Pismena := 0; Cislice := 0; Ostatni := 0;

      Read ( Znak );

      while Znak <> Konec do

      begin

          case Znak of

                'a'..'z', 'A'..'Z' : Pismena := Pismena + 1;

                '0'..'9' : Cislice := Cislice + 1;

             else Ostatni := Ostatni + 1;

          end;

          Read ( Znak );

       end;

       Write ( Pismena, ' písmen; ',

        Cislice, ' číslic; ',

        Ostatni, ' ostatních znaků.' );

end.

8.3.3 Cvičení

• Program vyznaky.pas uprav tak, aby ve výsledcích vypsal také celkový počet všech vložených znaků, počet  "i" a "y".

• Napiš program, který po zadání číslice z intervalu 1 až 12 vypíše název měsíce. Zadáš-li jinou číslici, napíše upozornění, že měsíců je jen 12, pouze za bolševiků byl ještě měsíc Československo - Sovětského přátelství, zadáš-li písmenko, program požádá o číslici...

• Napiš program Semafor, který bude vypisovat barvy semaforu po stisknutí číslice (1 - zelená, 2 - žlutá, 3- červená). 

• K programu Semafor doplň blbovzdornost!