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 + a

= 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.

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.