составить программу вычисления суммы членов ряда S, заданного общим членом a энное, с точностью эпсилон, Помогите пожалуйста составить программу |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
составить программу вычисления суммы членов ряда S, заданного общим членом a энное, с точностью эпсилон, Помогите пожалуйста составить программу |
latysh |
Сообщение
#1
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Составить программу вычисления суммы членов ряда S, заданного общим членом a(n)- энное)) , с точностью эпсилон. Вывести на экран число членов ряда n, при котором достигается заданная точность.
a(n)=1/(2^n)+ 1/(3^n) E(эпсилон)=10^-3 |
Lapp |
Сообщение
#2
|
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Составить программу вычисления суммы членов ряда S, заданного общим членом a(n)- энное)) , с точностью эпсилон. Вывести на экран число членов ряда n, при котором достигается заданная точность. a(n)=1/(2^n)+ 1/(3^n) E(эпсилон)=10^-3 latysh, с чем у тебя затык? Тут я вижу только одну сложность: как оценить точность. По идее, для знакопостоянного ряда простых способов ее оценки просто нет. Но обычно в подобных задачах "точностью" называют просто величину общего члена (an). Тогда все совсем просто (предполагаю, что сумма начинается с n=1): s:=0; Вот, как-то так.. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
TarasBer |
Сообщение
#3
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
> По идее, для знакопостоянного ряда простых способов ее оценки просто нет.
В данном случае можно оценить, что |An-A|<=2an, где An - сумма первых n членов ряда. > Но обычно в подобных задачах "точностью" называют просто величину общего члена (an) Неплохой способ вычислить сумму гармонического ряда с точностью до епсилон... -------------------- |
latysh |
Сообщение
#4
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
latysh, с чем у тебя затык? Тут я вижу только одну сложность: как оценить точность. По идее, для знакопостоянного ряда простых способов ее оценки просто нет. Но обычно в подобных задачах "точностью" называют просто величину общего члена (an). Тогда все совсем просто (предполагаю, что сумма начинается с n=1): s:=0; Вот, как-то так.. Ах вот как она получается,СПАСИБО!....а если заданиие не менять а условие будет =a(n)=(2n-1)/2^n, e=10^-3,программа будет такой?: program laba4; var n,a,e:real; begin; n:=1; n:=2 ; a:=((2*n-1))/(exp(n*ln(2)))) ;then begin; writeln('vvedite e') ; readln(e); n=1 a=(2*N)-1)(exp(n*ln(2))); while a>e do begin n:=n+1; a:=(2*N)-1)(exp(n*ln(2))) ; end; writeln('Otvet='a,n) end end. |
latysh |
Сообщение
#5
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
суммирование членов ряда начинается с n=1 и продолжается до тех пор, пока не выполнится условие: an<e. Значение первого члена ряда вычисляется непосредственной подстановкой значения n=1 в приведенное выражение. Остальные члены ряда вычисляются с использованием рекуррентной формулы: an+1=(and). Для этого необходимо предварительно, исходя из заданного выражения, вывести формулу для вычисления величины d=an+1/an.Немного исправил, похоже должно быть следующее, не так ли?
program laba4; var n,a,e:real; begin; n:=1; n:=2 ; a:=((2*n)-1)/(exp(n*ln(2))) ; if a>e then ; begin writeln('vvedite e') ; readln(e); n:=1; a:=((2*N)-1)/(exp(n*ln(2))); while a>e do begin n:=n+1; a:=((2*N)-1)/(exp(n*ln(2))) ; end; writeln('Otvet=n',n); writeln('otvet=a',a); end end. Сообщение отредактировано: latysh - |
Текстовая версия | 29.04.2024 14:47 |