Вычислить бесконечную сумму с заданной точностью

Aestetik · 23.12.2012, 19:08

Вычислить бесконечную сумму с заданной точностью eps (eps>0). Считать, что точность достигнута, если очередное слагаемое по модулю меньше eps – все последующие слагаемые можно не учитывать.

Aestetik · 23.12.2012, 19:26

Язык программирования Паскаль АВС

Vladimir_S · 23.12.2012, 19:48

Да пожалуйста. Язык программирования - Free Pascal:

Код:

Var
 k:Integer;
 S,a,eps:Real;

BEGIN
 Write('Eps= ');
 Readln(eps);
 WriteLn('      Result      Number of items     Accurate value');
 k:=1;
 a:=-1;
 S:=a;
 Repeat
  Inc(k);
  a:=-a/k;
  S:=S+a;
 Until Abs(a)<Eps;
 WriteLn(S:12:6,k:12,(Exp(-1)-1):24:6);
 Readln;
END.

И модераторское замечание: прекратите уделывание форума дубликатами!!! У нас подобное наказуемо, вплоть до бана.
Тема-дубликат удалена.

23.12.2012, 19:08	#1 (permalink)
Aestetik Новичок Регистрация: 22.12.2012 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вычислить бесконечную сумму с заданной точностью Вычислить бесконечную сумму с заданной точностью eps (eps>0). Считать, что точность достигнута, если очередное слагаемое по модулю меньше eps – все последующие слагаемые можно не учитывать. Изображения

23.12.2012, 19:48	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Да пожалуйста. Язык программирования - Free Pascal: Код: Var k:Integer; S,a,eps:Real; BEGIN Write('Eps= '); Readln(eps); WriteLn(' Result Number of items Accurate value'); k:=1; a:=-1; S:=a; Repeat Inc(k); a:=-a/k; S:=S+a; Until Abs(a)<Eps; WriteLn(S:12:6,k:12,(Exp(-1)-1):24:6); Readln; END. И модераторское замечание: прекратите уделывание форума дубликатами!!! У нас подобное наказуемо, вплоть до бана. Тема-дубликат удалена.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

23.12.2012, 19:26	#2 (permalink)
Aestetik Новичок Регистрация: 22.12.2012 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Язык программирования Паскаль АВС

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070