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.