Схема Горнера. Рекурсия.

@ExcelExalted · Регистрация: 09.04.2010

Author24 — интернет-сервис помощи студентам

Всем доброго. Прошу помочь с задачей:
Написать рекурсию, которая вычисляет сумму много члена n-ой степени по формуле Гернера.
Подойдёт код даже на подобную формулу, но желательно бы с этой

. Спасибо.

@(= SeVeN =) · 10.04.2010, 00:00

Сообщение от ExcelExalted

Гернера

обычно его называют Горнером...

@Puporev · 10.04.2010, 16:54

Pascal

uses crt;
const nmax=30;
type mas=array[1..nmax] of real;
function Horner(m:mas;x:real;n:byte):real;
begin
if n=1 then Horner:=m[n]
else Horner:=Horner(m,x,n-1)*x+m[n];
end;
var a:mas;
    x,sm:real;
    n,i:integer;
begin
clrscr;
repeat
write('Vvedite poryadok polinoma n=');
readln(n);
until n in [1..nmax];
writeln('Vvedite koefficienty polynoma:');
for i:=1 to n+1 do
 begin
   write('a[',i,']=');
   readln(a[i]);
 end;
clrscr;
write('x=');readln(x);
writeln('Summa polynoma:');
write(a[1]:0:2,'x^',n);
for i:=2 to n do
if a[i]<0 then write(a[i]:0:2,'x^',n-i+1)
else write('+',a[i]:0:2,'x^',n-i+1);
if a[n+1]<0 then write(a[n+1]:0:2,'x^0=')
else write('+',a[n+1]:0:2,'x^0=');
write(Horner(a,x,n+1):0:2);
readln
end.

@ExcelExalted · 17.04.2010, 00:48 **[ТС]**

Спасибо огромное

@ExcelExalted 0 / 0 / 0 Регистрация: 09.04.2010 Сообщений: 8
		1
	Схема Горнера. Рекурсия. 09.04.2010, 18:39. Показов 2880. Ответов 3 Метки нет (Все метки) Всем доброго. Прошу помочь с задачей: Написать рекурсию, которая вычисляет сумму много члена n-ой степени по формуле Гернера. Подойдёт код даже на подобную формулу, но желательно бы с этой . Спасибо. Изображения 0

@(= SeVeN =) 2 / 2 / 0 Регистрация: 09.04.2010 Сообщений: 18
	10.04.2010, 00:00	2
	Сообщение от ExcelExalted Гернера обычно его называют Горнером... 0

@ExcelExalted 0 / 0 / 0 Регистрация: 09.04.2010 Сообщений: 8
	17.04.2010, 00:48 [ТС]	4
	Спасибо огромное 0