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 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
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

 





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