Условный оператор IF
- предназначен для ветвления программы на два направления.
Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие.
Четыре варианта записи оператора IF:
1. If <условие> then P1 else P2;
2. If<условие>then P1;
3. If (<условие1>) or (<условие2>) then P1 else P2;
4. If (<условие1>) and (<условие2>) then P1 else P2;
где <условие>,<условие1>, <условие2> - переменные логического типа. Р1, Р2 - простые или составные операторы.
· В первом случае если условие истинно, то выполняется оператор P1, если ложно – то P2.
· Во втором варианте записана краткая форма оператора.
· В третьем и четвертом примерах два условия объединены служебными словами or (или) и and (и). В результате объединения получается новая логическая переменная, истинность которой определяется согласно следующей таблицы.
Пример для a∙x2+b∙x+c=0
Program P3;
Var a,b,c,d,x1,x2:real;
Begin
a:=1;
b:=3;
c:=5;
D:=sqr(b)-4*a*c;
If D>=0 then
Begin
X1:=(-b+sqrt(D))/2/a;
X2:=(-b-sqrt(D))/2/a;
Writeln(x1,x2);
End
Else
Writeln(‘Действ.корнейнет’);
End.