Подпрограмма общего вида

Это подпрограмма имеет следующую структуру:

SUB имя [(список параметров)] [STATIC]

Операторы подпрограммы

END SUB

Для обращения к подпрограмме общего вида служит оператор

[CALL] имя подпрограммы [(список аргументов)]

Используем подпрограмму общего вида для решения примера 10.

REM “Основная программа”

DECLARE SUB P(X,R)

CALL P(1/2,R1)

CALL P(1/2,R2)

CALL P(1/2,R3)

U=R1+R2+R3

PRINT “U=”;U

END

REM “Подпрограмма”

SUB P(X,R)

S=0: K=1

WHILE ABS(X^K/K^2)>1E-4

S=S+X^K/K^2

K=K+1

WEND

END SUB

Для решения примера 11.

REM “Основная программа”

DECLARE SUB SP(X(),Y(),N,S)

INPUT K,M

DIM A(1 TO K),B(1 TO K),C(1 TO M),D(1 TO M)

FOR I=1 TO K

INPUT A(I),B(I)

NEXT

FOR I=1 TO M

INPUT C(I),D(I)

NEXT

CALL SP(A(),B(),K, S1)

CALL SP(C(),D(),M, S2)

PRINT S1,S2

END

REM “Подпрограмма”

SUB SP(X(),Y(),N,S)

S=0

FOR I=1 TO N

S=S+X(I)*Y(I)

NEXT

END SUB