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

Задание 15

Вычислить величину используя подпрограмму для вычисления с точностью 10^-4 по итерационной формуле Ньютона

где

В качестве нулевого приближения взята . Считать, что требуемая точность достигнута, если очередная поправка по модулю меньше 10^-4.

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

INPUT X,Y

XX = 1 +X^2

GOSUB M1

A = YY

XX = X^2 + Y^2

GOSUB M1

B = YY

XX = A + B

GOSUB M1

Z = YY

PRINT Z

END

M1: YY = 1

M2: V = (XX/YY – YY)/2

YY = YY + V

IF ABS(V) > 0.0001 GOTO M2

RETURN

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

DECLARE SUB KOR (XX, YY)

INPUT X, Y

CALL KOR (1 + X^2, A)

CALL KOR (X^2 + Y^2, B)

CALL KOR (A +B, Z)

PRINT “Z=”; Z

END

SUB KOR (XX, YY)

YY = 1

M1: V=(XX/YY – YY)/2

YY = YY + V

IF ABS(V) > 0.0001 GOTO M1

END SUB

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

CLS

DECLARE FUNCTION KOR (XX))

INPUT X,Y

A = KOR (1 + X^2)

B = KOR (X^2 + Y^2)

Z = KOR (A + B)

PRINT “Z=”; Z

END

FUNCTION KOR (XX)

YY = 1

M1: V = (XX/YY – YY)/2

YY = YY + V

IF ABS(V) > 0.0001 GOTO M1

KOR = YY

END FUNCTION