Question

Viết chương trình cho phép tính giá trị của đa thức A(x) tại giá trị x = x0.

Answer 1

Program Gia_tri_cua_da_thuc;

 

Var n,i: integer;

x,a,s:real;

Function XMU(x:real; n:integer):real;

Var i: integer;

Mu: real;

Begin

Mu:=1;

For i:=1 to n do Mu:=Mu*x;

XMU:=Mu;

End;

Begin

Write(‘Nhap bac cua da thuc n = ‘); Readln(n);

Write(‘Tinh f(x) tai x = ‘);Readln(x);

S:=0;

For i:=n downto 0 do

Begin

Write(‘a’,i,’= ‘); Readln(a);

S:=S+a*XMU(x,i);

End;

Writeln(‘F(‘,x:5:2,’)= ‘,S:5:2);

Readln;

End.