Алгоритми і програми з розгалуженнями

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;

write ln (‘c=’, c); read ln

end.

Задача. Увести будь-яке значення х і обчислити значення функції у, яка задана формулою

program F1

var x,y: real;

begin

write (‘Введіть х:’);

read ln (x);

if x>0 then y:=x+3 else y:=x-5;

write ln (‘y=’,y);

read ln

end.

Повне розгалуження.

Повне розгалуження реалізують за допомогою повної команди розгалуження if.

Виконання команди:

Якщо умова виконується (в блок-схемі – вітка “так”), то виконується команда 1 (або серія команд 1), якщо ні – то команда 2 (серія команд 2).

Зауваження. На місці команди 1 та команди 2 може бути теж команда розгалуження if.

Приклад. Визначимо більше число з-поміж двох чисел: