Помогите! Расхождение ряда Опции

[Fellout]

Дана задача: с помощью библиотечной функции ln(1+x) вычислить расхождение, реализовывая этот ряд с помощью рекурентной формулу, а также использовать одноадресную систему команд, тоесть можно использовать только одну переменную, вторая в операции обязательно проходит через аккумулятор. Вычитая получившуюся сумму ряда расхождение не должно привышать 3*10 в -4 степени. В чем ошибка, расхождение никак не сходится?? (( Помогите пожалуйста, а то кроме реализации на ЯВУ нужно ещё сделать эту задачу на Vax-11, а осталась только неделя

Var
sx, sf:smallint;
x,F1,F3:real;
diff:real;
Begin
diff:=0;
 for sx:=-6553 to 16384 do
  begin
 x:=sx/32768;
 //x:=sx div 32768;
 F1:=ln(1+x);
 sf:= F2(sx);
 F3:=sf/32768;
 //F3:= sf div 32768;
 if diff < abs(F1-F3) then diff:= abs(F1-F3);
 end;
 edit1.Text:=floattostr(diff);
end;

function TForm1.F2(sx:smallint):smallint;
var
x,accm,a,sf,F2:smallint;
n:integer;
temp1:longint;
begin
n:=1;
 sf:=sx;
 a:=sx;
 x:=sx;
   while a<>0 do
     Begin
     accm:=-1;
     a:=a*accm;
     accm:=x;
     temp1:=a*accm;
     temp1:=temp1+16384;
     a:=temp1 div 32768;
     accm:=n;
     //a:=mul(a,accm)
     a:=a*accm;
     accm:=1;
     n:=n+accm;
     accm:=n;
     a:=a div accm;
     //a:=divi(a,accm);
     accm:=a;
     sf:=sf+accm;
   end;
   F2:=sf;
   end;

Сообщение отредактировано: Lapp - 13.12.2008 2:07

[volvo]

не получается все равно, такое ощущение, что сумма ряда не правильно складывается...

Это ты кому-нибудь другому расскажешь, ладно? В Edit1 выводится 0.000203475073580706, что меньше твоей погрешности, значит сумма считается даже точнее...