Многочлены, составить многочлен (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.. че то додуматься не могу... помогите пожалуйста

[Рустам]

да я понял, просто пробовал различные варианты,разбирался так скажем..а код мне в принципе ясен и сама идея)) сейчас посмотрю ещё разик)

Добавлено через 11 мин.
Спасибо Большое за проделанную работу!!! Но единственное не совсем понятна эта работа со строками. Будьте добры объясните пожалуйста

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;

[Lapp]

Спасибо Большое за проделанную работу!!! Но единственное не совсем понятна эта работа со строками. Будьте добры объясните пожалуйста

Вообще-то, это не совсем относится к самой задаче. Если тебе неясно или не нравится, ты можешь выводить так, как считаешь нужным. Но объяснить тоже нетрудно ))..

Собственно, почти все сложности проистекают из-за того, что ты не сказал, какие значения могут принимать a_i - любые или только целые. С целыми все было бы гораздо проще. Но я сделал для действительных, причем если дробная часть равна нулю - она не выводится (как обычно люди пишут). Так что при сдаче можешь блестнуть выводом дробных значений (только проверь сначала как следует).

// весь вывод осуществляем в строку s
  for i:=n downto 0 do     // выводим в обратном порядке, от больших степеней к маленьким
// нулевые члены не выводим; проверка на ноль для действительных чисел делается сравнением с маленьким числом
    if Abs(p[i])>e then begin    
// знак выводим отдельно
// если это самый первый член (признак f, от first), и он положительный, то знак + опускаем
// (у меня сейчас возникло подозрение, что условие i<n - лишнее.  Проверь)
      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);         // переводим коэффициент в строку t
        while t[1]=' ' do Delete(t,1,1);  // если t имеет пробелы в начале - удаляем
        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;
// дальше идет вывод х (везде, кроме нулевой степени)
// потом вывод показателя степени (начиная со второй)
// и сброс признака f  в false

Вот, вроде, и вся наука )).