Оператор условия в Pascal

E-mail Печать PDF
Рейтинг пользователей: / 16
ХудшийЛучший 

Оператор условия в Pascal

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

Структура оператора условия имеет следующий вид:

If <условие> then <оператор 1> else <оператор 2>;

где If, then, else - зарезервированные слова (если, то, иначе);

      <условие> - произвольное логическое выражение;

      <оператор 1, оператор 2> - любые операторы языка Turbo Pascal.

Условный оператор работает по следующему алгоритму. Вначале вычисляется условное выражение, если результат вычисления имеет значение ИСТИНА, то выполняется оператор или группа операторов следующих за словом then, если же выражение имеет значение ЛОЖЬ, то выполняется оператор следующий после слова else.

Следует обратить ваше внимание на то что после <оператора 1> перед словом else не ставится точка с запятой.

Существуют конструкции когда условный оператор записывается без слова else, т.е. If <условие> then <оператор 1>;. В таких случаях при вычислении логического выражения, когда результат имеет значение ЛОЖЬ, выполняется оператор следующий за оператором условия.

В случае использования не одного, а нескольких операторов после слов then или else принято заключать эти группы операторов в логические скобки begin и end.

Пример1.

Заданы целые значения x и y. Определить z := max (x2, y2).

Program primer1;

Var    z, x, y : integer;

Begin

  Readln (x, y);

  If (sqr(x) > sqr(y)) then z := sqr(x)

                               else z := sqr(y);

  Write ('Z = ', z);

End.

Пример 2

Заданы целые значения x и y. Определить z := max (x, y) и b := min (x, y).

Program primer2;

Var    z, b, x, y : integer;

Begin

  Readln (x, y);

  If (x > y) then begin

                         z := x;

                         b := y;

                       end

                else begin

                         z := y;

                         b := x;

                       end;

  Writeln ('Z = ', z);

  Writeln ('B = ', b);

End.

 

Добавьтe Ваш комментарий

Ваше имя (псевдоним):
Ваш адрес почты:
Заголовок:
Комментарий: