Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
33 / 33 / 17
Регистрация: 25.03.2013
Сообщений: 520
Записей в блоге: 5
1

Деление полинома p(x) на бином (x–α) по схеме Горнера

11.03.2014, 21:17. Показов 1923. Ответов 2
Метки нет (Все метки)

Помогите составить программу на паскале для деления полинома p (x) на бином (x–α) по схеме Горнера. Сам в программировании и математике не особо шарю, но для курсовой это одна из задач.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2014, 21:17
Ответы с готовыми решениями:

Вычисление полинома по схеме Горнера
Дана вроде бы стандартная задача, на вычисление суммы, но портит ее то, что надо вычислить ее по...

Вычислить значение полинома по схеме Горнера
ПОМОГИТЕ МОЖАЛУЙСТА,НУЖНО НАПИСАТЬ ПРОГРАММУ: Вычислить: p(x)=a(n)x^n+a(n-1)x^(n-1)+...+a1x+a(o)...

Вычисление полинома по схеме Горнера (исправление ошибки)
Помогите исправить ошибку. При отрицательном x программа считает неправильно. При заданных...

Вычисление производных полинома в данной точке по схеме Горнера
Помогите составить программу на паскале для вычисления производных полинома в данной точке по схеме...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31246 / 20425 / 7961
Регистрация: 22.10.2011
Сообщений: 35,457
Записей в блоге: 6
12.03.2014, 01:06 2
Лучший ответ Сообщение было отмечено volvo как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
const
  n = 4;
  coeff : array[0 .. n] of real =
  (1, 3, 4, -5, -47); // Делимое: x^4+3x^3+4x^2-5x-47
 
  Ro = -3; // Делитель: x + 3
 
var
  quotient : array[0 .. pred(n)] of real;
  i : integer;
  b : real;
 
begin
  quotient[0] := coeff[0];
  for i := 1 to n - 1 do
    quotient[i] := coeff[i] + Ro*quotient[i - 1];
  b := coeff[n] + Ro * quotient[n - 1];
 
  write('(');
  for i := 0 to n - 1 do
    write(quotient[i]:0:2, '*X^', n - 1 - i, '':3);
  writeln(') + ', b:0:2);
 
  // Частное: x^3+4x-17
  // Остаток: +4
end.
Если нужен красивый вывод полиномов - ищи в разделе Паскаль, я выкладывал свой вариант...
1
33 / 33 / 17
Регистрация: 25.03.2013
Сообщений: 520
Записей в блоге: 5
12.03.2014, 22:18  [ТС] 3
а как сделать так, чтобы пользователь сам вводил данный полином и делитель?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2014, 22:18

Составить подпрограмму вычисления значение полинома n-го порядка по схеме Горнера
Здравствуйте. помогите пожалуйста. Задание: составить подпрограмму вычисления значение полинома...

Составить программу для вычисления значения полинома по схеме Горнера
Объясните пожалуйста программу, каждую строку Завтра нужно преподу объяснить Спасибо! Условие...

Вычислить значение выражения Z=cosα+ cos2α+ cos6α+ cos7α
Добрый день , требуется написать простенькую программу ИСКЛЮЧИТЕЛЬНО на С . Задание:...

Организовать расчет полинома с использованием алгоритма Горнера
Не могу даже похожую задачу на форуме найти, помогите кто чем может


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.