program Laba_3_24; {$APPTYPE CONSOLE} uses SysUtils, Math; var eps, x, s, f1, f2 : real; i, k: integer; begin write(#201); for i:=1 to 7 do write(#205); write(#203); for i:=1 to 11 do write(#205); write(#203); for i:=1 to 16 do write(#205); write(#203); for i:=1 to 16 do write(#205); write(#203); for i:=1 to 16 do write(#205); write(#187); writeln; write(#186); write(' '); write(#186); write(' '); write(#186); write(' EPS = 0.0001 ');

write(#186); write(' EPS = 0.00001 '); write(#186); write(' EPS = 0.000001 '); write(#186); writeln; write(#186); write(' '); write(#186); write(' '); write(#204); for i:=1 to 11 do write(#205); write(#203); for i:=1 to 4 do write(#205); write(#206); for i:=1 to 11 do write(#205); write(#203); for i:=1 to 4 do write(#205); write(#206); for i:=1 to 11 do write(#205); write(#203); for i:=1 to 4 do write(#205); write(#185); writeln; write(#186); write(' X '); write(#186); write(' F1 '); write(#186); write(' ');

write(#186); write(' '); write(#186); write(' '); write(#186); write(' '); write(#186); write(' '); write(#186); write(' '); write(#186); writeln; write(#186); write(' '); write(#186); write(' '); write(#186); write(' F2 '); write(#186); write(' N '); write(#186); write(' F2 '); write(#186); write(' N '); write(#186); write(' F2 '); write(#186); write(' N '); write(#186); writeln; write(#186); write(' '); write(#186); write(' '); write(#186); write(' ');

write(#186); write(' '); write(#186); write(' '); write(#186); write(' '); write(#186); write(' '); write(#186); write(' '); write(#186); writeln; write(#204); for i:=1 to 7 do write(#205); write(#206); for i:=1 to 11 do write(#205); write(#206); for i:=1 to 11 do write(#205); write(#206); for i:=1 to 4 do write(#205); write(#206); for i:=1 to 11 do write(#205); write(#206); for i:=1 to 4 do write(#205); write(#206); for i:=1 to 11 do write(#205); write(#206); for i:=1 to 4 do write(#205);

write(#185); writeln; x:=0.88; while x<=1 do begin f1:=((1/(2*x))*(1-ln(1+x)-(((1-x)*ArcTan(x))/sqrt(x)))); write(#186,' ',x:5:2,' ',#186,f1:11:8,#186); eps:=0.0001; while eps>=0.000001 do begin k:=1; s:=0; f2:=0; repeat s:=(((power((-1), (k+1)))*(power(x, (k-1))))/(2*k*(2*k-1)*(2*k+1))); f2:=f2+s; k:=k+1; until abs(s)<=eps; write(f2:11:8,#186,' ',k:2 ,' ',#186); eps:=eps*0.1; end; if x<1 then begin writeln; write(#204); for i:=1 to 7 do write(#205); write(#206); for i:=1 to 11 do write(#205); write(#206); for i:=1 to 11 do write(#205);

write(#206); for i:=1 to 4 do write(#205); write(#206); for i:=1 to 11 do write(#205); write(#206); for i:=1 to 4 do write(#205); write(#206); for i:=1 to 11 do write(#205); write(#206); for i:=1 to 4 do write(#205); write(#185); end else begin writeln; write (#200); for i:=1 to 7 do write(#205); write(#202); for i:=1 to 11 do write(#205); write(#202); for i:=1 to 11 do write(#205); write(#202); for i:=1 to 4 do write(#205); write(#202); for i:=1 to 11 do write(#205); write(#202);

for i:=1 to 4 do write(#205); write(#202); for i:=1 to 11 do write(#205); write(#202); for i:=1 to 4 do write(#205); write(#188); end; writeln; x:=x+0.01; end; readln; end.