Instrukcja wyboru (CASE-OF-ELSE)
Instrukcja wyboru CASE-OF-ELSE jest w Pascalu wykorzystywana do zapisywania rozgałęzienia obliczeń.
Ogólna składnia instrukcji CASE wygląda następująco:
case {warunek} of
wartosc1: {instrukcja-1};
wartosc2: {instrukcja-2};
wartosc3: {instrukcja-3 ...itd.};
end;
Albo:
case {warunek} of
wartosc1: {instrukcja-1};
wartosc2: {instrukcja-2};
wartosc3: {instrukcja-3 ...itd.};
else {instrukcja-4 zostanie wykonana, gdy żadna z podanych wartości nie pasuje};
end;
Przykład zastosowania instrukcji wyboru CASE-OF-ELSE:
PROGRAM instrukcjaCase;
USES crt;
VAR ocena:byte;
BEGIN
ClrScr;
writeln('Podaj swoją ocenę z informatyki w formie liczby: ');
read(ocena);
CASE ocena OF
1: write('Niedostateczny');
2: write('Dopuszczający');
3: write('Dostateczny');
4: BEGIN
writeln('Dobry');
write('Gratulujemy!');
END;
5: write('Bardzo dobry!');
6: write('Celujący!');
ELSE write('Podałeś nieprawidłową ocenę, spróbuj jeszcze raz...');
END;
repeat until keypressed();
end.
oraz:
PROGRAM instrukcjaCase;
USES crt;
VAR liczba:byte;
BEGIN
ClrScr;
writeln('Podaj dowolną liczbę całkowitą: ');
read(liczba);
CASE liczba OF
0..10,20..30: writeln('Podałeś liczbę z przedziału od 0 do 10 lub 20 do 30');
ELSE writeln('Podałeś liczbę spoza przedziału od 0 do 10 oraz 20 do 30');
END;
repeat until keypressed();
end.
