Цитата:
Сообщение от CraLynx
Я знаю, что есть подобные темы, но я немного не разбираюсь в них. В той части, где написан этот ряд. Помогите решить это, с комментариями в коде. На языке Pascal.
|
Фу, скучища!
Насчет "комментариев в коде" - задавайте вопросы, если что-то непонятно.
Код:
Const
Eps=0.0001;
Var
i:Integer;
S,A,x,d1,d2:Real;
Function AV(z:real):Real;
begin
Av:=z*Sin(z)-Exp(-Sqr(z))+1;
end;
Begin
Write('x = ');
Readln(x);
d1:=1;
d2:=1;
A:=x*x;
S:=A*(1/d1+1/d2);
i:=1;
Repeat
i:=i+1;
A:=-A*x*x;
d1:=d1*i;
d2:=d2*(2*i-2)*(2*i-1);
S:=S+A*(1/d1+1/d2);
Until Abs(A*(1/d1+1/d2))<Eps;
Writeln(' Result: ',S:0:7);
Writeln(' Accurate value: ',AV(x):0:7);
Readln
End.