Помогите понять задачу про многочлены и степени

[Asya_inter]

Помогите понять задачу про многочлены и степени

Даны коэффициенты многочлена P(x) степени n, найти коэффициенты многочлена P^2(x). Можете пожалуйста наглядно привести пример, что требуется ввести и получить в итоге?

 

[Vladimir_S]

Даны коэффициенты многочлена P(x) степени n, найти коэффициенты многочлена P^2(x). Можете пожалуйста наглядно привести пример, что требуется ввести и получить в итоге?

Да легко. А в чем именно проблемы? В результате возведения в квадрат полинома степени n (каковой содержит всегда n+1 членов и коэффициенты при каждой степени х от n до 0 нужно задать) получится полином степени 2n+1, коэффициенты которого нужно рассчитать. И что - никак?

Ладно. Вот, например:

Const
 Nmax=9; {Maximal power}

Var
 A:Array[0..Nmax] of Real;
 B:Array[0..2*Nmax] of Real;
 N,i,j:Byte;

Begin
 Repeat
  Write('Polynomial power: ');
  Readln(N);
  if N>Nmax then Writeln('Power must be <',Nmax+1);
 Until N<=Nmax;
 Writeln('Initial polynomial coefficients:');
 for i:=N downto 0 do
  begin
   write('x^',i,' coefficient = ');
   readln(A[i]);
  end;
 for i:=0 to 2*N do B[i]:=0;
 for i:=0 to N do
  for j:=0 to N do
   B[i+j]:=B[i+j]+A[i]*A[j];
 Writeln('Final polynomial coefficients:');
 for i:=2*N downto 0 do
  writeln('x^',i,' coefficient = ',B[i]:0:9);
 Readln
End.

 

[Asya_inter]

Vladimir_S большое спасибо! Теперь понятно и действительно не так сложно.

А вы не знаете, почему я не могу добавить вам отзыв?? Пишут, что нужно прежде кому-то ещё оставить. Но я уже оставляла другим.

 

[Vladimir_S]

А вы не знаете, почему я не могу добавить вам отзыв?? Пишут, что нужно прежде кому-то ещё оставить. Но я уже оставляла другим.

Могу только сказать, что это застарелый глюк форума. У меня тоже полно пользователей, которым я не могу поднять репутацию. Я их иронически называю "мой черный список". Между прочим, в него входят даже админы.
Увы - на настоящий момент непреодолимо.

P.S. Да, сейчас заметил одну помарку в своём коде. В девятой снизу строке верхняя граница цикла должна быть 2*N, а не 2*N+1. Исправил.