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

Задание 9

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

где

Использовать подпрограмму вычисления y. Вычисление суммы прекратить, когда очередной член станет меньше 10 ⁴.

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

PI=3.14: X=0.5

GOSUB T1

t=SIN(2*S/PI)

X=1/3

GOSUB T1

t = t +SIN(3*S/PI)

X=0.25

GOSUB T1

t= t+SIN(6*S/PI)

PRINT “t=”; t

END

T1: S=1: i=1: P=1

T2: P=P*X

A=(-1)^I*P/(i+1)^2

S=S+A

i=i+1

IF ABS(A)>0.0001 THEN GOTO T1

RETURN

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

CLS: DECLARE SUB Y(X!, S!): PI=3.14

CALL Y (0.5, S)

t=SIN(2*S/PI)

CALL Y(1/3, S)

t= t+SIN(3*S/PI)

CALL Y(0.25 ,S)

t=t+SIN(6*S/PI)

PRINT “t=”; t

END

‘ ПОДПРОГРАММА '

SUB (Y ,S)

S=1: i=1: P=1

M1: P=P*X

A=(-1)^I*P/(i+1)^2

S=S+A: i=i+1

IF ABS(A)>0.0001 THEN GOTO M1

END SUB

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

CLS: DECLARE FUNCTION Y! (X!)

PI=3.14: T=0

T=SIN(2*Y(0.5)/(PI)+SIN(3*Y(1/3)/PI)+SIN(6*Y(0.25)/PI)

PRINT “t=”; t

END

‘ ПОДПРОГРАММА

FUNCTION Y (X)

S=1: P=1 i=1

M1: P=P*X

A=(-1)^I*P/(i+1)^2

S=S+A: i=i+1

IF ABS(A)>0.0001 THEN GOTO M1

Y=S

END FUNCTION