Вычислить значение функции (e^x)*(x+1) с заданной точностью

@NotFuture · Регистрация: 24.07.2020

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

Вычислить значение функции (e^x)*(x+1) при модуль x<2.4 с заданной точностью с помощью разложения в ряд. Составьте два варианта программы, с использованием рекурсивного и итерационного алгоритма . Помогите пожалуйста разобраться с данным заданием

@Puporev · 24.07.2020, 19:35

Pascal

const e=0.00001; //точность
function Summa(x,sn,st:real;n:integer):real;
//параметры:  х, начальный член ряда(1),
//начальный текущий член ряда((x)^n*(n+1)/(n!), счетчик итераций(от 0)}
var t:real; // изменяющийся текущий член ряда
begin
Summa:=sn;
t:=st*x/n;
if abs(t)*(n+1)<e then  exit;
Summa:=Summa(x,sn+t*(n+1),t,n+1);
end;
var x,t,s:real;
    n:integer;
begin
repeat
write('|x|<2.4 x=');
readln(x);
until abs(x)<2.4;
writeln ('Сумма рекурсией=',Summa(x,1,1,1):0:5);
n:=0;
t:=1;
s:=t;
while abs(t)*(n+1)>e do
 begin
  n:=n+1;
  t:=t*x/n;
  s:=s+t*(n+1);
 end;
writeln('Сумма итеративно=',s:0:5);
write('e^x*(1+x)=',exp(x)*(1+x):0:5);
end.

@NotFuture 0 / 0 / 0 Регистрация: 24.07.2020 Сообщений: 15
		1
	Вычислить значение функции (e^x)(x+1) с заданной точностью 24.07.2020, 17:55. Показов* 1246. Ответов 1 Метки pascal, pascal abc, итерация, разложение в ряд, разложение в ряд pascal, рекурсия (Все метки) Вычислить значение функции (e^x)*(x+1) при модуль x<2.4 с заданной точностью с помощью разложения в ряд. Составьте два варианта программы, с использованием рекурсивного и итерационного алгоритма . Помогите пожалуйста разобраться с данным заданием Миниатюры 0

	24.07.2020, 19:35

Вычислить значение функции (e^x)*(x+1) с заданной точностью

Решение