В качестве имени переменной может использоваться как простая переменная, так и переменная, инициализирующая обращение к элементу списка. В операторе присваивания допускается использовать знак = вместо :=.
Оператор безусловного перехода:
GОТО
При выполнении оператора GOTO осуществляется передача управления оператору, помеченному меткой:
Оператор выхода из процедуры:
RETURN Оператор вызова процедуры:
САLL ( ;)
Оператор цикла:
FOR :=
ТО [ STEP ]
NEXT [ ]
349
Здесь и определяют соответственно начальное и конечное числовые значения переменной цикла, a STEP задает значение шага изменения переменной цикла, при отсутствии части STEP значение шага равно 1.
Внутри тела цикла могут использоваться вложенные циклы. При организации таких циклов применяются оператор продолжения CONTINUE и оператор выхода EXIT. Оператор CONTINUE имеет вид:
CONTINUE []
При выполнении данного оператора управление передается на оператор NEXT текущего цикла либо оператору NEXT объемлющего цикла, параметром которого является переменная, указанная в операторе CONTINUE.
Оператор выхода EXIT задается в виде:
EXIT []
и инициирует передачу управления оператору, расположенному за оператором NEXT текущего цикла, либо за оператором NEXT объемлющего цикла, параметром которого является переменная, указанная в операторе EXIT.
Input Variables: fun,a,b,n Output Variables: value
S Statement---------------
; Обозначения: fun - имя правила, процедуры, списка или встроенной
; функции определения подынтегрального выражения
; а,b - верхний и нижний пределы
; n - число шагов интегрирования (четное число)
; value - значение определенного интеграла
; Описание: Стандартный метод численного интегрирования
; с полиномиальной аппроксимацией второй степени
; подынтегрального выражения
if mod(n,2)<>0 then call errmsg("odd numbers of intervals, must be even")
h = (b-a)/n
k=1
value = 0
for i = 2 to n
x = x + h
k = 3-k
value = value + k*apply(fun,x)
next i
value = (2*value + apply(fun,a) + apply(fun.b)) * h/3
Рис 25 6 Описание и использование процедуры Factorial
351
В приведенном примере apply представляет собой встроенную функцию, которая позволяет использовать ее аргумент (fun) для ссылки к имени функции, которая будет вычисляться с аргументом х. Конкретное значение fun определяется при обращении к процедуре-функции Simpson.
Пример описания и использования процедуры-функции для решения задачи вычисления 4! приведен на рис. 25.6.
В окне ТК Solver после решения задачи показаны три панели: Variable Sheet с переменными п1 (входная переменная типа Input с значением 4) и fact (выходная переменная типа Output с результирующим значением 24); Rule Sheet с правилом вычисления значения fact, содержащим обращение^ процедуре-функции Factorial; Procedure: Factorial с описанием процедуры-функции Factorial, предназначенной для вычисления п!.