Instrukcja Case w TP

Instrukcja ta powoduje, e w zale no ci od warto ci ZMIENNEJ, zostaje wykonana dana

ż

ż ś

ś

instrukcja. ZMIENNA musi tutaj by tzw. typu porz dkowego (czyli najcz

ciej ca kowitego lub

ć

ą

ęś

ł

znakowego, ale NIE rzeczywistego ani tekstowego - String).

Przyklad Instrukcji:

case miesiac of

1 : WriteLn(‘styczen’);

: WriteLn(‘luty’);

3 : WriteLn(‘marzec’);

end;

Przyk adowy program:

ł

program dni;

var m: Byte;

begin

Read(m);

if (m > 12) or (m < 1) then

Write('To nie jest numer miesiaca.')

else

case m of

2: Write(28);

4, 6, 9, 11: Write(30);

else Write(31);

end;
end.