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

Вычислить значение полинома по схеме Горнера

12.11.2017, 15:19. Показов 2118. Ответов 4
Метки нет (Все метки)

ПОМОГИТЕ МОЖАЛУЙСТА,НУЖНО НАПИСАТЬ ПРОГРАММУ:

Вычислить: p(x)=a(n)x^n+a(n-1)x^(n-1)+...+a1x+a(o) для x=1.2, n=5, a=(1.3,-0.8, 1.8, 4.1, -7.4, 6.7) (вектор коэффициентов, начинающийся с младших членов полинома) по схеме Горнера p(x)=(...(a(n)x+a(n-1))x+...+a1)x+a0

a(n)-это а с нижним индеком n
a(n-1) -это а с нижнем индексом n-1

Я написала одну прогу,но она неправильная

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const 
n=5; 
x=1.2; 
a:array[1..n+1] of real=(1.3,-0.8, 1.8, 4.1, -7.4, 6.7); 
type 
poli=array[0..100] of real; 
var 
p : poli; 
i:integer; 
begin 
p[0]:=1; 
for i:=1 to n do 
p[i]:=p[i-1]*x+a[i]; 
wtiteln(p[n]:3:3); 
readln; 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2017, 15:19
Ответы с готовыми решениями:

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

паскаль.вычислить по схеме горнера
11. Вычислить по схеме Горнера: a. y=x10+2x9+3x8+..+10x+11; b. y=11x10+10x9+9x8+…+2x+1.

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

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

4
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
12.11.2017, 15:48 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const n=5;
      x=1.2;
      a:array[0..n] of real=(1.3,-0.8, 1.8, 4.1, -7.4, 6.7);
var p:real;
    i:integer;
begin
p:=0;
for i:=0 to n do
p:=p*x+a[i];
writeln('p=',p:0:3);
readln;
end.
1
0 / 0 / 0
Регистрация: 12.11.2017
Сообщений: 10
12.11.2017, 16:04  [ТС] 3
Выдает ошибку проверки диапазона
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
12.11.2017, 16:15 4
Турбо Паскаль.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{$R+}
uses crt;
const n=5;
      x=1.2;
      a:array[0..n] of real=(1.3,-0.8, 1.8, 4.1, -7.4, 6.7);
var p:real;
    i:integer;
begin
clrscr;
p:=0;
for i:=0 to n do
p:=p*x+a[i];
writeln('p=',p:0:3);
readln;
end.
Никакой ошибки нет.
Миниатюры
Вычислить значение полинома по схеме Горнера  
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
12.11.2017, 16:17 5
Ни в Паскаль АВС, ни в АВС.net ошибки также нет.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2017, 16:17

Вычислить значение полинома
Вычислить значение полинома P(x) в произвольной точке x, если P(x)=1 + x + x^2 + x^3...+x^3...+x^n....

Вычислить значение полинома
выполнить с использованием функции ввод и вывод массивов и других данных не объединять с...

Полином по схеме Горнера
Помогите найти ошибку, вроде все правильно, но почему-то в ответе всегда получается 0. program...

Вычислить значение полинома в заданной точке
Составить программу вычисления в точке x=x* procedure и function (с использованием текстовых...


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

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

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