@roma_24

program laba2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x, pred, tek: real;
k, st: integer;

begin

x := -0.6;
writeln('__________________________________________________________________');
writeln('| | | e=0.01 | e=0.001 | e=0.0001 |');
writeln('| x | f1(x) |------------------------------------------|');
writeln('| | | f2(x) | N | f2(x) | N | f2(x) | N |');
writeln('|_______|_____________|_________|___|_________|___|__________|___|');
while x<0.355 do

begin
write('| ', x:5:2, ' | ', (sin(x)-((x/2)*(1+cos(x)))-(sin(x)*ln(2*cos(x/2)))):12:6);
tek := 0;
k := 1;
st := -1;
repeat
pred := tek;

tek := tek + (x * ((st * sin(k + 1)) / (k * (k + 1))));

st := -st;
inc(k);
until abs(abs(tek) - abs(pred)) < 0.01;
write('| ', tek:8:4, '| ', k - 1:2);
repeat
pred := tek;

tek := tek + (x * ((st * sin(k + 1)) / (k * (k + 1))));

st := -st;
inc(k);
until abs(abs(tek) - abs(pred)) < 0.001;
write('| ', tek:8:4, '| ', k - 1:2);
repeat
pred := tek;

tek := tek + (x * ((st * sin(k + 1)) / (k * (k + 1))));
st := -st;
inc(k);
until abs(abs(tek) - abs(pred)) < 0.0001;
writeln('| ', tek:9:5, '| ', k - 1:2, '| ');
x := x + 0.05;
end;
writeln('__________________________________________________________________');
readln;

end.

0