Lekcja 5.
Instrukcja warunkowa w Turbo Pascalu.
Instrukcja warunkowa to element prawie każdego programu pascalowego. Nie można zapomnieć o jej strukturze i popełnić błędu.
Jeżeli chcemy w programie podejmować decyzje na podstawie spełnienia lub, nie spełnienia warunku używamy w Pascalu instrukcji alternatywy.
IF warunek
THEN instrukcja 1 ELSE instrukcja 2
Jeżeli warunek zostanie spełniony, to zostanie wykonana instrukcja 1 – w innym przypadku zostanie wykonana instrukcja 2.
Znając składnię instrukcji warunkowej możemy już swobodnie pisać programy:
Zadanie 1.
Napisz program, który sprawdzi trzy warunki, czy wprowadzona przez użytkownika liczba jest:
a) równa zero, b) większa niż zero, c) mniejsza od zera.
Program sprawdzanie_liczb;
USES CRT;
var
liczba:REAL;
Begin
CLRSCR;
Writeln ('Podaj dowolną liczbę rzeczywistą: ');
Readln (x);
IF liczba>0 THEN Writeln ('Podana liczba jest większa od zera');
IF liczba<0 THEN Writeln ('Podana liczba jest mniejsza od zera');
IF liczba=0 THEN Writeln ('Podana liczba jest równa zero');
Repeat Until Keypressed;
End.
Ten prosty program sprawdzi nasze warunki i w przypadku poprawności warunku wypisze odpowiedni komunikat.
Zadanie 2.
Napisz program z wykorzystaniem funkcji maximum, który wyświetli większą z dwóch liczb całkowitych.
Program maximum;
USES CRT;
var
liczba1, liczba2, max: integer;
Begin
CLRSCR;
Writeln ('Podaj pierwszą z liczb: ');
Readln (liczba1);
Writeln ('Podaj drugą z liczb: ');
Readln (liczba2);
IF liczba1>liczby2 THEN max:=liczba1 ELSE max:=liczba2;
Writeln(‘Większą z podanych przez ciebie liczb to: ',max);
Repeat Until Keypressed;
End.
Zwróć uwagę na instrukcję przypisania max:=liczba1. Instrukcja przypisania:
:=
pozwala przypisywać zmiennym różne wartości i w łatwy sposób używać ich w dalszym ciągu programu.
Kolejnym elementem na który musimy zwrócić uwagę jest brak średnika przed instrukcją ELSE.
Marek Pauli