29.03.2014, 16:33 | #1 (permalink) |
Новичок
Регистрация: 29.03.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вычислить сумму функционального ряда и функцию в паскале
Все показано в файле. Если кто поможет, то буду очень благодарна. |
29.03.2014, 16:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Подскажу вам, что проблема может быть решена в похожих темах Для заданного ε>0 и заданного Х вычислить сумму ряда Для заданного ε>0 и заданного x вычислить сумму ряда с точностью ε Вычислить функцию Программа. Вычислить сумму или произведение |
29.03.2014, 20:17 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const a=0.1; b=1.0; h=0.1; Var N,i,j:Integer; S,x,Q:Real; Function Fun(z:real):real; begin Fun:=(1-z*z/2)*Cos(z)-z/2*Sin(z); end; Begin N:=Round((b-a)/h); Writeln(' x Sum Accurate value'); For i:=0 to N do begin x:=a+h*i; Q:=1; S:=Q; for j:=1 to 40 do begin Q:=-Q*x*x/(2*(j-1)*(j-1)+1)*(2*j*j+1)/((2*j-1)*2*j); S:=S+Q; end; Writeln(x:3:1,S:9:3,Fun(x):10:3); end; Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|