P°φkaz CASE

P°φkaz CASE slou₧φ k rozv∞tvenφ programu do mnoha v∞tvφ na zßklad∞ celoΦφselnΘ hodnoty. Mß tento tvar:

case v²raz of
  konstanta, ... konstanta : p°φkaz;
  konstanta, ... konstanta : p°φkaz;
  ...
  else : p°φkaz;
end;

V∞tev zaΦφnajφcφ slovem else se m∙₧e vyskytnout na libovolnΘm mφst∞ mezi ostatnφmi v∞tvemi, ale nejv²Üe jednou. Jejφ v²skyt nenφ povinn². Ka₧dß konstanta smφ b²t v p°φkazu CASE pou₧ita nejv²Üe jednou.

P°i provßd∞nφ p°φkazu CASE se nejprve vyhodnotφ v²raz. Jeho hodnota se porovnß s uveden²mi konstantami. Pokud se n∞kterß konstanta rovnß hodnot∞ v²razu, pak se provede p°φkaz nßsledujφcφ na touto konstantou. Pokud ₧ßdnß konstanta nemß stejnou hodnotu jako v²raz, pak mß-li p°φkaz v∞tev ELSE, provede se p°φkaz v tΘto v∞tvi, pokud v∞tev else schßzφ, neprovede se nic.

P°φklad

var
  i : integer;
  str : string[1];
  b : Boolean;
begin
  b := true;
  repeat
    b := Input_box("cislo",str,1);
    i := str2int(str);
    if b then
      case i of
        1    : Info_box("","JEDNA");
        2,3  : Info_box("","DVA a TRI");
        else : Info_box("","else");
      end;  
  until not b;
end.  

Viz takΘ:

Programy

Vnit°nφ programovacφ jazyk

P°φkazy vnit°nφho jazyka