Условный оператор

Если в зависимости от первоначального условия задачи, должны выполняться различные выражения, то мы будем использовать условный оператор. Условный оператор может быть записан в полной и неполной форме.

полная форма условного оператора

if  < условие>  then  <оператор 1 >  else  < оператор 2 >

неполная форма условного оператора

if  < условие>  then  <оператор >

if  then  else – зарезервированные слова (если, то, иначе)

Рассмотрим несколько примеров:

1. Даны  два  числа.  Найти большее  из  них.

var max,x,y:real;

Begin

writeln('Введите  число  x '); readln(x);

writeln(' Введите  число y '); readln(y);

if x>y then  max:=x  else  max:=y;

writeln('большее из двух = ',max);

End.

2. Даны  три  числа.  Найти  максимальное.

var max,x,y,z:real;

Begin

riteln(' Введите  три числа ');

readln(x,y,z);

if x>y then max:=x else max:=y;

if z>max then max:=z;

writeln('большее из трёх =',max);

End.

3. Задано число a. Кратно ли оно 3.

var а:longint;

Begin

writeln(' Введите число');

readln(а);

if a mod 3 =0 then writeln(a,' кратно 3’)

else  writeln(a,' не кратно 3’); 

End.