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:
1 2 3 4 5 |
case {warunek} of wartosc1: {instrukcja-1}; wartosc2: {instrukcja-2}; wartosc3: {instrukcja-3 ...itd.}; end; |
Albo:
1 2 3 4 5 6 |
case {warunek} of wartosc1: {instrukcja-1}; wartosc2: {instrukcja-2}; wartosc3: {instrukcja-3 ...itd.}; else {instrukcja-3 zostanie wykonana w przypadku niespełnienia warunku wcześniej}; end; |
Przykład zastosowania instrukcji wyboru CASE-OF-ELSE
:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
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:
1 2 3 4 5 6 7 8 9 10 11 12 13 |
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ę z poza przedziału od 0 do 10 oraz 20 do 30'); END; repeat until keypressed(); end. |
Pętla iteracyjna (FOR-DOWNTO-DO) Tablice jednowymiarowe