![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 07.10.2012
Сообщений: 13
|
![]()
Здравствуйте. Помогите с задачкой, пожалуйста: необходимо вычислить сумму с точностью до е
Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем е - это и все последующие слагаемые можно уже не учитывать. Заранее спасибо |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 31.05.2010
Сообщений: 407
|
![]()
icq 584 308 611
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 07.10.2012
Сообщений: 13
|
![]()
Спасибо, но у меня вот проблема с факториалом, как его непосредственно влепить в цикл? Пытался через функцию, программа выполняется, но не правильно:
Код HTML:
var k,i,n:integer; Sum,S,e,x,f:real; function Fac(k:integer):longint; var i,f:longint; begin f:=1; for i:=1 to n do if odd(i) then f:=2*f*i; Fac:=f; end; begin k:=0; Sum:=0; S:=1;f:=1; readln (e); readln (x); while abs(S)>e do begin s:=power(-1,k)*power(x,4*k+1)/Fac(k)*(4*k+1); sum:=sum+s; k:=k+1; end; writeln (sum); end. Последний раз редактировалось HailMe; 08.10.2012 в 11:55. |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 31.05.2010
Сообщений: 407
|
![]()
мб так
Код:
icq 584 308 611
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 07.10.2012
Сообщений: 13
|
![]()
Больше похоже на правду, но если считать вручную, то при епсилуме 0.1 и х 1, должно выходить 1, а тут 0.9. Ну или я криво считаю))
Последний раз редактировалось HailMe; 08.10.2012 в 12:22. |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 07.10.2012
Сообщений: 13
|
![]()
Сменил repeat, на while, вышло как раз так, как считал вручную. Спасибо за помощь
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 07.10.2012
Сообщений: 13
|
![]()
А не, надо оставлять reapeat.
Последний раз редактировалось HailMe; 08.10.2012 в 15:28. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal ABC. Вычислить сумму ряда с заданной точностью. | 0kcanka | Помощь студентам | 0 | 16.05.2011 13:22 |
Вычислить сумму S с заданной точностью Е | marka | Помощь студентам | 1 | 12.01.2011 07:44 |
вычислить сумму ряда с точностью Е | Giver | Помощь студентам | 2 | 18.12.2010 20:04 |
Pascal. Вычислить сумму S с заданной точностью E | Саша Сказка | Помощь студентам | 8 | 19.10.2010 14:34 |