Выбор. Условный оператор IF. If S then A. Условный оператор CASE

Выбор

Выбор действия в зависимости от выполнения условия может быть реализован при помощи инструкций IF и CASE.

Условный оператор IF

Оператор IF реализует алгоритмическую конструкцию РАЗВИЛКА и изменяет порядок выполнения операторов в зависимости от истинности или ложности некоторого условия. Существует два варианта оператора:

If S then A

else B ; { полная развилка }

If S then A ; { укороченная развилка }.

В этих операторах:

S ¾ некоторое логическое выражение, истинность которого проверяется;

A¾ оператор, который выполняется, если выражение S истинно;

B ¾ оператор, который выполняется, если выражениеS ложно.

Так как условный оператор IFявляется единым предложением, ни перед then, ни перед else точку с запятой ставить нельзя.

Пример 1:

Вычислить значение функции y, заданной выражением

Блок-схема решения данного примера представлена на рис. 11.

Рис.11. Блок-схема примера 1.

Программа (полная развилка):

Program Example_1 ;

Var

x, y : Real ;

Begin

Write (‘ Введите число x’) ;

ReadLn (x) ;

If x > 0 then y := ln(x)

else

If x = 0 then y := 1

else y := exp(x) ;

WriteLn(‘ Значение y=‘, y)

End.

Программа (укороченная развилка):

Program Example_1 ;

Var x, y : Real ;

Label 1, 2 ,3 ;

Begin

Write(‘ Введите число x’) ;

ReadLn (x) ;

If ( x > 0 ) then Go to 1 ;

If ( x = 0 ) then Go to 2 ;

y := exp(x) ;

Go to 3;

1: y := ln(x) ;

Go to 3;

2: y := 1 ;

3: WriteLn(‘ Значение y=‘, y)

End.

Условный оператор CASE

С помощью этого оператора можно выбрать вариант из любого количества вариантов. Структура этого оператора в Turbo Pascal:

⇐ Предыдущая 123 Следующая ⇒