[qpmr]

Здравствуйте , мне нужно вычислить значение полинома 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.

[nixel]

какое несоответствие типов?
то, что в power отсылаются integer'ы, вместо вещественных?
power спокойно работает с целыми числами (даже с типом byte). только что проверено лично.

а вот функция у Вас вызывается странно. Из тела процедуры Вы ее вызываете с одним параметром, а описана она на трех.

Динамический массив нельзя использовать без задания его длины через SetLength(a, <его_длина>);

[qpmr]

Сообщение от nixel

какое несоответствие типов?
то, что в power отсылаются integer'ы, вместо вещественных?
power спокойно работает с целыми числами (даже с типом byte). только что проверено лично.

а вот функция у Вас вызывается странно. Из тела процедуры Вы ее вызываете с одним параметром, а описана она на трех.

Динамический массив нельзя использовать без задания его длины через SetLength(a, <его_длина>);

С массивом понятно . С функцией , вы имели ввиду что условие только для n ?

[angvelem]

Имелось в виду то, что функция декларироана с 3-я параметрами:

Код:

  function fk(n,x:integer;a:array of integer):extended;

а вызывается с одним:

Код:

  fk(a[n-1]*(round(Power(x,n+1))));

[qpmr]

Сообщение от angvelem

а вызывается с одним:

Код:

  fk(a[n-1]*(round(Power(x,n+1))));

Почему же с одним , там ведь задействованы 3 параметра ? Должна быть сумма ?

[YVitaliy]

Имеется ввиду

Код:

floattostr(fk(n))