Помогите пожалуста умоляю...

[DSDBONUS]

Мне нуно написать программу:

Зачение полинома
Найти значение полинома

                                        Pn(x) = A0*X^n + A1*X^(n-1) + ... + An
с вещественными коэфицентами A0, A1, ..., An в комплексной точки x = c + id.
   Первая строка входного файла содержит степень полинома n и целые значения c, d,
вторая коэффициенты A0, A1, ..., An в целом формате.
   Выходной файл должен содержать два вещественных числа p и q - вещественную и
мнимую части полученного комплексного значения полинома, округленные до трех знаков после точки.

Пример с днными:
3 1 -1
-1 -1 1 3                                6.000 3.000
Помогите плизз...

[Igel]

А в чем проблема? Я правда не помню уже что такое полином, и чем разнятся у него вещественные часть и мнимая, но вроде ничего особо сложного нету...

[sega]

Вычислить значение полинома в данной точке

Код:

type
   TPolynomArray = array of Double;

 procedure Horner(Polynom: TPolynomArray; X: Extended; var FX, derivation: Extended);
 var
   i: Integer;
   H: Integer;
 begin
   H := High(Polynom);
   FX := Polynom[H];
   derivation := 0.0;
   for i := H - 1 downto 0 do
   begin
     derivation := derivation * X + FX;
     FX := FX * X + Polynom[i];
   end;
 end;





procedure TForm1.Button1Click(Sender: TObject);
  var
   X, FX, derivation: Extended;
 begin
  
   (* f(x) = 3 x^5 + 4 x^4 + 13 x^3 - 59 x^2 + 19 x - 97 *)

   X := 2.5;
   Horner(VarArrayOf([-97, 19, - 59, 13, 4, 3]), X, FX, derivation);
   ShowMessage(Format('x = %n'#13#10'f(x) = %n'#13#10'f''(x) = %n'    , [X, FX, derivation]));
 end;

[Igel]

FX := FX * X + Polynom;

Тут ошибочка у тебя. Polynom - массив, а ты его складываешь.

[sega]

пардон натоть так:
Polynom

[sega]

чета квадратневые скобари не отображаются короче к Polinom индекс добавить надо в скобарях

[PooH]

OFFTOPIC:

чета квадратневые скобари не отображаются короче к Polinom индекс добавить надо в скобарях

чтобы отображались "скобари" в ответах код программы отделяй тэгами "code"
[ code]<код программы>[ /code] (только без пробелов внутри)