Програмування лінійного алгоритму в Паскалі

1. Скласти програму обчислення значення многочлена прямим алгоритмом і за схемою Горнера при х=0,25

y₁=3x⁴+2x²+x+7

y₂=(((3x+0)x+2)x+1)x+7

PROGRAM L1;

CONST

X=0.25;

VAR

Y1,Y2:REAL;

BEGIN

Y1:=3*EXP(4*LN(X))+2*SQR(X)+X+7;

Y2:=(((3*X+0)*X+2)*X+1)*X+7;

WRITELN ( ‘значение Y1=’,Y1:6:3, ‘значение Y2=’,Y2:6:3)

END.

2. Скласти програму обчислення значення функції:

, де х – дійсне число, а,с – цілі числа.

/*вычисление значения функции*/

PROGRAM L2;

VAR

A,C:INTEGER;

X,Y:REAL;

BEGIN

READLN (X,A,C);

Y:=SQRT(ABS(X-A*SQR(X)+C))/LN(ABS(X+EXP(4*LN(X))))–EXP(X-1);

WRITELN (‘значение функции Y=’,Y:10:4)

END.