Функция пользователя FUNCTION

Состоит из 1 или нескольких операторов, но возвращает только одно значение.

Для вызова собственной функции нужно указать ее имя.

Имя собственной функции выбирает пользователь. Последний символ имени определяет тип результата, т.е. того значения, которое возвращается.

Формальные параметры записывают через запятую в круглых скобках. SR$(A,T,X)

Локальные параметры касаются тех данных, которые используются только в процедуре (функции).

Последним оператором в процедуре обязательно должен быть оператор присваивания, который присваивает имени процедуры найденный результат.

Объявление функции пользователя

FUNCTION имя функции (форм. параметр [,ф.п....]) [ STATIC ]

Оператор 1

...

[Оператор n]

имя функции = выражение

END FUNCTION

STATIC – если в теле процедуры объявляются локальные переменные, то они сохраняют свои значения в промежутке между вызовом функции.

Для запуска процедуры FUNCTION в головном модуле должен быть оператор, который содержит обращение к функции (это операторы присваивания или вывода)

Процедура – функция FUNCTION может использоваться не только в том модуле, где она определена. Чтобы сделать доступным использование функции в другом модуле, надо включить в него оператор DECLARE.

DECLARE FUNCTION имя [перемен. [() ] ] [, перемен. [()] ]...

Пример

REM извлечение корня произвольной степени

DIM SHARED ARG!, ST%

DO

INPUT”ввести аргумент”; ARG!

INPUT”ввести степень корня”; ST%

LOOP WHILE ARG! < 0

PRINT KOR! (ARG!, ST%)

END

FUNCTION KOR! (ARG!, ST%)

KOR! = ARG! ^ (1 / ST%)

END FUNCTION

Пример

REM демонстрация STATIC

DIM SHARED X

X = 2

PRINT “Z = “; Z(X)

PRINT “Z = “; Z(X)

END

FUNCTION Z (X) FUNCTION Z (X) STATIC

DIM C DIM C

C = C + 2: Z = C C = C + 2: Z = C

END FUNCTION END FUNCTION

Результат Z = 2 Результат Z = 2

Z = 2 Z = 4

Место процедуры FUNCTION - после текста основного модуля.

Ввод программы, в тексте которой находится обращение к функции, выполняется в 2 этапа:

Ввод текста головного модуля. После ввода последней строки необходимо ввести часть заголовка процедуры, а именно FUNCTION <имя> и нажать ENTER.

На экране появятся 3 строки

FUNCTION имя

-