www.techinf1.fora.pl

tehran

Instrukcja ta posiada składnię:
case wyrażenie of
wartość1 : Instrukcja1;
wartość2 : Instrukcja2;
...
end;
lub tez:
case wyrażenie of
wartość1 : Intrukcja1;
wartość2 : Instrukcja2;
...
ELSE Instrukcja3
End;

Case jest rozszerzeniem if .Uzywamy go rzadko chociaz zwieksza czytelnosc kodu programu i przez to program jest duzo krotszy.

Jezeli warunek1 jest prawdziwy to wykona instrukcje 1.Jesli warunkiem prawdziwym bedzie warunek drugi to wykona instrukcje druga.Jesli warunek 1 i warunek drugi sa falszywe to wykona wszystko po slowie else.

i przyklad:

program dni_tygodnia;
var
i:integer;
begin
writeln ('podaj numer dnia tygodnia');
readln(i);
case i of
1:writeln('poniedzialek');
2:writeln('wtorek');
3:writeln('sroda');
4:writeln('czwartek');
5:writeln('piatek');
6:writeln('sobota');
7:writeln('niedziela');
end;
readln;
end.

Program jest chyba zrozumialy :> Question

If-em zajal by ten program duzo wiecej miejsca:D