Оператор ‘if-then’

Оператор IF-THEN(“Если-то”) форма записи имеет вид:

If(условие)ThenBegin

Оператор;

Оператор;

...

End;

Работает следующим образом: Если стоящее в скобках условие истинно, то выполняются операторы, стоящие между BeginиEnd, а если ложно – программа сразу переходит на конец оператора.

Отличие оператора If-Thenот оператораIf-Then-Elseсостоит в том, что условная структураIf-Then-Elseреализует так называемое двойное ветвление.

Пример 1. Вычислить квадратный корень из числа x.

При вводе отрицательного значения xЭВМ выведет сообщение об ошибке “InvalidFloatingPointOperation”. Нужно составить программу, которая в случае отрицательного значенияxвыводила на экран сообщение: 'Недопустимое значение', в случаеx>=0 выводила результат.

Фрагмент программы:

Write(‘x=’);Readln(x);

If (x>=0) Then

Begin

y:=Sqrt(x);

Writeln(‘Sqrt(x)=’,y:6:2);

End;

If (x<0) Then Write (‘Недопустимое значение’);

Любое условие есть величина логическая (типа Boolean), принимающая значениеTrueв том случае, когда условие истинно, иFalse– в обратном случае. В силу этого обстоятельства условие

If(x<0)thenОператор;

являет собой сокращенную запись условия

If ((x<0)=True) then Оператор;

Более краткое If(x<0)thenОператор;