Następnym elementem językiem Pascal, który wam zaprezentuje są instrukcje warunkowe. Są 2 instrukcje IF i ELSE (występuje też łączenia, czyli: ELSE IF).

Operatory logiczne

Podstawowymi operatorami ją AND (iloczyn logiczny), OR (suma logiczna), NOT oznaczają one I, Lub, Nie.

Instrukcja IF

Jak na razie wasze programy nic nie robią oprócz wyświetlenia i pobierania informacji. Przydałoby się sprawdzić, do której grupy wiekowej należy osoba wprowadzająca dane.

Wykonamy to w bardzo prosty sposób korzystając z IF. Struktura tej instrukcji wygląda tak: IF warunek THEN instrukcja;

Na przykład: IF zmienna = ‘woda’ THEN write(‘ryba’);

Bądź instrukcje bardziej złożone takie jak: IF (warunek1) AND (warunek2) THEN instrukcja;

Przykład


PROGRAM test;
VAR
lat :Integer;
imie, nazwisko, klasa :String;
BEGIN
writeln('Wprowadz swoje imie:');
readln(imie);
writeln('Wprowadz swoje nazwisko:');
readln(nazwisko);
writeln('Ile masz lat?');
readln(lat);
IF lat = 1 THEN klasa:= 'niemowleciem';
IF (lat > 1) AND (lat 12) AND (lat 20) AND (lat 50 THEN klasa:= 'staruszekiem';
IF lat > 1 THEN writeln('Nazywasz sie ',imie,' ',nazwisko,' i mamsz ',lat,' lat. Jestes ',klasa,'.');
IF lat < 1 THEN writeln('Twoj wiek jest niedopuszczalny.');
readln;
END.


Instrukcja ELSE i ELSE IF

Instrukcja IF działa, jak jeżeli coś to coś, lecz gdy chcemy dodać jeszcze w przeciwnym wypadku coś kod powinien wyglądać tak:

IF (warunek1) AND (warunek2) THEN instrukcja1 ELSE instrukcja2;

Na przykład: IF zmienna = ‘woda’ THEN write(‘ryba’) ELSE write(’ssak’);

Dodatkowo można stosować połączenia tych znaków, czyli w przeciwnym przypadku, jeśli.

IF warunek1 THEN instrukcja1
ELSE IF warunek2 THEN instrukcja2
ELSE instrukcja3;

Przykład


PROGRAM test;
VAR
lat :Integer;
imie, nazwisko, klasa :String;
BEGIN
writeln('Wprowadz swoje imie:');
readln(imie);
writeln('Wprowadz swoje nazwisko:');
readln(nazwisko);
writeln('Ile masz lat?');
readln(lat);
IF lat = 1 THEN klasa:= 'niemowleciem'
ELSE IF (lat > 1) AND (lat 12) AND (lat 20) AND (lat 50 THEN klasa:= 'staruszekiem'
ELSE klasa:= 'blad';
IF klasa 'blad' THEN writeln('Nazywasz sie ',imie,' ',nazwisko,' i mamsz ',lat,' lat. Jestes ',klasa,'.')
ELSE writeln('Twoj wiek jest niedopuszczalny.');
readln;
END.