10.12.2016, 20:03 | #1 (permalink) |
Новичок
Регистрация: 10.12.2016
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вычисление функции разложением ее в ряд, Паскаль
Во Вложение Ряд и Контрольная формула Пытался написать,но не понимаю как описать при помощи контрольной формулы....( |
10.12.2016, 20:03 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Не ленитесь и прочитайте похожие топики, это очень помогает в решении проблем Паскаль. Вычисление интегралов Вычисление значения функции с помощью разложения в ряд Вычисление функции разложением ее в ряд, Паскаль Паскаль. Вычисление интеграла |
10.12.2016, 21:25 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const Eps=0.0001; Var i:Integer; S,A,x:Real; Function AV(z:real):Real; begin Av:=48/15*(Sqrt(Sqr(Sqr(z+1))*(z+1))-1)-z*8-Sqr(z)*6; end; Begin Write('x (<1) = '); Readln(x); A:=x*x*x; S:=A; i:=1; Repeat i:=i+1; A:=-A*x*(2*i-3)/(2*i+4); S:=S+A; Until Abs(A)<Eps; Writeln(' Result: ',S:0:7); Writeln(' Accurate value: ',AV(x):0:7); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|