IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Переполнение, Цикл...сумма элементов
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 65
Пол: Мужской

Репутация: -  0  +


Ниче не понимаю пачиму ошибку переполнения выдает(((
Пасмарите плиз:
Используя оператор цикла, найти сумму элементов!При определении суммы членов ряда использовать реккурентную формулу.
Найти сумму ряда с точностью Е=10^-3 , общий член которого равен An=n!/(3n^n).
Вот текст моей программки:
CONST
i=0.1E-2;
var
n: integer;
AN, summa:extended;
begin
summa:=0; n:= 1; AN:= 1/2;
while AN>i do
begin
summa:= summa + AN; n:=n+1;
AN:= An*(ln(n+1)*((n+1)/n));
end;
writeln ( 'summa=', summa:2:4);
Writeln ('4islo=', AN:2:4);
readln;
end.




Рекурентку я посчитал,она представленна в тексте программы.Очень нужна помощь.Заранее очень благодарен
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Ты правда считаешь, что 3n^n и (3n)^n - это одно и то же?
Цитата
Я не вникал,

Заметно.
Цитата
но переполнение возникает из-за того что AN изначально больше i и оно не убывает, а даже шустро возрастает во время исполнения программы.

Правда?
Приближенные значения:
0.333
0.167
0.074
0.031
0.013
...

Сообщение отредактировано: мисс_граффити -


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Zundell   Переполнение   20.01.2007 21:44
arhimag   Я не вникал, но переполнение возникает из-за того …   20.01.2007 23:53
volvo   arhimag, а прочтение условий что, НЕ для тебя? А о…   20.01.2007 23:57
мисс_граффити   Ты правда считаешь, что 3n^n и (3n)^n - это одно и…   20.01.2007 23:57
arhimag   Про рекуррентную формулу я забыл :( а по поводу в…   20.01.2007 23:59
мисс_граффити   Рекуррентная формула: A(n+1)=(n+1)!/(3(n+1)^(n…   21.01.2007 0:10
arhimag   CONST i=0.1E-2; var n: integer; AN, summa…   21.01.2007 0:17
Zundell   мисс_граффити у меня рекурентка получилась An*(n+…   21.01.2007 2:24
мисс_граффити   напиши, как выводил   21.01.2007 2:46
Zundell   Мисс Графити,извиняюсь..я у себя ошибку нашел,немн…   21.01.2007 3:45
мисс_граффити   считает-то нормально, только совсем другое :)))   21.01.2007 4:37
Zundell   Почему???там ведь при выводе рекуррентки и в числи…   21.01.2007 6:23
мисс_граффити   Ты думаешь, что ln(n)*n=n^n? А почему? Возьмем для…   21.01.2007 6:28
Zundell   хм...а вот так прральна буит?An*(exp(ln(n)*n))/(ex…   21.01.2007 18:15
мисс_граффити   да... но так ты приходишь к варианту arhimagа. при…   21.01.2007 18:37
Zundell   Я щя проверил,мой вариант...переполнения не возник…   21.01.2007 19:15


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 18:59
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name