Паскаль в примерах. Иринчеев А.А - 36 стр.

            Y3:= 7-X;
             IF (X>=-6) AND (X>=-4) THEN Y:=Y1
                                    ELSE
                IF (X>-4) AND (X<=3) THEN Y:=Y2
                                    ELSE
                    IF (X>3) AND (X<=7) THEN Y:=Y3;
           WRITELN(‘ Ответ Y = ‘, Y:8:3);
          END.




                                 2.7. Оператор выбора CASE

      Операторная запись алгоритма выбора используется в тех случаях, когда в зависимости
от значения какого-либо выражения необходимо выполнить один или несколько последова-
тельных операторов. Оператор выбора относится к сложным и имеет следующую форму за-
писи:
      CASE <выражение> OF
      константа 1: оператор 1;
      константа 2: оператор 2;
      . . . . .
      константа n: оператор n;
      END
      Здесь CASE (в случае), OF (из), END (конец) - служебные слова.
      Оператор выбора действует следующим образом. Если значение выражения равно од-
ной из констант, то выполняется соответствующий ей оператор. Затем управление передает-
ся за пределы оператора выбора.
      Если значение выражения не совпадает ни с одной константой, то управление переда-
ется за пределы группы.
      Выражение может быть любым стандартным типом, кроме действительного (REAL). В
соответствии с этим и константа не может быть действительного типа. Тип константы дол-
жен совпадать с типов выражения. Описание констант не требуется.

     Пример 12. Ввести номер недели и вывести соответствующий ему день недели на рус-
ском и английском языках.

     PROGRAM PR12;
      VAR
        N: INTEGER;
         BEGIN
           WRITE(‘Введите номер дня недели ‘);
           READLN(N);
             CASE N OF
     1: WRITELN (‘ Понедельник - MONDAY ‘);
     2:WRITELN (‘ Вторник - TUESDAY‘);
     3:WRITELN (‘ Среда - WEDNESDAY‘);
     4: WRITELN (‘ Четверг - THURSDAY‘);
     5:WRITELN (‘ Пятница - FRIDAY‘);
     6:WRITELN (‘ Суббота - SATURDAY‘);
     7:WRITELN (‘ Воскресенье - SUNDAY‘);
             END

                                                                                       36