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

@1Sn1KeRS1 · Регистрация: 26.03.2019

Объясните пожалуйста программу, каждую строку Завтра нужно преподу объяснить Спасибо!
Условие задачи:
Составить программу для вычисления значения polinoma
P(x)=a1*x^n+a2*x^n-1+...+an*x+a(n+1)
Для x=x1,x2,...xm по схеме Горнера, т. е представляя полином в виде
P(x)=(...((a1*xx+a2)*x+a3)*x+...+an)*x+a(n+1). (n<=10,m<=8).
Исходные данные: n=5; m=4;
a={32,0; -16,0; -32;0; 8,0; -6,0; 15,0}; x={-1;0,5;1;1,5}.
РЕШЕНИЕ:

Pascal

const n=5;
m=4;
a:array[0..n] of real=(32.0,-16.0,-32.0,8.0,-6.0,15.0);
x:array[1..m] of real=(-1,0.5,1,1.5);
//определение значения полинома по схеме Горнера
function P(xx:real):real;
var i:byte;
s:real;
begin
s:=0;
for i:=0 to n do
s:=s*xx+a[i];
P:=s;
end;
var i:byte;
s,t,z:real;
begin
writeln('Коэффициенты полинома А');
for i:=0 to n do
write(a[i]:5:1);
writeln;
writeln('Значения полинома при заданных х');
for i:=1 to m do
writeln('x=',x[i]:4:1,' P=',P(x[i]):5:1);
end.

Добавлено через 2 минуты
Хотяб, откуда взялась строка "s:=s*xx+a[i]" и что она делает

@Puporev · 24.04.2019, 09:27

У Вас это написано в комментариях к заданию.

Сообщение от 1Sn1KeRS1

P(x)=(...((a1*xx+a2)*x+a3)*x+...+an)*x+a(n+1).

И Вы все же ничего не прочитали о схеме Горнера.

@1Sn1KeRS1 · 24.04.2019, 09:29 **[ТС]**

Понял

@Puporev · 24.04.2019, 09:32

хх это значение аргумента х.

Добавлено через 1 минуту
Поскольку у нас уже есть переменная х-массив значений, чтобы не повторять, другую назвали хх.

@1Sn1KeRS1 · 24.04.2019, 09:36 **[ТС]**

Я читал про схему Горнера, но не понял(

@Puporev · 24.04.2019, 09:37

Сообщение от 1Sn1KeRS1

но не понял(

Ну извини, я точно не учебник.

@1Sn1KeRS1 · 24.04.2019, 10:02 **[ТС]**

Препод сказал что в программе грубейшая ошибка

Добавлено через 4 минуты
Я нашел ошибку
В строке 10
Т.к при 12 строке - умножение на 0 - выведет 0

Добавлено через 15 секунд
s:=1

@Puporev · 24.04.2019, 10:08

Это неверно, первый раз будет
s:=s*xx+a[i];-> 0*xx+a[i]=a[i]//свободный член, у которого нет х
А дальше, если х<>0 s уже не будет 0.

@Puporev · 24.04.2019, 10:09

Вот что получается, проверь на калькуляторе.

@Puporev Почетный модератор 64278 / 47577 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	24.04.2019, 09:27	2
	У Вас это написано в комментариях к заданию. Сообщение от 1Sn1KeRS1 P(x)=(...((a1xx+a2)x+a3)x+...+an)x+a(n+1). И Вы все же ничего не прочитали о схеме Горнера. 0

@1Sn1KeRS1 0 / 0 / 0 Регистрация: 26.03.2019 Сообщений: 43
	24.04.2019, 09:29 [ТС]	3
	Понял 0

@Puporev Почетный модератор 64278 / 47577 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	24.04.2019, 09:32	4
	хх это значение аргумента х. Добавлено через 1 минуту Поскольку у нас уже есть переменная х-массив значений, чтобы не повторять, другую назвали хх. 0

@1Sn1KeRS1 0 / 0 / 0 Регистрация: 26.03.2019 Сообщений: 43
	24.04.2019, 09:36 [ТС]	5
	Я читал про схему Горнера, но не понял( 0

@Puporev Почетный модератор 64278 / 47577 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	24.04.2019, 09:37	6
	Сообщение от 1Sn1KeRS1 но не понял( Ну извини, я точно не учебник. 0

@1Sn1KeRS1 0 / 0 / 0 Регистрация: 26.03.2019 Сообщений: 43
	24.04.2019, 10:02 [ТС]	7
	Препод сказал что в программе грубейшая ошибка Добавлено через 4 минуты Я нашел ошибку В строке 10 Т.к при 12 строке - умножение на 0 - выведет 0 Добавлено через 15 секунд s:=1 0

@Puporev Почетный модератор 64278 / 47577 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	24.04.2019, 10:08	8
	Это неверно, первый раз будет s:=sxx+a[i];-> 0xx+a[i]=a[i]//свободный член, у которого нет х А дальше, если х<>0 s уже не будет 0. 0

@Puporev Почетный модератор 64278 / 47577 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	24.04.2019, 10:09	9
	Вот что получается, проверь на калькуляторе. Миниатюры 0

Опции темы