|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
13.08.2015, 14:11 | #1 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите понять задачу про многочлены и степени
|
13.08.2015, 14:11 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, ответ на ваш вопрос можно найти тут Пожалуйста, помогите понять проблему в схеме Помогите понять что за зверь Помогите понять схему электрического насоса Степени в Excel |
13.08.2015, 18:06 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ладно. Вот, например: Код:
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. |
|
13.08.2015, 23:39 | #3 (permalink) |
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Vladimir_S большое спасибо! Теперь понятно и действительно не так сложно.
А вы не знаете, почему я не могу добавить вам отзыв?? Пишут, что нужно прежде кому-то ещё оставить. Но я уже оставляла другим. |
14.08.2015, 08:34 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Увы - на настоящий момент непреодолимо. P.S. Да, сейчас заметил одну помарку в своём коде. В девятой снизу строке верхняя граница цикла должна быть 2*N, а не 2*N+1. Исправил. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
free pascal, задача, помогите пожалуйста |
Опции темы | |
Опции просмотра | |
|
|