Рассчитать полином с помощью функции. Паскаль.

[Nexx]

program p;
uses crt;
type mas=array[1..5] of real;

var x:real; a:mas;
    i,j,n:integer;
function f1(x:real;a:mas):real;
begin
 f1:=a[1];
  for i:=1 to n do
   f1:=f1(x,a)*x+a[i+1];
 end;
begin
  readln(n);
  readln(x);
  for i:=1 to n do
   readln(a[i]);
   writeln('Rezul''tat: ',f1(x,a):5:1);

end.

Никак не пойму чего сдесь не так. Плз исправьте.

[Карась]

Бред какойто написанн... Напиши по какой формуле вычисляется полином.

Программе явно ненравится в этой строке f1(x,a)
writeln('Rezul''tat: ',f1(x,a):5:1);

И она вылетает.

[Nexx]

Полином это кароч выражение вида
P(x)=A1*X^5+A2*X^4+A3*X^3+A4*X^2+A5 *X+A6
вот это мне и нада задать с помощью ф-ции

[Nexx]

Он вычисляется так кароч:
p:=A[1];
for i:=1 to n do
p:=p*x+A[i+1];

[Nexx]

Плз помогите срочно, оч надо. Это только часть проги.

[_Dmitry]

Вычисление полинома по схеме Горнера уже рассматривалось здесь http://www.programmersforum.ru/showthread.php?t=9099 только нумерация коэффициентов была с нуля

program p;
uses crt;
type 
  mas=array[0..5] of real;
var 
  x: real; 
  a: mas;
  i,j,n:integer;
function f1(x: real; a: mas): real;
var
  b0,b: real;
begin
  b0:=a[0];   
  for i:=1 to n do  
    begin  
      b:=a[i]+b0*x;
      b0:=b;   
    end;
  f1:=b;
end;

begin
  write('n='); readln(n);
  write('x='); readln(x);
  for i:=0 to n do
    begin
      write('a[',i,']='); readln(a[i]);
    end;
  writeln('Rezul''tat: ',f1(x,a):5:1);
end.

[Nexx]

а почему она както глючит, когда n>5?

[_Dmitry]

потому что
mas=array[0..5] of real;

[Nexx]

ой блин точна извини ступил))