ELSEIFлогическое выражение THEN

< блок команд 2> ]

……………………..

ELSE

< блок команд n> ]

END IF

Пример3

Составить программу вычисления функции:

1 вариант

IF Z< 0 THEN

F=Z-5/Z^2

ELSEIF Z< =1 THEN

F=Z^2-1

ELSE

F=1/(1-Z)

ENDIF

PRINT " F="; F

END

2 вариант

IF Z< 0 THEN F=Z-5/Z^2

IF Z< =1 AND Z> =0 THEN F=Z^2-1

IF Z> 1 THEN F=1/(1-Z)

PRINT " F="; F

END

Для самостоятельного решения:

Составить программу определения кислотности раствора с помощью лакмусовой бумажки. Напомним, что, если бумажка окрашивается в красный цвет - раствор кислотный; синий - раствор щелочной; не меняет цвет - раствор нейтральный.

Множественный выбор (SELECT CASE)

Формат

SELECT CASE арифм_выражение или симв_выражение

CASE условие 1

< блок команд 1>

CASE условие 2

< блок команд 2>

……………….

[CASE ELSE

< блок команд n> ]

END SELECT

Условие оператора CASE можно указать в одном из трех форматов:

1) CASE константа 1, константа 2, …

2) CASE IS знак_отношения константа

3) CASE константа 1 TO константа 2

Константы в условии должны быть того же типа, что и выражение в SELECT CASE.

Алгоритм множественного выбора заключается в следующем:

§ вычисляется значение выражения, записанного в SELECT CASE.

§ проверяется, удовлетворяет ли это значение одному из указанных в CASE условий

§ если значение удовлетворяет какому-то условию, выполняется блок команд, следующий за данным CASE.

Пример

INPUT " Введите значение ", A

SELECT CASE A

CASE 1, 5

PRINT " А равно 1 или 5"

CASE IS > 5

PRINT " А больше 5"

CASE -8 TO 2.5

PRINT " А не меньше -8, но не больше 2.5"

CASE else

PRINT " Ни одно условие не выполняется"

END SELECT

После выполнения того или иного блока команд управление передается команде, следующей за END SELECT.