03.11.2009, 17:29 | #11 (permalink) |
Banned
Регистрация: 01.09.2009
Сообщений: 4,396
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 2544
|
Терминология такая: Предел существует и он конечен - последовательность сходится. Предел существует и он бесконечен - последовательность расходится. Предела не существует. И да, терминологические споры и в правду значения не имеют |
03.11.2009, 17:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ранее на форуме создавались темы, которые напоминают вашу Сгенерировать последовательности на Delphi Последовательности в С++ |
03.11.2009, 17:54 | #12 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
Владимир, если я не ошибаюсь, вы упустили множитель.
__________________
Убить всех человеков! |
|
03.11.2009, 18:10 | #13 (permalink) | |
Banned
Регистрация: 01.09.2009
Сообщений: 4,396
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 2544
|
1) речь идет о вычислении предела последовательности, а не суммы ряда.
2) Цитата:
|
|
03.11.2009, 21:56 | #15 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.11.2009, 10:55 | #17 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ох, да пожалуйста:
VAR N:LongInt; FUNCTION X2np(X:Extended; n:LongInt):Extended; Var i:LongInt; Y:Extended; BEGIN IF n=0 THEN X2np:=1 ELSE IF n=1 THEN X2np:=X ELSE BEGIN Y:=X; FOR i:=2 TO n DO Y:=Y*X; X2np:=Y; END; END; BEGIN N:=1; REPEAT INC(N); UNTIL ABS(ABS(X2np(-0.999,N-1))-ABS(X2np(-0.999,N)))<1E-8; WriteLn(ABS(X2np(-0.999,N)):6:4); Readln; END. |
08.11.2009, 11:10 | #19 (permalink) |
Member
Регистрация: 02.11.2009
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Дали дополнительное задание:
Заполнить следующую таблицу: Эпсилон 0,1 0,001 0,0001 … N ? ? Замечание. Значение ЭПСИЛОН можно взять любым, в зависимости от предлагаемой последовательности. Значения ЭПСИЛОН подставлять в самой программе и получившееся значение предела и на каком шаге ЭПСИЛОН последовательность примет окончательный предел |
08.11.2009, 16:01 | #20 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|