Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 25 стр.

 X, Y : real;
Begin
 Readln( X ); { ввод переменной Х }
 If X >= 0 Then
        Begin       { составной оператор }
         Y :=SQRT ( X );
         WriteLn( ' Корень из Х равен ', Y : 6:2)
        End
End.
3.2.2. Операторная запись альтернативы
Выбор из двух возможностей реализуется условным оператором, имеющим следующий
синтаксис:
IF < выражение > THEN < оператор 1 > ELSE < оператор 2 >;
где ELSE ("иначе") - ключевое слово.
Если < выражение > истинно, то выполняется < оператор 1 >, в противном случае - <
оператор 2 >.
Оператор, стоящий после ключевого слова ELSE, может быть любым оператором, в том
числе и условным. Кроме того, < оператор 1> и <оператор 2> могут быть составными
операторами.
Ниже приведена одна из возможных конструкций условного оператора:
IF B1 THEN Begin  End ELSE If B2 Then  Else ;
Здесь B1 и B2 - логические условия. < Оператор 1 > представляет собой составной оператор,
а < оператор 2 > - условный оператор If - Then - Else. Если логическое условие В1 истинно,
выполнятся S1 и S2, и управление будет передано следующему в программе оператору.
Если логическое условие В1 ложно, выбирается < оператор 2 >. При его выполнении
проверяется условие В2: в случае истинности выражения В2 выполняется оператор S3, в
противном случае - S4.
Пример.
Словесная постановка задачи. Вычислить корни квадратного уравнения. Квадратное
уравнение имеет вид:
aX2 + bX + c = 0.
Словесное описание задачи:
1.     Ввести значения коэффициентов квадратного уравнения a, b и c.
2.     Вычислить значение D = b2 - 4ac.
3.     Сравнить D с нулем. Если D < 0, перейти к п. 6.
4.     Вычислить X1 = ( -b + D )/( 2a); X2 = ( -b - D )/( 2a ).
5.     Вывести на печать значения X1 и X2. Перейти к п. 7.
6.     Вывести сообщение об отсутствии действительных корней уравнения.
7.     Прекратить вычисления.
Схема алгоритма решения задачи приведена на рисунке 8.




                                                                                       25