Найти сумму ряда с заданной точностью

@Jebol · Регистрация: 05.12.2011

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

Помогите составить программу для нахождения суммы ряда с точностью E=0,001.
формула члена ряда Название: 3a529591168c.png
Просмотров: 260

Размер: 762 байт

Название: 3a529591168c.png
Просмотров: 260

Размер: 762 байт

сам составил вот такую программу но она почему-то не работает

Pascal

program sum;
 
var
  N: integer;
  Sum, Y, E: real;
 
begin
  write('введите E=');
  readln(E);
  Sum := 0;
  N := 0;
  repeat
    Y := Exp(10 * ln(N)) / N;
    Sum := Sum + Y;
    N := N + 1;
  until Y < E;
  Writeln('Сумма = ', Sum:0:3);
end.

@versa4e · 04.01.2012, 16:02

Pascal

const
  eps=0.001;
var
  s,i,x:real;
begin
  s:=0;
  x:=1;
  i:=1;
  repeat
    x:=x*10/i;
    s:=s+x;
    i:=i+1;
  until x<eps;
  writeln('S=',s:0:5);
end.

@Jebol · 04.01.2012, 18:39 **[ТС]**

Спасибо конечно, но где вы использовали мою формулу?

@versa4e · 04.01.2012, 18:59

По этой формуле выводится следующий член ряда в цикле.

@Jebol · 04.01.2012, 19:03 **[ТС]**

Это я понимаю, но разве 10 в степень I возводить не надо?

@versa4e · 04.01.2012, 19:12

Из формулы находим закономерность, перемножая член ряда на 10/i, мы получаем следующий член ряда. an-1=10^n-1/n-1! an=an-1*10/n=10^n/n!

@Jebol · 04.01.2012, 19:25 **[ТС]**

Кажется я понял, спасибо за помощь!

@Jebol 1 / 1 / 0 Регистрация: 05.12.2011 Сообщений: 39
	04.01.2012, 18:39 [ТС]	3
	Спасибо конечно, но где вы использовали мою формулу? 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	04.01.2012, 18:59	4
	По этой формуле выводится следующий член ряда в цикле. 0

@Jebol 1 / 1 / 0 Регистрация: 05.12.2011 Сообщений: 39
	04.01.2012, 19:03 [ТС]	5
	Это я понимаю, но разве 10 в степень I возводить не надо? 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	04.01.2012, 19:12	6
	Из формулы находим закономерность, перемножая член ряда на 10/i, мы получаем следующий член ряда. an-1=10^n-1/n-1! an=an-1*10/n=10^n/n! 0

@Jebol 1 / 1 / 0 Регистрация: 05.12.2011 Сообщений: 39
	04.01.2012, 19:25 [ТС]	7
	Кажется я понял, спасибо за помощь! 0