![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
agressor |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: ![]() ![]() ![]() |
Сумма от беск. до n=1 (-1)*(sqr n+1)*(x*sqr 2x+1)/4*n*n+1) ;E=1E-3 ,x=0.15;
|
Altair |
![]()
Сообщение
#2
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата Сумма от беск. до n что значит от бесконечности???? давайте полное задание! Цитата E=1E-3 ,x=0.15; а это что? -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
klem4 |
![]()
Сообщение
#3
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Цитата Цитата E=1E-3 ,x=0.15; а это что? Ну х понятно, а е- погрешность вычислений, очень похожие задачи мы решали назывались они "Конечные суммы" Тебе даваласю формула и нужно было ее разложить в ряд и посчитать сумму с помощью него, без использования возведения в степень, логарифмов итд, только + ,-, *, / , все это решалось с помощью реккурентного соотношения, но там давалась сама формула, погрешность и Х для решения. Сообщение отредактировано: klem4 - 16.01.2005 17:27 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
![]()
Сообщение
#4
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Вот чисто по аналогии с нашими задачами :
Код 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_* |
![]()
Сообщение
#5
|
Гость ![]() |
А можно задать такой вопрос (он попался мне на экзамене): почему в этом условии мы используем именно абсолютное значение и зачем нам необходимо это условие? Условие: until (abs(r(n)/s)<e)
![]() |
volvo |
![]()
Сообщение
#6
|
Гость ![]() |
Цитата(-rov4_* @ 16.02.05 10:20) почему в этом условии мы используем именно абсолютное значение Потому, что мы не знаем, окажется частное r(n)/s положительным или отрицательным (так вот, если оно окажется отрицательным, abs поможет нам вовремя остановить цикл) Цитата(-rov4_* @ 16.02.05 10:20) зачем нам необходимо это условие? Как раз для того, чтобы остановить цикл, как только достигнута требуемая точность... Иначе процесс вычисления никогда не завершится... |
-rov4_* |
![]()
Сообщение
#7
|
Гость ![]() |
Спасибо, volvo, за пояснения.
Только вот препод меня ещё одним вопросом мучает. Просит изобразить метод итераций на графике, я беру, например, значение Х0, потом нахожу Х1 и т.д., а она спрашивает, почему Х0 в дной стороне, а Х1 в противоположной, т.е., почему именно в такую-то сторону надо откладывать следующий Х? Заранее спасибо... |
klem4 |
![]()
Сообщение
#8
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Не очень понял, что ты хочешь, но мне кажется это из-за (-1),
каждый последующий член меняет знак. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
-rov4- |
![]()
Сообщение
#9
|
Гость ![]() |
klem4,оказывается, когда изображаешь на графике метод итераций, все корни (х) надо откладывать в одну сторону! Вот так... ;)
|
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 13:53 |