![]()
|
|||||||
Выбор. Условный оператор 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:
|
|||||||
|