Здравствуйте , мне нужно вычислить значение полинома n-ой степени
формула Ai*x^i (i - от 0 до n ) ;
Получилось так , подскажите пожалуйста как исправить ..
Код:
procedure TForm1.Button1Click(Sender: TObject);
var x,n:integer;
function fk(n,x:integer;a:array of integer):extended;
begin
if n=0 then fk:=a[n] else
fk:=a[n]+ fk(a[n-1]*(round(Power(x,n+1)))) ;// как обойти несоответствие типов при возведении в степень ?
end;
begin
x:=strtoint(edit1.text);
a[n]:=strtoint(stringgrid1.Cells[n-1,0];
label1.caption:=floattostr(fk(n)); end;
end.