Условные операторы и операторы цикла

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

Условными принято называть такие операторы или их сочетания, в результате работы которых вырабатываются указания о выполнении или невыполнении каких-либо операций.

ВPascal используются следующие конструкции:

If <условие> Then

Оператор, работающий при выполнении условия

Else

Оператор, работающий при невыполнении условия.

Если после Then и/или Else стоит необходимо выполнить несколько операций то вводят операторные скобки Begin … End;

If <условие> Then

Begin

<Операторы, работающие при выполнении условия>

End

Else

Begin

<Операторы, работающие при невыполнении условия>

End;

Это – базовая конструкция, она может иметь различные разновидности. Рассмотрим ситуацию на конкретных примерах.

Пример1: Ввести 3 целых числа и выдать на печать наибольшее из них.

Program Prim1;

Var

a,b,c,max: Integer;

Begin

Write ('Введите через пробел 3 целых числа'); ReadLn( a,b,c);

If (a>=b) and (a>=c) Then max:= a;

If (b>=a) and (b>=c) Then max:= b;

If (c>=a) and (c>=b) Then max:= c;

WriteLn ('Max= ',max);

End.

Пример2. Значения функции вычисляются для положительных аргументов по формулеy = x²/sin(x),а для отрицательных – по формулеy = cos(x²).Найти значение функции при аргументе, введённом с клавиатуры.

Program Prim2;

Var

x,sx,y: Real;

Begin

Write ('Введите X='); ReadLn (x);

If x>0 Then

Begin

sx:= Sqr(x);

y:= sx/Sin(x);

End

Else y:= Cos(Sqr(x));

WriteLn ('Y(',x,')=',y);

End.