Формат записи вложенных условных операторов
IF логическое выражение THEN <блок команд 1> 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.
|
