Важно: Решение кода по Delphi

[Johny58]

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

[Аватар]

А на бумаге умеешь?

[Johny58]

Сообщение от Аватар

А на бумаге умеешь?

Теоремой Виета, но это долговато - 16 циклов - может как-нибудь через теорему Безу и треугольник Паскаля?

[Аватар]

А при чем теорема Виета? Найти коэффициенты вижу, а найти корни ни капли

[Johny58]

Сообщение от Аватар

А при чем теорема Виета? Найти коэффициенты вижу, а найти корни ни капли

Ну тогда стоит вопрос, как это решить через Безу и треугольник Паскаля?

[Аватар]

Как использовать теорему Безу для этой цели без понятия, подозреваю что ни как. Треугольник Паскаля? Для варианта (x-a)^k подходит, для вышеприведенного скорее нет, чем да. 16 циков откуда? Два:

for i:=1 to 14 do
  for j:=i+1 to 15 do ...

[Johny58]

Сообщение от Аватар

Как использовать теорему Безу для этой цели без понятия, подозреваю что ни как. Треугольник Паскаля? Для варианта (x-a)^k подходит, для вышеприведенного скорее нет, чем да. 16 циков откуда? Два:

for i:=1 to 14 do
  for j:=i+1 to 15 do ...

Что такое есть, но мой вариант выдает только первый символ, если забивать все 16 значений по 1.

procedure TForm1.Button1Click(Sender: TObject);
var
k: array[0..15] of real;
kf: array[0..15] of real;
i, g, j: byte;

// Ввод корней

for i:=0 to 15 do
  begin
    for g:=0 to 15 do
      if i = 0 then
        kf[i]:=kf[i]+k[g]
      else
        for j:=g to 15 do
          kf[i]:=kf[i] + k[i-1]*k[g];
end;

// Вывод коэффициентов...

[Аватар]

не, так не пойдет

var k: array[0..15] of real;
    kf: array[0..16] of real; {коэффициенты при степенях x от 0 до 16}
    i,j: Integer;
begin
  ...  {здесь заполнить массив k}
  kf[0]:=-k[0];
  kf[1]:=1;
  for i:=1 to 15 do
    for j:=i+1 downto 0 do
      if j=i+1 then kf[j]:=kf[j-1]
      else if j=0 then kf[j]:=-kf[j]*k[i]
      else kf[j]:=kf[j-1]-kf[j]*k[i];
  ...  {здесь выдать результат из массива kf}
end;