Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 42 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

В случае группы действий за then или else используем операторные
скобки.
Обратите внимание на синтаксис: между словами
begin и end стоят опе-
раторы, следуя правилу языка Паскаль: они отделены точкой с запятой.
Перед словом ELSE точки с запятой не может быть, так как это один
оператор, состоящий из слов IF...THEN...ELSE.
2.4. Вложенные операторы IF
Задача 3
Определить, попадает ли число Х в интервал от –2 до 13.
Мы должны проверить два условия:
1)
Х должно быть больше –2. Если это условие является истиной, то
проверяем второе условие;
2)
Х должно быть меньше 13. В том случае, когда оба условия выпол-
няются, мы можем сказать, что данное значение Х удовлетворяет условию:
–2 < x < 13.
Как это записать? Рассмотрим три программы для решения этой задачи.
Program Lab3_3_1;
{Случай 1}
{Попадает ли Х в интервал –2 < X < 13}
Uses Crt;
Var X: Integer;
Begin
ClrScr;
WriteLn('Программа вычисляет попадание Х в интервал');
WriteLn('Введи X');
Read(X);
If (X > –2) Then
If (X < 13) Then
WriteLn ('Х = ', X, 'попадает в интервал')
Else
WriteLn('Х > = 13 – не попадает в интервал', ' X = ', X)
Else
WriteLn('Х < = – 2 – не попадает в интервал', ' X = ', X);
ReadKey;
End.
Здесь мы видим, что два оператора IF вложены друг в друга. Вложен-
ность операторов IF неограниченна.
Program Lab3_3_2;
{Случай 2}
{Попадает ли Х в интервал –2 < X < 13}
Uses Crt;
Var X: Integer;
42
    В случае группы действий за then или else используем операторные
скобки.
    Обратите внимание на синтаксис: между словами begin и end стоят опе-
раторы, следуя правилу языка Паскаль: они отделены точкой с запятой.
    Перед словом ELSE точки с запятой не может быть, так как это один
оператор, состоящий из слов IF...THEN...ELSE.

    2.4. Вложенные операторы IF

     Задача 3
     Определить, попадает ли число Х в интервал от –2 до 13.
     Мы должны проверить два условия:
     1) Х должно быть больше –2. Если это условие является истиной, то
проверяем второе условие;
     2) Х должно быть меньше 13. В том случае, когда оба условия выпол-
няются, мы можем сказать, что данное значение Х удовлетворяет условию:
–2 < x < 13.
     Как это записать? Рассмотрим три программы для решения этой задачи.

    Program Lab3_3_1; {Случай 1}
    {Попадает ли Х в интервал –2 < X < 13}
    Uses Crt;
         Var X: Integer;
    Begin
         ClrScr;
         WriteLn('Программа вычисляет попадание Х в интервал');
         WriteLn('Введи X');
         Read(X);
              If (X > –2) Then
                    If (X < 13) Then
                    WriteLn ('Х = ', X, 'попадает в интервал')
              Else
                    WriteLn('Х > = 13 – не попадает в интервал', ' X = ', X)
              Else
                    WriteLn('Х < = – 2 – не попадает в интервал', ' X = ', X);
    ReadKey;
    End.

    Здесь мы видим, что два оператора IF вложены друг в друга. Вложен-
ность операторов IF неограниченна.

    Program Lab3_3_2; {Случай 2}
    {Попадает ли Х в интервал –2 < X < 13}
    Uses Crt;
         Var X: Integer;
                                      42

Страницы