GOSUB номер строки
Возврат из подпрограммы будет произведён автоматически оператором RETURN к тому оператору, который записан за оператором GOSUB. Обращение к модулю м.б. организовано из любого места основной программы сколько угодно раз.
Пример В программе надо вычислить несколько раз значение А по формуле A=(B+C)3 и напечатать результат.
Представим эту формулу в виде модуля (подпрограммы без параметров) и поместим её в конце программы. Предположим, что основная программа занимает строки с номера 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