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

Задание 3

Вычислить величину

используя подпрограмму вычисления S(U) с помощью

Процесс вычисления S(U) прекратить, когда очередной член станет меньше 10^-5. Значения U ввести в процессе выполнения программы.

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

INPUT U

X=U: GOSUB M1

S1=S: X=U^2+1: GOSUB M1

S2=S: Z=(S1^2+S1)/(1+ABS(S2))

PRINT “Z=”; Z: END

M1: V=X: K=1: P=1: S=0

M2: S=S+V/P: K=K+1

P=P*K

V=-V*X^2

IF ABS(V/P)>0.00001 THEN GOTO M2

RETURN

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

DECLARE SUB SUMMA (X,S)

INPUT U

X=U

CALL SUMMA (X,S1)

X=U^2+1

CALL SUMMA (X,S2)

Z=(S1^2+S1)/(1+ABS(S2))

PRINT “Z=”; Z

END

SUB SUMMA (X,S)

V=X: K=1: P=1: S=0

M1: S=S+V/P

K=K+1: V=-V*X^2

P=P*K*(K+1)

IF ABS(V/P)>0.00001 THEN GOTO M2

END SUB

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

CLS

DECLARE FUNCTION SUMMA (X)

INPUT U

X=U

S1=SUMMA(X): X=U^2+1

S2=SUMMA(X): Z=(S1^2+S1)/(1+ABS(S2))

PRINT “Z=”; Z

END

FUNCTION SUMMA ( X)

V=X: K=1: P=1: S=0

M1: S=S+V/P

K=K+1

P=P*K*(K+1)

V=-V*X^2

IF ABS(V/P)>0.00001 THEN GOTO M1

SUMMA=S

END FUNCTION