Сложная задача, Полином 5 - го порядка , нахождение корней Опции

[-Student-]

здравствуйте !
вот задали задание , такой темы ещё не проходили поэтому прошу помощи у вас .

нужно написать программу которая ищет корни из полинома 5 - го порядка с комплексными коэффициентами задаваемыми пользователями.

полином (или попросту многочлен) представляет собой алгебраическую сумму " (a+bi)x^5 + (a+bi)x^4+ ... (a+bi)x^n-1"

(a+bi) - комплексный коэффициент с мнимой еденицей "i" , a и b нужно задавать самому и для каждого "х" они будут разные ... фактически при раскрытия скобок получается что нужно решить 2 полинома , мнимый и действительный.

n - степень полинома (в данном случае степень n=5)

в книжке читал что для полиномов степени выше 4 нету формулы по которой он высчитывается , поэтому прошу помощи ... мб кто сталкивался с ними и знает методы по которому они решаются или хотябы алгаритм решения , потому что я даже незнаю с чего начать

мб кто знает где в инете описывается как решать полиномы , неоткажусь от любой помощи !

[volvo]

Вот результат работы твоего проекта под BDS:

щас почемуто стал выдавать ошибку "Invalid Variant Type"

Не знаю, что там у тебя происходит, но что-то происходит определенно... Без Variant-а эту задачу решать - себе дороже... Мало того, что придется вручную реализовывать всю комплексную арифметику, так еще и заменять вот такой, например код:

    for j := degree - 1 downto 0 do begin // Horner's scheme.
      gamma := (z * gamma) + beta;
      beta  := (z * beta)  + alpha;
      alpha := (z * alpha) + a[j];
    end;

вот таким:

    for j := degree - 1 downto 0 do begin // Horner's scheme.
      gamma := ComplexAdd(ComplexMult(z, gamma), beta);
      beta  := ComplexAdd(ComplexMult(z, beta), alpha);
      alpha := ComplexAdd(ComplexMult(z, alpha), a[j]);
    end;

Размер программы вырастет в несколько раз...

Попробуй простейший пример:

uses VarCmplx;

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:Variant;
begin
  A:=VarComplexCreate;
  B:=VarComplexCreate;
  C:=VarComplexCreate;
  A.Real:=1;
  A.Imaginary:=1;
  B:=A;
  C:=A+B;
  Caption:=string©;
end;

Заголовок должен смениться на '2+2i'... Если это не отработало - все-таки придется тебе реализовывать комплексную арифметику вручную...