19.04.2017, 15:27 | #1 (permalink) |
Новичок
Регистрация: 19.04.2017
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal
|
19.04.2017, 15:27 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Очень эффективно в решении проблемы просто пролистать похожие обсуждения Pascal Pascal ABC Pascal Pascal Pascal |
19.04.2017, 15:41 | #2 (permalink) |
Специалист
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
|
А условия схождения ряда какие ? т.е. какая точность схождения ? Ну или грубо говоря какое максимальное n для данного ряда
|
19.04.2017, 16:08 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
ПолучИте:
Код:
Function S(x:real;n:byte):real; var a,T:real; i:byte; begin a:=1; T:=a; for i:=1 to n do begin a:=a/(2*(i-1)+1)*(2*i+1)/i*Sqr(x); T:=T+a; end; S:=T; end; Function F(x:real):real; begin F:=(1.0+Sqr(x)*2)*Exp(Sqr(x)); end; Begin Writeln('Result:'); Writeln(S(0.5,15):0:20); Writeln('Function:'); Writeln(F(0.5):0:20); Readln End. |
19.04.2017, 16:18 | #5 (permalink) |
Специалист
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
|
Вы видимо что то обрезали я так понимаю x=0.5 a N=15 ...
Код:
program Project; uses Math; function Factorial(n: word): LongInt; begin if n=0 then Factorial := 1 else Factorial := n*Factorial(n-1); end; function myrow(x:Double;n:Integer): Double; begin myrow:= (2*n+1)/Factorial(n)* (Power(x,2*n)); end; var s,x,f:Double; n:Integer; begin x:=0.5; for n:=0 to 15 do begin s:=s+myrow(x,n); end; f:=(1+2*x*x)*exp(x*x); writeln('S=' ,s:4:10); writeln('f=',f:4:10); Writeln('Raznitca=',(s-f):4:10); readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.04.2017, 16:20 | #6 (permalink) |
Специалист
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|