Оператор ветвления (условный оператор)

условия выполняется либо одна, либо другая последовательность действий.

если – то -

иначе;

Полная форма

Неполная форма

сравнения
и принимает два значения: да или нет
IF

A>B THEN max:=A ELSE max:=B;

integer;
begin
writeln (‘введите любые два числа’);

readln (A,B);
if A>B then max:=A
else max:=B;
writeln (‘ максимальное число‘, max);
end.

вычесть

из него 50, в противном случае
прибавить к нему 100.


Задача № 2: Ввести 2 числа. Если их произведение
отрицательно, умножить его на –2 и
вывести на экран, в противном случае
увеличить его в 3 раза и вывести на экран.


Задача № 3: Ввести 2 числа. Вычесть из большего
меньшее.

Задача № 4: Ввести число. Если оно больше 8, разделить
его на 4, если меньше или равно 8, то
умножить на 5.

If x>0 then y:=x-50 else y:=x+100;

If a*b<0 then y:=a*b*(-2) else y:=a*b*3;

If A>B then C:=A-B;

If x>8 then y:=x/4 else y:=x*5;

writeln (‘введите любые два числа’);
readln (A,B);

if A>B then max:=A
else max:=B;
writeln (‘ максимальное число‘, max);
end.

1. Проверить работу программы

2. Записать программу для любой задачи (задачи из карточки), используя составленные конструкции оператора ветвления
и проверить в среде TP.