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

17 вариант

Получить , где , используя подпрограмму вычисления многочлена по схеме Горнера, т.е. по рекуррентной формуле Значения элементов массива заранее неизвестны, а должны вводиться в процессе выполнения программы.

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

INPUT “C, D, N”; C, D, N

DIM A (N)

FOR i =0 TO N

INPUT “A”; A (i)

NEXT i

X=C

GOSUB 10: Y=Z

X=D

GOSUB 10: Y=Y+Z

X=(C+D)/2

GOSUB 10: Y=Y+Z

PRINT Y

END

10 Z=O

FOR i=0 TO N

Z=Z * X + A (N-i)

NEXT i

RETURN

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

DECLARE FUNCTION F (X, A( ), N)

INPUT “C, D, N”; C, D, N

DIM A (N)

FOR i=0 TO N

INPUT “A”; A

NEXT i

Y = F(C) + F(D) + F((C+D)/2)

PRINT Y

END

FUNCTION F (X, A( ), N)

Z=0

FOR i=0 TO N

Z = Z * X + A (N-i)

NEXT i

F=Z

RETURN

END FUNCTION

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

DECLARE SUB F (X, A( ), N, S)

INPUT “C, D, N”; C, D, N

DIM A(N)

FOR i=0 TO N

INPUT “A”; A

NEXT i

CALL F (C, A( ), N, S1)

CALL F (D, A( ), N, S2)

CALL F ((C+D)/2, A( ),N,S3)

Y = S1 + S2 + S3

PRINT Y

END

SUB F (X, A( ), N, S)

S=0

FOR i=0 TO N

S = S * X + A (N-i)

NEXT i

END SUB