Instrukcja wyboru (CASE-OF-ELSE)

Łukasz Dudziński • 22.02.2013 • Pascal • 0

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;

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-3 zostanie wykonana w przypadku niespełnienia warunku wcześniej};
end;

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:

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.

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ę z poza przedziału od 0 do 10 oraz 20 do 30');
    END;
    repeat until keypressed();
end.