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

@Kir007 · Регистрация: 23.10.2012

Помогите пожалуйста составить программу для вычисления суммы ряда 1+x+(x^2)/2! + (x^3)/3! + (X^n)/n!
используя вспомогательную программу

@Puporev · 24.10.2012, 17:15

Pascal

uses crt;
function Exp1(x,e:real):real;
var u,t:real;
    n:integer;
begin
n:=0;
t:=1;
u:=1;
while abs(t)>=e do
 begin
  n:=n+1;
  t:=t*x/n;
  u:=u+t;
 end;
Exp1:=u;
end;
var x,e:real;
    i:byte;
begin
clrscr;
write('x=');
readln(x);
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until (e>0)and(e<1);
writeln('Вычислено по формуле с точностью e=',e:0:6,'=',Exp1(x,e):0:6);
writeln('Аналитически   =',exp(x):0:6);
readln
end.

@Kir007 · 24.10.2012, 19:27 **[ТС]**

Извените, а нельзя ли создать более упрощенную версию программы?)

@Puporev · 24.10.2012, 19:39

Сделайте, если будет нормально работать, покажете. Впредь прошу ахинею не спрашивать.

@Kir007 0 / 0 / 0 Регистрация: 23.10.2012 Сообщений: 4
		1
	Составить программу для вычисления суммы ряда 23.10.2012, 21:43. Показов 1449. Ответов 3 Метки нет (Все метки) Помогите пожалуйста составить программу для вычисления суммы ряда 1+x+(x^2)/2! + (x^3)/3! + (X^n)/n! используя вспомогательную программу 0

@Kir007 0 / 0 / 0 Регистрация: 23.10.2012 Сообщений: 4
	24.10.2012, 19:27 [ТС]	3
	Извените, а нельзя ли создать более упрощенную версию программы?) 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	24.10.2012, 19:39	4
	Сделайте, если будет нормально работать, покажете. Впредь прошу ахинею не спрашивать. 1

Опции темы