Подпрограммы

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

Внутренние подпрограммы должны быть согласованы по используемым переменным с главной программой. Вызов внутренних подпрограмм может быть организован с помощью операторов GOTO и GOSUB.

Примеры организации вызова подпрограмм с использованием операторов GOTO и GOSUB приведены на рисунке 9.4.12.

Оператор GOSUB M вызывает подпрограмму по указанной метке. Подпрограмма завершается оператором RETURN.После выполнения подпрограммы управление передается на оператор, следующий за оператором, вызвавшим подпрограмму.

Внимание:

1. Если в подпрограмму вошли по оператору GOSUB, то выход из подпрограммы происходит по оператору RETURN на метку, следующую за оператором, вызвавшим подпрограмму. Из подпрограммы можно выйти в этом случае и c помощью оператора GOTO на любую метку.

2. Если в подпрограмму вошли по оператору GOTO, то выйти из подпрограммы можно только по оператору GOTO. Если в этом случае программа выходит на оператор RETURN, то программа ЗАВИСАЕТ.

Внешние подпрограммы оформляются с помощью оператора SUB.

Формат оператора:

SUB <имя> [список формальных параметров]

<тело программы>

END SUB

По формату внешняя подпрограмма ничем не отличается от внешних функций. В качестве формальных параметров могут использоваться простые переменные и имена массивов любой размерности. Для их выделения в списке формальных параметров вслед за идентификатором массива ставятся круглые скобки, например:

SUB <имя_подпрограммы >(V1() AS TYPE1 [ , V2 () AS TYPE2]) [STATIC]

В данном примере для массивов V1 и V2 явно указан тип массивов, на-

значение опции STATIC такое же, как и при описании функций пользователя.

Вызов подпрограммы осуществляется оператором CALL.

Подпрограмма должна быть описана в вызывающей программе:

DECLARE SUB <имя_подпрограммы>(список параметров)

В подпрограмме не принято описывать массивы, указанные в числе фактических параметров, поэтому, чтобы узнать размерности массивов применяют функции LBOUND(V,k) и UBOUND(V,k). Эти функции выдают, соответственно, значения нижней и верхней границ индекса массивов по заданному измерению k в массиве с именем V.

Пример 9.4.18. Подпрограмма суммирования элементов двухмерного массива:

SUB SummArray(A() As REAL, S As REAL)

N1=LBOUND(A,1): M1=UBOUND(A,1)

N2=LBOUND(A,2): M2=UBOUND(A,2)

S=0

FOR I=N1 TO M1

FOR J=N2 TO M2

S=S+A(I,J)

NEXT J

NEXT I

END SUB

Возврат из внешней подпрограммы всегда происходит на оператор, следующий за оператором CALL.