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

@Wladimiralm · Регистрация: 09.10.2011

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

Если можно попроще код.

@Puporev · 13.10.2011, 18:31

Pascal

var x,t,s:real;
     i:integer;
begin
write('x=');
readln(x);
s:=x;
t:=x;
i:=1;
while abs(t/i)>0.0001 do
 begin
  i:=i+1;
  t:=-t*x;
  s:=s+t/i;
 end;
write('S=',s:0:4);
readln
end.

@Wladimiralm 0 / 0 / 1 Регистрация: 09.10.2011 Сообщений: 17
		1
	Вычислить сумму ряда с заданной точностью 13.10.2011, 18:15. Показов 1376. Ответов 1 Метки нет (Все метки) Если можно попроще код. Миниатюры 0

	13.10.2011, 18:31

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

Решение