.


           


)
)


203.



0.0000001.

204. , :

)
)
)


205. :







C - ,
.


206. :

1)


2)


sinx cosx .

207. n. :

)
)


)


)


)
)


208. n.




209.
.



1

Program

Task1; { sinx }

uses WinCrt;

var

n, k : integer;

x, e, eps, sin, u : real;

{----------------------------------------------------------------------------------------}

{ - - }

Function t(eps : real) : integer;

var

k : integer;

begin

k := -1;

repeat

eps := eps*10;

k := k + 1

until eps > 1;

t := k

end;

{----------------------------------------------------------------------------------------}

begin

write(' '); readln(eps);

write(' '); readln(x);

u := x; n := 2;

sin := x;

repeat

u := -u*x*x/((2*n-1)*(2*n-2));

sin := sin + u;

n := n + 1

until abs(u) < eps;

write(' sin( ', x:1:t(eps), ' ) ', sin:3:t(eps));

writeln(' ', eps:1:t(eps))

end.



2


Program Task2;

uses WinCrt;

var

n : integer;