информатика1ё / wesna / labor1 / 4в

4 вариант

Вычислить величину используя подпрограмму для вычисления C(x) с помощью суммы Процесс вычислений C(x) прекратить, когда очередной член станет меньше 10^-5.

Подпрограмма типа GOSUB

S=0: PI=3.14: X=PI/8:GOSUB M1:

S=S+C: X=PI/16: GOSUB M1

S=S+C: X=PI/32: GOSUB M1

S=S+C

PRINT “S=”; S

M1: C=1: L=-1

M2: L=L*(X^K/(K*K-1)): C=C+L: K=K+2

IF L>=0.00001 THEN GOTO M2

RETURN

Подпрограмма типа SUB

DECLARE SUB SUM (X, S1)

PI=3.14: X=PI/8: S=0

CALL SUM (X, S1)

S=S+S1: X=PI/16

CALL SUM(X, S1)

S=S+S1: X=PI/32

CALL SUM(X, S1)

S=S+S1

PRINT “S=”; S

END

SUB SUM(X,S1)

S1=1: L=-1

M1: L=L*(X^K/(K*(K-1))

S1=S1+L: K=K+2

IF L >=0.00001 THEN GOTO M1: END SUB

Подпрограмма типа FUNCTION

DECLARE FUNCTION SUM (X)

PI=3.14: X=PI/8: S=0: S=S+SUM(X)

X=PI/16: S=S+SUM(X)

X=PI/32: S=S+SUM(X)

PRINT “S=”; S

FUNCTION SUM(X)

S1=1: L=-1:

M1: L=L*(X^K/(K*(K-1))

S1=S1+L: K=K+2

IF L >=0.00001 THEN GOTO M1

SUM=S1: END FUNCTION