[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))

[angvelem]

И эта строка тоже. У ТС, везде вызов производится с одним параметром, но он упорно считает, что, если подставил в качестве параметра вычисление, то это автоматически засчитается как 3 параметра. Наивный, компилятор не настолько умён.

[qpmr]

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

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

Код:

floattostr(fk(n))

Ах вот оно в чем , не заметил сразу , но до того момента меня не пускает из-за

Код:

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

[angvelem]

Это уже черезчур. Считать до трёх умеешь? Где здесь передаётся 3!!! параметра?

Код:

  fk := a[n] + fk(a[n -1] * (Rund(Power(x, n + 1)));

не учили, что передаваемые параметры отделяются запятыми?

[qpmr]

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

Ах вот оно в чем , не заметил сразу , но до того момента меня не пускает из-за

Код:

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

нужно наподобие

Код:

fk:=a[n]+ fk((a[n-1]*(Power(x,n+1))),x,a[n]) 

?

[YVitaliy]

А рекурсия тут вообще к чему? У тебя формула

Ai*x^i;

, тут рекурсию никак не вставить. Возможно, имелось ввиду "сумма{Ai*x^i}" или "произведение{Ai*x^i}"?

[qpmr]

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

А рекурсия тут вообще к чему? У тебя формула , тут рекурсию никак не вставить. Возможно, имелось ввиду "сумма{Ai*x^i}" или "произведение{Ai*x^i}"?

так да , i-индекс при А , и найти значение полинома , организовать нужно с рекурсией и без

[YVitaliy]

Массив заполняется вначале в СтрингГрид? Тогда, я думаю, в поле

edit1.text

вводится значение x? Алгоритм нужно переделать.

[qpmr]

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

Массив заполняется вначале в СтрингГрид? Тогда, я думаю, в поле вводится значение x? Алгоритм нужно переделать. Да.

Да,именно так. Я понимаю, что тут задание на пару строчек и времени 10 минут , но не до всех все так быстро доходит .

[YVitaliy]

Код:

 var   x,n,i:integer;
function fk(i,x:integer;a:array of integer):extended;
begin
  if i>=length(a) then begin
    result:=0;
    exit;
  end;
  if i=0 then  result:=a[0]+fk(i+1,x,a) else
  result:=a[i]*Power(x,i)+fk(i+1,x,a);
end;
begin
  x:=strtoint(edit1.text);
  setlength(a,stringgrid1.ColCount);
  for i:=0 to length(a)-1 do
  a[i]:=strtoint(stringgrid1.Cells[i,0]);
  label1.caption:=floattostr(fk(0,x,a)); 
end;
end.

На коленке. За работоспособность и оптимальность не ручаюсь