GOSUB номер строки

Возврат из подпрограммы будет произведён автоматически оператором RETURN к тому оператору, который записан за оператором GOSUB. Обращение к модулю м.б. организовано из любого места основной программы сколько угодно раз.

Пример В программе надо вычислить несколько раз значение А по формуле A=(B+C)³ и напечатать результат.

Представим эту формулу в виде модуля (подпрограммы без параметров) и поместим её в конце программы. Предположим, что основная программа занимает строки с номера 10 до номера 120. Подпрограмму разместим в строках 130,140,150.

10 …

…

40 GOSUB 130

…

70 GOSUB 130

…

90 GOSUB 130

…

120 END

…

130 A=(B+C)^3

140 PRINT “A=”;A

150 RETURN

Подпрограмма с параметрами используется для записи многократно повторяющихся действий для разных исходных данных. Например, надо вычислить функцию Y=X lnC + кв. корень из C для разных значений X и C. В этом случае запись программы и обращение к ней будут отличаться от предыдущей формы.

Введем новое понятие – формальные параметры. Формальные параметры – это идентификаторы переменных, предназначенные для задания исходных данных в подпрограмме. В данном примере формальными параметрами являются идентификаторы X,C, для исходных данных X,C. Результат решения в данном примере Y не может служить формальным параметром. Если формальные параметры получают конкретные значения, то они называются фактическими параметрами. Формальные параметры могут получать значение только в той программе, где производится обращение к данному модулю – подпрограмме. Тип и порядок записи формальных параметров должны быть такими же, как и формальных параметров. Из этого следует, что фактические параметры используются при обращении к подпрограмме из основной программы, а формальные параметры – в самом модуле.

При записи модуля в виде подпрограммы с параметрами надо соблюдать следующие правила.

1. Каждый модуль имеет своё особое имя в виде целого числа из диапазона 0-255.

2. Начинаются модули с оператора DEFFN, а затем идет номер, а далее в круглых скобках через запятую перечисляются формальные параметры например DEFFN целое число (формальные параметры), где в качестве формального параметра используются переменная, константа или арифметическое выражение. Формальными параметрами задают исходные данные подпрограммы.

3. Оканчиваются модули оператором возврата из подпрограммы RETURN.

Обращение к подпрограмме с параметрами образуется из любого места программы любое количество раз с помощью оператора GOSUB. Возврат из модуля осуществляется автоматически к следующему за GOSUB оператору. Следует помнить, что тип и порядок записи фактических параметров должен быть таким же, как и формальных параметров.

Пример В программе надо вычислить несколько раз значение функции Y=X lnC +C корень кв. из X, для разных значений X,C.

10 INPUT A,B

20 GOSUB 25(A,B): D=Y

…

115 GOSUB 25(2*A,A+B)

116 M=Y

…

220 END

230 DEFFN 25(X,C)

240 Y=X*LOG(C)+ C * SQR(X)

250 RETURN