ReadLn(a, b);

if first_number > = second_number

then Write ('більше з ', а, 'і ', b, '=', a)

else Write('більше з ', а, 'і ', b, '='. b);

End.

Ця програма вміє «міркувати», порівнюючи два числа і вибираючи найбільше з них. Це виявляється можливим завдяки використанню умовного оператора.

У нашої програми є невеликий недолік — у ній не передбачений випадок, коли обоє значення рівні. У даній ситуації вона повідомить, що найбільшим значенням буде перше, що з погляду математики не зовсім точно. Наступна програма вміє дати правильну відповідь і у випадку рівних значень. Нехай для розмаїтості вона буде визначати найменше значення. Результат її виконання — текстове повідомлення про те, яке значення є найменшим (або про те, що обоє значення рівні):

Program two_numbers;

var first_number, second_number: Real;

Begin

WriteLn(введіть перше число');

ReadLn(first__number);

WriteLn(введіть друге число');

ReadLn(second_number);

if first_number < second_number

then WriteLn('Найменшим є перше число')

else if first_number = second_number

then WriteLn('Уведені значення рівні')

else WriteLn('Найменшим є друге число');

End.

У програмі two_numbers використовуються вкладені умовні оператори (оператор_2 — це умовний оператор).

Найбільше часто виникаючі помилки при виконанні умовного оператора такі:

· іноді після оператора_1 ставиться знак «;», чого робити не слід. Даний символ завершує оператор, і усе, что випливає після нього до чергового символу «;», вважається наступним оператором, а це невірно!

· іноді починаються спроби зробити відразу Два порівняння, наприклад 0 < а < 1, що також помилково (про те, що робити, якщо дійсно потрібні два порівняння, буде розказано трохи пізніше).

Розглянута нами форма умовного оператора викликається повної, вона дозволяє направити виконання програми (алгоритму) по одному з двох шляхів. Таку конструкцію називають розгалуженням (за аналогією з розвилкою дерева). У Паскале є і коротка форма умовного оператора, що просто дозволяє виконувати заданий оператор, якщо виконано умову:

if умова then оператор;

Якщо умова вірна, то виконується оператор, інакше виконуватися буде наступний за умовним оператор. От ще кілька прикладів умовних операторів:

if a > = 5

else a: = 5;