Question

Viết chương trình tính giá trị của đa thức A(x) với điều kiện không dùng biến mảng.

Viết chương trình tính giá trị của đa thức f(x) = anxn + … +a1x + a0 tại x = x0.

Thuật toán: f(x) = anxn + … +a1x + a0

                                                                                                = a0 + x(a1 + x(a2 + … x(an-1 + x(an))…))

Lặp lại việc: Đọc và cộng hệ số rồi nhân với x từ hệ số an  đến hệ số a0.

Answer 1

Program Gia_tri_da_thuc;

 

Var S,a,x: real;

n,i: byte;

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)*x;

End;

Write(‘f(‘,x:3:1,’)=’,S:5:1);

Readln

End.