|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.07.2009, 00:23 | #1 |
ололо
Пользователь
Регистрация: 05.04.2009
Сообщений: 28
|
найти бесконечную сумму ряда с заданной точностью
посмотрите пожалуйста, что не так
program progam; var a,b,c,d,s,e:real; i:integer; BEGIN writeln('Введите точность'); readln(e); s:=0; b:=4; c:=1; d:=3; a:=b/(c*d); i:=1; while abs(a)>=e do begin s:=s+a; b:=b*(-2); c:=c+1; d:=d+2; a:=b/(c*d); i:=i+1; end; writeln('Сумма* = ',s:4:2); END.
Лучше пытаться поймать журавля в небе, чем довольствоваться синицей в руках.
|
23.07.2009, 07:17 | #2 |
Пользователь
Регистрация: 10.07.2009
Сообщений: 19
|
Последовательность расходящаяся - сумма равна бесконечности
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти сумму ряда | 11111 | Помощь студентам | 14 | 01.11.2010 19:55 |
Найти сумму ряда с точностью e, если дан общий член этого ряда | JiLiYa | Общие вопросы C/C++ | 2 | 18.02.2009 11:11 |
Вычислить бесконечную сумму ряда С++ | Fishka | Общие вопросы C/C++ | 9 | 22.12.2008 18:23 |
Найти сумму ряда с точностью Е=10^-3 | Добрый Кот | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 12.12.2007 12:04 |