|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
18.11.2016, 16:41 | #1 (permalink) |
Member
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, вычислить значения суммы ряда S
|
18.11.2016, 16:41 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ранее наши участники создавали похожие обсуждения Обчисление суммы ряда Вычислить значения суммы ряда при заданных с консоли начальном и конечном значениях Вычисление суммы функционального ряда |
18.11.2016, 17:05 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
К сожалению, пока мы не проникнем в тщательно охраняемую Вами тайну языка программирования, на котором следует выполнить задание, мы бессильны помочь.
|
18.11.2016, 17:15 | #5 (permalink) |
Member
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
буду очень вам благодарна
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
18.11.2016, 20:15 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Получите:
Код:
Var i,N,k:Integer; x_nach,x_kon,Delta_x,S,x,A,Eps:Real; Begin Repeat Write('x_nach = '); Readln(x_nach); Write('x_kon = '); Readln(x_kon); if ((x_nach>0) and (x_nach<=1)) or ((x_nach<0) and (x_nach>=-1)) or ((x_kon>0) and (x_kon<=1)) or ((x_kon<0) and (x_kon>=-1)) or (x_nach>x_kon) then writeln('Error!!!'); Until ((x_kon<-1) or (x_nach>1)) and (x_nach<x_kon); Write('Delta_x = '); Readln(Delta_x); Write('Eps (e.g. 0.0001)= '); Readln(Eps); N:=Trunc((x_kon-x_nach)/Delta_x); writeln(' x Result Accurate value'); for i:=0 to N do begin x:=x_nach+Delta_x*i; A:=1/x; S:=A; k:=1; Repeat A:=A/Sqr(x); Inc(k); S:=S+A/(2*k-1); Until Abs(A*2/(2*k-1))<Eps; writeln(x:7:3,S*2:20:5,ln((x+1)/(x-1)):20:5); end; Readln End. |
19.11.2016, 09:31 | #7 (permalink) |
Member
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|