Instrukcje warunkowe

1. if...then...else...

Instrukcje warunkowe są ważną cześcią każdego języka programowania. Dzięki nim tworzone programy nie będą tak bardzo statyczne. Sposób wykonywania programu może dzieki nim zależeć od woli użytkownika. Instrukcje warunkowe można przetłumaczyć na język polski miejwięcej tak:
jeśli coś zatem zrób to jężeli nie to wykonaj to

W języku turbo pascala można to wykonać w ten sposób:

if warunek then kod1 else kod2


Miej więcej już wiesz do czego można wykorzystać instrukcję warunkową. Główną je strukturę już też znasz. Napiszmy teraz przykłądowy kod. Będzie on sprawdzał jaką literę cyfrę wpisał użytkownik i wypisywał ją słownie.

program liczby;

var
X : Integer;

begin
writeln('Podaj liczbę z zakresu od 0 do 5');
readln(X);
writeln('Oto ta liczba zapisana słownie');
if X = 0 then writeln('zero') else begin
if X = 1 then writeln('jeden') else begin
if X = 2 then writeln('dwa') else begin
if X = 3 then writeln('trzy') else begin
if X = 4 then writeln('cztery') else begin
if X= 5 then writeln('pięć') else
writeln('!!! Podałeś nieprawiłową liczbę !!!');
end;
end;
end;
end;
end;
writeln('Aby zkończyć program naciśnij enter');
readln;
end.

2. Instrukcja case

Powyższy kod można wykonać w prostszy sposób za pomocą instrukcji case. Jest ona jakby rozbudowaniem powyżej omówionej instrukcji. Ma ona następującą strukturę:

case Zmienna of
wartość_1 : kod_1;
wartość_2 : kod_2;
wartość_3 : kod_3;
...
else kod wykonany, gdy żadna powyższa możliwośćnie nie zwróciła wartości true
end;

Chyba nic więcej nie trzeba wyjaśniać. Najlepiej zrozumiesz to na przykładzie. Oto kod programu liczby_if wykonany za pomocą instrukcji case:

program liczby_c;

var
X : Integer;

begin
writeln('Podaj liczbę z zakresu od 0 do 5');
readln(X);
writeln('Oto ta liczba zapisana słownie');
case X of
0 : writeln('zero');
1 : writeln('jeden');
2 : writeln('dwa');
3 : writeln('trzy');
4 : writeln('cztery');
5 : writeln('pięć');
else writeln('!!! Podałeś nieprawidłową liczbę !!!');
end;
writeln('Aby zkończyć program naciśnij enter');
readln;
end.