Internetowy kurs programowania w Turbo Pascalu - www.kurstp.republika.pl








26.07.2004
 Lekcja 6


  W pewnym momencie podczas pisania programu może pojawić się sytuacja, w której wykonanie dalszej części instrukcji zależy od spełnienia jakiegoś warunku. W Turbo Pascalu do sprawdzania warunków służą instrukcje warunkowe. Na razie poznamy tylko if. Instrukcja if prezentuje się następująco:

if (warunek) then
Instrukcja;


  Program podczas napotkania instrukcji warunkowej if, najpierw sprawdza czy warunek ujęty w nawiasie jest prawdziwy, jeżeli tak to zostaje wykonana instrukcja znajdująca się zaraz po słowie then, w przeciwnym razie program pomija tę instrukcję i przechodzi do kolejnej. Ale co zrobić, jeżeli chcemy wykonać kilka instrukcji, a nie tylko jedną? Wtedy należy wszystkie instrukcje ująć w bloku "begin ... end;". Jak to zrobić dokładnie, wyjaśnia poniższy listing.

if (warunek) then
begin
Instrukcja 1;
Instrukcja 2;
............
Instrukcja n;
end;


  Należy zwrócić uwagę, że w tym przypadku po słowie end nie występuje kropka tylko średnik! Poniżej znajduje się prosty program prezentujący użycie instrukcji warunkowej if.

program Quiz;
var
Odp : char;
begin
Writeln(ęW którym roku zostala opublikaowana pierwsza ksiazka na temat Turbo
Pascala?ł);
Writeln(ęA : 1969ł);
Writeln(ęB : 2004ł);
Writeln(ęC : 1974ł);
Writeln(ęD : 1971ł);
Read(Odp);

if (Odp = ęCł) then
begin
Writeln; {Pusta linia}
Writeln(ęBrawo! To prawidlowa odpowiedz);
Readln; {Czekaj na ENTER}
end; {Koniec if ... then}

Readln; {Czekaj na ENTER}
end.


  Chciałbym jeszcze poświęcić trochę uwagi operatorom relacji, które umożliwiają nam określanie warunku. W powyższym programie podczas sprawdzania warunku, który miał postać "Odp = 'C'" użyliśmy operatora porównania. Zwraca on prawdę, jeżeli porównywane wartości są równe, lub fałsz, gdy wartości są sprzeczne. W Turbo Pascalu istnieje kilka takich operatorów, które warto by było przedstawić.

OPERATORY REALCJII



Operator


Znaczenie


Przykład





=


  Sprawdza czy obie wartości są równe.


(n = 100)








  Sprawdza czy obie wartości nie są równe.


(n 100)





>


  Sprawdza czy pierwsza wartość jest większa  od drugiej.


(n > 100)





<


  Sprawdza czy pierwsza wartość jest   mniejsza od drugiej.


(n < 100)





>=


  Sprawdza czy pierwsza wartość jest większa  bądź równa drugiej.


(n >= 100)