Задача на сумму, НЕ представляю как решить Помогите |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача на сумму, НЕ представляю как решить Помогите |
agressor |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: 0 |
Сумма от беск. до n=1 (-1)*(sqr n+1)*(x*sqr 2x+1)/4*n*n+1) ;E=1E-3 ,x=0.15;
|
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Вот чисто по аналогии с нашими задачами :
Код uses crt; const e=0.001; x=0.15; var s:extended; i,n:integer; function r(n:integer):extended; begin r:=(-1)*(sqr(n)+1)*(4*exp(3*ln(x)))/4*sqr(n) + 1; end; Begin clrscr; s:=0; n:=0; repeat inc(n); s:=s+r(n); writeln(s:2:4) until (abs(r(n)/s)<e)or(n=1000); writeln; writeln('n=',n); writeln('r(n)=',r(n):2:4); writeln('s=',s:2:4); readln; end. PS на 97% уверен что это не правильно -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
-rov4_* |
Сообщение
#3
|
Гость |
А можно задать такой вопрос (он попался мне на экзамене): почему в этом условии мы используем именно абсолютное значение и зачем нам необходимо это условие? Условие: until (abs(r(n)/s)<e)
|
Текстовая версия | 25.09.2024 19:44 |