Вычисление для ряда точностей.

[maladoy]

program maladoy;
uses crt;
var i,e:integer;
    s,t,x:real;
function fakt(n:integer):integer;
 begin
  if n>1 then fakt:=n*fakt(n-1)
   else fakt:=1;
 end;
function step(m:real;l:integer): real;
 begin
vstep:=exp(l*ln(m));
 end; 
 begin
i:=0;
writeln('vvedite x');
readln(x);
writeln('BbI6epeTe To4HOCTb 1: e=0.01; 2: e=0,001; 3: e=0,0001');
readln(e);
 if e=1 then t:=0,01;
 if e=2 then  t:=0.001;
 if e=3  then t:=0,003;

while step(x,4*i+k)/fakt(4*i+k)>t do
 begin
 s:=s+step(x,4*i+k)/fakt(4*i+k);
 i:=i+1; 
 end;
 writeln(' pri e=',t:4:3,' f2(',x:6:4,')=',s:6:4,' N=',i );readln;
 end.

[Dark_Spirit]

Если мне не изменяет память, то это рекурентная формула и точность, ув. maladoy, в таких формулах должна считаться как разница текущего значения с предыдущим, тада программа будет иметь следующий вид(заранее извиняюсь перед maladoy, немгого модифицирую его программу):

program maladoy;
uses crt;
var i,e:integer;
s,t,x,pr:real;
function fakt(n:integer):integer;
begin
if n>1 then fakt:=n*fakt(n-1)
else fakt:=1;
end;
function step(m:real;l:integer): real;
begin
vstep:=exp(l*ln(m));
end;
begin
i:=0;
writeln('vvedite x');
readln(x);
writeln('BbI6epeTe To4HOCTb 1: e=0.01; 2: e=0,001; 3: e=0,0001');
readln(e);
if e=1 then t:=0,01;
if e=2 then t:=0.001;
if e=3 then t:=0,003;
pr:=step(x,4*i+k)/fakt(4*i+k);
s:=pr;
inc(i);
while abs(step(x,4*i+k)/fakt(4*i+k)-pr)>=t do
begin
pr:=step(x,4*i+k)/fakt(4*i+k);
s:=s+pr
inc(i);
end;
writeln(' pri e=',t:4:3,' f2(',x:6:4,')=',s:6:4,' N=',i );readln;
end.

кажысь так

[BigMoney]

maladoy and Dark_Spirit ПРИОГРОМНЕЙШЕЕ ВАМ СПАСИБО!!!