Предмет: Информатика,
автор: lozaviacheslav
Помогите найти значение уравнения ИМЕННО по методу ГОРНЕРА и записать в PascalABC.NET.Другие способы не интересуют.Очень нужно ,пожалуйста.
p=3*x^6-5*x^3+x-4
Приложения:
![](https://files.topotvet.com/i/3a4/3a4aa39dec4d9fc53bd866204a87155a.jpg)
![](https://files.topotvet.com/i/66f/66faef0f60d1b6b08678a911110c4711.jpg)
Ответы
Автор ответа:
0
PascalABC.NET 3.2, сборка 1488 от 21.06.2017
Внимание! Если программа не работает, обновите версию!
1. Решение в современном стиле
function Horner(x:real;a:array of real):real;
begin
Result:=x*a.Last;
for var i:=a.Length-2 downto 1 do
Result:=x*(a[i]+Result);
Result+=a.First
end;
begin
var n:=ReadInteger('Степень полинома:');
var x:=ReadReal('x=');
var a:=ReadArrReal('Коэффициенты, начиная со свободного члена:',n+1);
Writeln('Значение полинома: ',Horner(x,a))
end.
Пример
Степень полинома: 6
x= 2.18
Коэффициенты, начиная со свободного члена: -4 1 0 -5 0 0 3
Значение полинома: 268.382061281472
2. Решение в стиле "так писали на ТурбоПаскаль наши отцы и деды"
const
nn=50; // максимальная степень полинома
type
mas=array[0..nn] of real;
function Horner(n:integer;x:real;a:mas):real;
var
i:integer;
s:real;
begin
s:=x*a[n];
for i:=n-1 downto 1 do
s:=x*(a[i]+s);
Horner:=s+a[0]
end;
var
i,n:integer;
x:real;
a:mas;
begin
Write('Степень полинома: ');
Read(n);
Write('x= ');
Read(x);
Write('Коэффициенты, начиная со свободного члена: ');
for i:=0 to n do
Read(a[i]);
Writeln('Значение полинома: ',Horner(n,x,a))
end.
Внимание! Если программа не работает, обновите версию!
1. Решение в современном стиле
function Horner(x:real;a:array of real):real;
begin
Result:=x*a.Last;
for var i:=a.Length-2 downto 1 do
Result:=x*(a[i]+Result);
Result+=a.First
end;
begin
var n:=ReadInteger('Степень полинома:');
var x:=ReadReal('x=');
var a:=ReadArrReal('Коэффициенты, начиная со свободного члена:',n+1);
Writeln('Значение полинома: ',Horner(x,a))
end.
Пример
Степень полинома: 6
x= 2.18
Коэффициенты, начиная со свободного члена: -4 1 0 -5 0 0 3
Значение полинома: 268.382061281472
2. Решение в стиле "так писали на ТурбоПаскаль наши отцы и деды"
const
nn=50; // максимальная степень полинома
type
mas=array[0..nn] of real;
function Horner(n:integer;x:real;a:mas):real;
var
i:integer;
s:real;
begin
s:=x*a[n];
for i:=n-1 downto 1 do
s:=x*(a[i]+s);
Horner:=s+a[0]
end;
var
i,n:integer;
x:real;
a:mas;
begin
Write('Степень полинома: ');
Read(n);
Write('x= ');
Read(x);
Write('Коэффициенты, начиная со свободного члена: ');
for i:=0 to n do
Read(a[i]);
Writeln('Значение полинома: ',Horner(n,x,a))
end.
Автор ответа:
0
Был вариант еще короче, но боюсь, что он не для Вашего уровня знаний
Автор ответа:
0
function Horner(Self:array of real;x:real):real; extensionmethod;
begin
Result:=Self.Aggregate(0.0,(p,q)->p*x+q) // коэфф. по убыванию степеней!
end;
begin
var n:=ReadInteger('Степень полинома:');
var x:=ReadReal('x=');
var a:=ReadArrReal('Коэффициенты, начиная со старшей степени:',n+1);
Writeln('Результат: ',a.Horner(x))
end.
begin
Result:=Self.Aggregate(0.0,(p,q)->p*x+q) // коэфф. по убыванию степеней!
end;
begin
var n:=ReadInteger('Степень полинома:');
var x:=ReadReal('x=');
var a:=ReadArrReal('Коэффициенты, начиная со старшей степени:',n+1);
Writeln('Результат: ',a.Horner(x))
end.
Автор ответа:
0
Хотя и это тоже PascalABC.NET 3.2
Автор ответа:
0
Спасибо огромное.Все правильно.Сдал)
Автор ответа:
0
Было бы странным написать неправильно программу объемом в несколько строк.
Похожие вопросы
Предмет: География,
автор: fygzrhgztj
Предмет: Математика,
автор: lamannamedova22
Предмет: Физика,
автор: ii3479375
Предмет: История,
автор: polinapev
Предмет: Математика,
автор: Чаудар