Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 22.05.2018
Сообщений: 1
1

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

22.05.2018, 23:35. Показов 2268. Ответов 2
Метки нет (Все метки)

Здравствуйте. помогите пожалуйста.
Задание: составить подпрограмму вычисления значение полинома n-го порядка по схеме Горнера. Используя ее, вычислить значение функции z=(12x^5-3x^3+2x^2-1)/(6x^6-5x^4+x-8) для различных значений x, вводимых с терминала.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2018, 23:35
Ответы с готовыми решениями:

Составить программу вычисления значения многочлена по схеме Горнера
ребят помогите написать это в FreePascale y=x^10+2x^9+3x^8+...+10x+11;...

Составить подпрограмму для вычисления значения полинома, коэффициенты которого хранятся в массиве
помогите пожалуста, срочно надо. зарание спасибо!! дана такая задача Составить...

Вычислить по схеме Горнера значение многочлена
Многочлен степени n задан массивом своих коэффициентов.Вычислить значение многочлена по схеме...

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

2
4600 / 2300 / 2201
Регистрация: 10.12.2014
Сообщений: 8,788
23.05.2018, 08:51 2
IDE какое?
С динамическими массивами получается красивое решение, а со статическими — не очень.
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
23.05.2018, 09:36 3
Лучший ответ Сообщение было отмечено Romashka12345 как решение

Решение

А по моему здесь массивы можно объявить константами.
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
const n=6;
type mas=array[0..n] of integer;
function gorner(x:real;a:mas):real;
var i:byte;
    p:real;
begin
p:=0;
for i:=0 to n do
p:=p*x+a[i];
gorner:=p;
end;
const p1:mas=(-1,0,2,-3,0,12,0);
      p2:mas=(-8,1,0,0,-5,0,6);
var x:real;
    i:byte;
begin
for i:=1 to 5 do
 begin
  write('x',i,'=');
  readln(x);
  if gorner(x,p2)=0 then writeln('z не определено, деление на 0')
  else writeln('z=',gorner(x,p1)/gorner(x,p2):0:3);
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2018, 09:36

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

Составить подпрограмму-процедуру для вычисления текущего значения s(x) с произвольным количеством итераций n и подпрограмму-функцию y(x).
помогите пожалуйста с написанием работы Решить задачу, используя подпрограмму-процедуру для...

Найти значение уравнения по схеме Горнера
Помогите найти значение уравнения по методу Горнера и записать в PascalABC.Очень нужно ,пожалуйста....

Деление полинома p(x) на бином (x–α) по схеме Горнера
Помогите составить программу на паскале для деления полинома p (x) на бином (x–α) по схеме...


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

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

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