Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 13.08.2015, 14:11   #1 (permalink)
Asya_inter
Member
 
Аватар для Asya_inter
 
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите понять задачу про многочлены и степени

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

Старый 13.08.2015, 14:11
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Возможно, ответ на ваш вопрос можно найти тут

Пожалуйста, помогите понять проблему в схеме
Помогите понять что за зверь
Помогите понять схему электрического насоса
Степени в Excel

Старый 13.08.2015, 18:06   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от Asya_inter Посмотреть сообщение
Даны коэффициенты многочлена 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 13.08.2015, 23:39   #3 (permalink)
Asya_inter
Member
 
Аватар для Asya_inter
 
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

А вы не знаете, почему я не могу добавить вам отзыв?? Пишут, что нужно прежде кому-то ещё оставить. Но я уже оставляла другим.
Asya_inter вне форума   Ответить с цитированием
Старый 14.08.2015, 08:34   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от Asya_inter Посмотреть сообщение
А вы не знаете, почему я не могу добавить вам отзыв?? Пишут, что нужно прежде кому-то ещё оставить. Но я уже оставляла другим.
Могу только сказать, что это застарелый глюк форума. У меня тоже полно пользователей, которым я не могу поднять репутацию. Я их иронически называю "мой черный список". Между прочим, в него входят даже админы.
Увы - на настоящий момент непреодолимо.

P.S. Да, сейчас заметил одну помарку в своём коде. В девятой снизу строке верхняя граница цикла должна быть 2*N, а не 2*N+1. Исправил.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
free pascal, задача, помогите пожалуйста

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.