![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
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 825 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата Сумма от беск. до n что значит от бесконечности???? давайте полное задание! Цитата E=1E-3 ,x=0.15; а это что? -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
klem4 |
![]()
Сообщение
#3
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Цитата Цитата E=1E-3 ,x=0.15; а это что? Ну х понятно, а е- погрешность вычислений, очень похожие задачи мы решали назывались они "Конечные суммы" Тебе даваласю формула и нужно было ее разложить в ряд и посчитать сумму с помощью него, без использования возведения в степень, логарифмов итд, только + ,-, *, / , все это решалось с помощью реккурентного соотношения, но там давалась сама формула, погрешность и Х для решения. Сообщение отредактировано: klem4 - -------------------- 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,оказывается, когда изображаешь на графике метод итераций, все корни (х) надо откладывать в одну сторону! Вот так... ;)
|
![]() ![]() |
![]() |
Текстовая версия | 18.04.2025 19:49 |