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.

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.