Многочлены, составить многочлен (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
  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;

procedure Show(p: tPoly);
var
  i: integer;
begin
  for i:=0 to n do
    if Abs(p[i])>e then begin
      if p[i]<0 then Write('-') else if i>0 then Write('+');
      if Abs(Abs(p[i])-1)>e then Write(Abs(p[i]):4 :2);
      if i>0 then Write('x');
      if i>1 then Write('^',i)
    end
end;

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

var
  c: tPoly;
  i: integer;

begin
  Product(a,b,c);
  Show( c );
  ReadLn
end.

Тут для примера производится умножение (2-х)(2+х). Запусти и убедись, что оно равно 4-х² .
А для твоей задачи лучше всего создать массив из специально заполненных полиномов. Примерно такой:

const
  a: array[1..6]of tPoly= (
    (0,1,<-a1>,0,0,0),
    (0,1,<-a2>,0,0,0),
    (0,1,<-a3>,0,0,0),
    (0,1,<-a4>,0,0,0),
    (0,1,<-a5>,0,0,0),
    (0,1,<-a6>,0,0,0)
  );

Либо, если числа заранее неизвестны, то запрашивай их в цикле и ставь на нужные места.
Если что неясно - спрашивай.

Добавлено через 1 мин.
Извиняюсь, volvo, форму ответа давно загрузил..

Добавлено через 1 мин.

Напиши 2 процедуры: умножения и сложения многочленов

Сложение в данном случае не нужно )).