Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите понять задачу про многочлены и степени (http://www.tehnari.ru/f41/t103756/)

Asya_inter 13.08.2015 14:11

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

Vladimir_S 13.08.2015 18:06

Цитата:

Сообщение от Asya_inter (Сообщение 1152522)
Даны коэффициенты многочлена 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 13.08.2015 23:39

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

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

Vladimir_S 14.08.2015 08:34

Цитата:

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

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

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


Часовой пояс GMT +4, время: 12:28.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.