исправить программу вычисления полинома.

[vitaly38]

Народ, помогите пожалуйста исправить программу вычисления полинома.

Программа должна вычислять значения 2мя способами, с рекурсией и без нее.
вот мой код, программа рабочая.

 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Label5: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
  a:array[0..99] of integer;
  n,x,i,z,q,ass:integer;
   result:integer;
implementation
 
{$R *.dfm}
 
 
   function polin(x,n,i:integer):integer;
begin
  Result:=a[i];
  if i < n then
    Result:=Result+x*polin(x,n,i+1);
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
 
randomize;
label3.Caption:='';
x:=strtoint(edit1.text);
n:=strtoint(edit2.text);
z:=1;
for i:=0 to n do begin
a[i]:=random(9)+1;
label3.caption:=label3.caption+'a['+inttostr(i)+']='+inttostr(a[i])+' ';
end;
label4.Caption:='Массив сформирован случайно:';
q:=a[n];
for i:=n-1 downto 0 do begin
z:=x*q;
q:=z+a[i];
end;
memo1.Lines.add(inttostr(q)+'obyc');
ass:=polin(x,n,0);
memo1.Lines.Add(inttostr(ass)+'rekyrsia');
end;
 
 
end.

Однако надо переделать программу так, чтобы функция

function polin(x,n,i:integer):integer;
begin
  Result:=a[i];
  if i < n then
    Result:=Result+x*polin(x,n,i+1);
end;

не использовала параметр i(он типо лишний), замест параметра i нужно использовать массив а.
и еще необходимо оформить вычисление обычным способом в виде функции..

заранее благодраю.

[keef]

Заместо i использовать a, это как ? a, у тебя массив из 100 чисел, какое именно подставлять или делать цикл вот тут например Result:=Result+x*polin(x,n,i+1);

[vitaly38]

а - это массив который рандомно генерируется...

[keef]

Это понятно, но какой элемент массива должен быть использован, или они должны быть задействованы все.

[vitaly38]

если честно, не знаю..препод сказал что i это лишнее.. я говорю ну а что тоогда вместо i ... она говорит массив а. больше ничего не знаю...

[evg_m]

надо чтобы была такая функция

function poilnom(a: array of integer; x:integer): integer;
..функция вычисления полинома заданного коэффициентами a
в точке x

а учитивая

вычислять значения 2мя способами

должно быть ДВЕ фунции (на каждый способ с одинаковым набором параметров)

[vitaly38]

evg_m
напишите пожалуйста эти две функции..

[Serebro]

const n=10;
type mas=array [0..n] of real;
......
function poilnom(a: mas; x:real): real;
var s:real;
begin
  s:=0.0;
  for i:=0 to n do
  begin
    s:=s+a[i]*exp(i*ln(x));  
  end;
  polinom:=s;
end

[vitaly38]

Serebro
а зачем експоненту брать? и натуральный логарифм?? туфта,простите за выражение.

[evg_m]

одна из них уже написана. Это там, где вычисляется q которое и должно стать результатом функции (те весь код от q:=0 до получения окончательного значения вынести в отдельную функцию).