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

2 вариант

Получить таблицу значений полинома P_n(x)=a_n xⁿ + a_n-1 x^n-1+…+a₁ x + a₀ на отрезке [c,d] с шагом . Значения c,d,m,n и коэффициенты полинома заранее неизвестны, а должны вводиться в ЭВМ в процессе выполнения программы. В программе использовать подпрограмму вычисления значения полинома.

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

INPUT c,d,m,n

DIM A(n)

FOR I=0 TO N

INPUT A(I)

NEXT I

H=(D-C)/M

X=C

M1: T=0

GOSUB M2

PRINT “X=”; X; “P=”; P

X=X+H: IF X<=D THEN GOTO M1

END

M2: P=O

FOR I=1 TO N

P=P+A(I)*X^N

NEXT I

RETURN

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

DECLARE SUB POL (X, F(N),P)

INPUT N, M, C, D

DIM A(N)

DIM SHARED N

FOR J=0 TO N

INPUT A(J)

NEXT J

H=(D-C)/M

FOR X=C TO D STEP H

CALL POL (X,A( ),P )

PRINT X, P

NEXT X

END

SUB POL (X,A( ),P)

P=O

FOR I=0 TO N

S=S+A(I)*X^I

NEXT I

END SUB

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

DECLARE FUNCTION POL (X, F( ))

DIM SHARED N

INPUT N, M, C, D

DIM A(N)

FOR J=0 TO N

INPUT A(J)

NEXT J

H=(D-C)/M

FOR X=C TO D STEP H

PRINT X, POL (X, F( ))

NEXT X

END

‘ ПОДПРОГРАММА ФУНКЦИЯ’

FUNCTION POL(X,A( ))

S=0

FOR I=0 TO N

S=S+A(I)*X^I

NEXT I

POL=S

END FUNCTION