Цитата:
Сообщение от Grandmazer
Пытался написать,но не понимаю как описать при помощи контрольной формулы....(
|
Да делов-то куча...
Код:
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.