|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
26.04.2013, 13:20 | #1 (permalink) |
Banned
Регистрация: 26.04.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Для заданного ε>0 и заданного x вычислить сумму ряда с точностью ε
|
26.04.2013, 13:20 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваш вопрос похож на содержание данных обсуждений Программа. Вычислить сумму или произведение Вычислить бесконечную сумму с заданной точностью Помогите рассчитать размеры ФИ для заданного корпуса и динамика |
26.04.2013, 14:53 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну тогда-то что... У меня, правда, Free Pascal, но, думаю, не существенно:
Код:
VAR N:Integer; S,x,a,Eps:Real; BEGIN Write('x= '); ReadLn(x); Write('Eps= '); ReadLn(Eps); a:=1; S:=a; N:=0; Repeat Inc(N); a:=a*2*x/N; S:=S+a; Until (Abs(a)<Eps) or (N=100); WriteLn('Result: ',S:0:(Round(1/Eps)+1),' N= ',N,' Accurate value: ',Exp(x*2):0:(Round(1/Eps)+1)); Readln END. |
26.04.2013, 15:01 | #5 (permalink) | |
Banned
Регистрация: 26.04.2013
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
26.04.2013, 15:42 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так, уже как модератор имею сообщить следующее: вопреки нашим Правилам (п. 3.6), Вы зарегистрировали два аккаунта. По этому случаю оба пользователя с никами yuma и eicecall отправляются в вечный бан, Вам же я предлагаю зарегистрироваться еще раз и уже в единственном числе и впредь держаться в рамках Правил.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|