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

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;

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.

If<умова>then<команда 1>else<команда 2>;

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

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