Многочлены, составить многочлен (x-a1)(x-a2)(x-a3)(x-a4)(x-a5)(x-a0) Опции

[Рустам]

Даны числа a₀ a₁ a₂ a₃ a₄ a₅
Составить многочлен шестой степени (x-a₀)(x-a₁)(x-a₂)(x-a₃)(x-a₄)(x-a₅)

Добавлено через 1 мин.
думал много над ней.. передо мной была сложность одна.. .когда раскрываешь скобки образуются всевозможные комбинации с двумя а потом с тремя , четырьми... для комбинаций с двумя а придумал...а когда идут 3 , 4.. че то додуматься не могу... помогите пожалуйста

[Рустам]

Извини Lapp немного застрял с организацией цикла

const
  {a: tPoly= (3,1,0,0,0,0,0);   {2-x}
  {b: tPoly= (3,1,0,0,0,0,0);    {2+x}

 a: array [1..6] of tPoly=
 (
 (2,1,0,0,0,0,0),
 (1,1,0,0,0,0,0),
 (3,1,0,0,0,0,0),
 (4,1,0,0,0,0,0),
 (5,1,0,0,0,0,0),
 (1,1,0,0,0,0,0)
 ); 


var
  c: tPoly;
  i: integer;

begin
  clrscr;  
for i:=1 to 6 do   
begin
  Product(c,a[i],c);
  WriteLn('('+Show(a)+')'+'('+Show(b)+')='+Show©);
end;

  ReadLn
end.

скажи правильно ли я делаю. чтобы перемножить 6 множителей надо каждый множитель умножать на результат
Product(c,a[i],c); но для начала надо присвоить с как бы единицу то есть c:=(1,0,0,0,0,0,0) но такой вариант че то паскалю не нравится?

[Lapp]

чтобы перемножить 6 множителей надо каждый множитель умножать на результат
Product(c,a[i],c); но для начала надо присвоить с как бы единицу то есть c:=(1,0,0,0,0,0,0) но такой вариант че то паскалю не нравится?

Все вроде правильно. Что именно ему не нравится? Скажи, что за ошибка.


Добавлено через 2 мин.
только ты понял, что в первые элементы нужно заносить не "a_i", а "-a_i" ?

Добавлено через 10 мин.
Я заметил некоторые недочеты (и даже одну ошибку ) в выводе.. Кроме этого, я перевернул вывод - теперь старший член идет первым (как обычно). Вот исправленный вариант полностью:

const
  n=6;
  e=1e-7;

type
  tPoly= array[0..n]of double;

procedure Product(p,q: tPoly; var r: tPoly);
var
  i,j: integer;
begin
  for i:=0 to n do r[i]:=0;
  for i:=0 to n do for j:=0 to n-i do r[i+j]:=r[i+j]+p[i]*q[j]
end;

function Show(p: tPoly): string;
var
  i: integer;
  s,t: string;
  f: boolean;
begin
  s:='';
  f:=true;
  for i:=n downto 0 do
    if Abs(p[i])>e then begin
      if p[i]<0 then s:=s+'-' else if (i<n)and not f then s:=s+'+';
      if (i=0)or(Abs(Abs(p[i])-1)>e) then begin
        Str(Abs(p[i]): 8: 2,t);
        while t[1]=' ' do Delete(t,1,1);
        while t[Length(t)]='0' do Delete(t,Length(t),1);
        if t[Length(t)]='.' then Delete(t,Length(t),1);
        s:=s+t
      end;
      if i>0 then s:=s+'x';
      if i>1 then begin
        Str(i,t);
        s:=s+'^'+t
      end;
      f:=false
    end;
  Show:=s
end;

const
  c: tPoly=(1,0,0,0,0,0,0);
  a: array [1..6] of tPoly=(
    (-2,1,0,0,0,0,0),
    (-1,1,0,0,0,0,0),
    (-3,1,0,0,0,0,0),
    (-4,1,0,0,0,0,0),
    (-5,1,0,0,0,0,0),
    (-1,1,0,0,0,0,0)
  );

var
  i: integer;

begin
  for i:=1 to 6 do begin
    Product(c,a[i],c);
    Write('('+Show(a[i])+')')
  end;
  WriteLn(' = '+Show©);
  ReadLn
end.

(и еще одно исправление в Show.. Надеюсь, теперь все Ок))

Сообщение отредактировано: Lapp - 22.12.2009 19:19