Сумма бесконечного ряда - Паскаль, Turbo Pascal, PascalABC.NET

vetal0007 · 11.02.2012, 22:25

Помогите написать задачу...

Stilet · 11.02.2012, 22:40

Было уже. Ищи поиском по похожим темам внизу страницы и по слову факториал

vetal0007 · 11.02.2012, 23:06

Не нашел

Пока вас дождешься, все сам делаю) уже 2ю задачу так) Если вдруг кому пригодится, вот:

Код:

const
  eps=0.001;
var
  x,s:real;
  i:word;
begin
  x:=1;
  s:=x;
  i:=1;
  repeat
    i:=i+1;
    x:=x*-1/i;
    s:=s+x;
  until abs(x)<eps;
  writeln('Сумма ряда=',s:0:10); Readln(s)
end.

Stilet · 12.02.2012, 00:32

Цитата:

Не нашел

Слабак )

Вот хотя бы тут:
http://www.programmersforum.ru/showthread.php?t=3933
Только то разница что у тебя еще единицу на элемент делить.
А это так вообще ё-твое: http://www.programmersforum.ru/showthread.php?t=167621
Просто признайся что ты не искал

11.02.2012, 22:40	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Было уже. Ищи поиском по похожим темам внизу страницы и по слову факториал I'm learning to live...

11.02.2012, 23:06	#3
vetal0007 Регистрация: 11.02.2012 Сообщений: 3	Не нашел Пока вас дождешься, все сам делаю) уже 2ю задачу так) Если вдруг кому пригодится, вот: Код: `const eps=0.001; var x,s:real; i:word; begin x:=1; s:=x; i:=1; repeat i:=i+1; x:=x-1/i; s:=s+x; until abs(x)<eps; writeln('Сумма ряда=',s:0:10); Readln(s) end.` Последний раз редактировалось Stilet; 12.02.2012 в 00:32.*

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сумма бесконечного ряда (Pascal)	spinogryz_ua	Помощь студентам	3	20.01.2012 04:32
Сумма членов бесконечного ряда	TheFaster	Помощь студентам	3	10.05.2011 17:06
Сумма бесконечного ряда	random7	Паскаль, Turbo Pascal, PascalABC.NET	3	18.09.2009 20:41
Сумма бесконечного ряда (баг)	Anarx	Общие вопросы C/C++	2	23.03.2009 15:29
Паскаль. Сумма бесконечного ряда	Tream	Помощь студентам	4	13.10.2007 23:42