ВУЗ:
Составители:
23
ПРИМЕР 3.3
DEF FNF(X)=X^2-4
DEF FNDIF(X)
E=X*1E-6
FNDIF=(FNF(X+E)-FNF(X-E))/E/2
END DEF
. . . . . . .
FNDIF(25)
3.6.3. Процедура-функция FUNCTION … END FUNCTION
Составляет альтернативу подпрограмме-функции. Процедуры-функции
могут помимо значения функции возвращать и другие величины через меха-
низм формальных параметров. Локальные переменные могут быть объявле-
ны оператором STATIC. Применяются с оператором DECLARE. Допускает
рекурсивный вызов.
DECLARE FUNCTION имя
FUNCTION имя ([список параметров]) [STATIC].
[операторы]
имя = выражение
[операторы]
END FUNCTION
ПРИМЕР 3.4
DECLARE FUNCTION F
FUNCTION F(X)
F=X^2-4
END FUNCTION
DECLARE FUNCTION DIF
FUNCTION DIF(X) STATIC
E=X*1E-6
Y=(F(X+E)-F(X-E))/E/2
DIF=Y
PRINT DIF
END FUNCTION
3.6.4. Процедура
Вызывается отдельным оператором и не может быть частью арифмети-
ческого выражения. Позволяет возвратить в вызывающий модуль несколько
величин. Вызов процедуры реализуется с помощью оператора:
CALL имя [(список аргументов)]
или просто указанием имени процедуры с фактическими параметрами
Страницы
- « первая
- ‹ предыдущая
- …
- 21
- 22
- 23
- 24
- 25
- …
- следующая ›
- последняя »
