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

обходимо использовать группу операторов, то они объединяются при помощи операторных
скобок BEGIN и END.


   IF < логическое выражение >
    THEN
       BEGIN
       оператор Р11;
       оператор Р12;
       ......................
       оператор Р1i
       END
   ELSE
       BEGIN
       оператор Р21;
       оператор Р21;
       ......................
       оператор Р2i
       END
       Условие, управляющее разветвлением вычислений, не обязательно должно иметь фор-
му операции отношения. Оно может принимать вид любого логического выражения, в част-
ности, логической переменной.
       Правила написания программы позволяют записывать ее в свободной форме. Однако
для удобства восприятия программы, особенно большой и сильно разветвленной, рекомен-
дуется слово ELSE писать под тем словом IF, которому оно относится.
       Обход или краткая форма условного оператора имеет вид
       IF < логическое выражение > THEN оператор Р1;
       Если логическое выражение истинно (true), тогда выполняется оператор Р1, иначе (если
логическое выражение ложно (false) - выполняется оператор, расположенный в программе
после условного оператора IF.
       Краткой формой условного оператора нужно пользоваться осторожно, так как может
нарушиться вся структура при вложенных условных операторах. Вместо краткой формы ре-
комендуется использовать всегда полную форму, но после слова ELSE ничего не ставить
(т.е. пустой оператор).
       Пример 4. Определить, число 35 кратно ли 5?
       Рассмотрим первый случай. Число 35 кратно 5, если остаток от деления нацело равен 0.
       Фрагмент программы будет выглядеть следующим образом:
       . . .
            Write(‘ Введите число А ‘);
            Readln(A);
            Write(‘ Введите число B ‘);
            Readln(B);
                Y:= A mod B;
                IF Y=0 THEN Writeln(‘ Число ‘, A,’ кратно B ‘)
                              ELSE Writeln(‘ Число ‘, A,’ не кратно B ‘);
       Рассмотрим второй способ:
              . . .
            Write(‘ Введите число А ‘);
            Readln(A);
            Write(‘ Введите число B ‘);
            Readln(B);
              Y:= A - (a div b) * b;

                                                                                         31