Алгоритми і програми з розгалуженнями, Детальна інформація

У повсякденній діяльності часто доводиться аналізувати різноманітні ситуації, умови і залежно від них приймати ті чи інші рішення.

Команди розгалуження або умовні оператори змінюють порядок виконання дій у алгоритмі в залежності від виконання чи невиконання певних умов. Розгалуження бувають декількох видів. Найпростішим видом є “неповне розгалуження”.

Неповне розгалуження реалізується за допомогою команди if (якщо):

Виконання команди: <команда> може бути один оператор або група операторів. Якщо виконується умова (в блок-схемі – вітка “так”), то виконається оператори чи група операторів після слова then. Якщо ж умова не виконується (в блок-схемі – вітка “ні”), то ця команда не буде виконуватися і буде виконуватися наступний після if оператор (команда).

Умова – це логічний вираз, які бувають прості і складені.

Простий логічний вираз – це два арифметичні вирази, з’єднані символом відношення (порівняння).

У Паскалі символи відношень записуються так:>-більше,<менше,

>= - більше або дорівнює (не менше), <= - менше або дорівнює (не більше),

= - дорівнює, < > - не дорівнює.

Наприклад: x<5; x+y>=2*x; x< >y.

Складені логічні вирази – це прості логічні вирази, до яких застосовані логічні операції not (не), and (і), or (або).

Наприклад. Побудувати вираз, який буде використовуватися для визначення студентів, які не отримали оцінки “2” з інформатики (тобто отримали інші оцінки). Для позначення оцінки використаємо числову змінну ocinka. Шуканий вираз можна записати так:

А). not(ocinka=z) або ocinka< >2.

Приклад.

Записати подвійну нерівність

0
Примітка. Прості логічні вирази, які входять у складені, записують у круглих дужках.

Приклад.



На мові Паскаль таку складену умову можна записати так:

x< >4 or x< >-5.

Задача. Скласти програму, де у змінні а та b ввести два цілих числа. Третій змінній с присвоїти значення більшого з-поміж уведених. Якщо числа рівні, то змінні с присвоїти значення будь-якого з чисел.

program twonumbers;

var a,b, c: integer;

begin

write (’Введіть два числа’);

read ln(a,b);

if a>b then c:=a;

if a
if a=b then c:=a;