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 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) = a_nxⁿ + ... +a₁x + a₀ tại x = x₀.

Thuật toán:

f(x) = a_nxⁿ + ... +a₁x + a₀ 

= a₀ + x(a₁ + x(a₂ + ... x(a_n-1 + x(a_n))...))

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

Chương trình:

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.