Цитата:
Сообщение от Fruto
как-то так.
|
Как-то так:
Код:
Const
Eps=0.0001;
VAR
i,j:Integer;
S,x,z,A:Real;
Begin
for j:=0 to 4 do
begin
x:=Pi/4*j;
z:=x*5;
i:=1;
A:=z;
S:=A;
Repeat
Inc(i,2);
A:=-A*z*z/(i*(i-1));
S:=S+A;
Until Abs(A)<Eps;
Writeln('x= ',x:7:5,' Sum= ',S:12:9,' Accurate value= ',Sin(z):12:9);
end;
Readln
End.