1:
2:
3:
4:

function ln(x: real): real;
begin
...
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.FormCreate(Sender: TObject);
var f: int64;
    e: double;
    k: integer;
begin
  e := 1;
  f := 1;
  for k := 1 to 50 do
  begin
    f := f*k;
    e := e+ 1 / f;
  end;
  form1.caption := format('%e',[e]);
end;                    

1:

function ln(x: extended):extended;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function exp(a: real; b: integer): real;
var i: integer;
begin
  result := 1;
  for i := 1 to b do
    result := result*a;
end;

function euler(a: integer): real;
var f: int64;
    e: real;
    k: integer;
begin
  e := 1;
  f := 1;
  for k := 1 to 50 do
  begin
    f := f*k;
    e := e+ 1 / f;
  end;
  result :=  exp(e,a);
end;                    

1:
2:
3:
4:

asm
    FLDLN2
    FYL2X
end;                    

1:
2:
3:
4:

asm
    FLDLG2
    FYL2X
end;                    

1:
2:
3:
4:
5:
6:

procedure Ln(const X:Extended): Extended; assembler;
asm
    FLD TBYTE PTR [X]
    FLDLN2
    FYL2X
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function log(x: Double; n: Integer): Double;
var
  p,q: Extended; {p=Produktwert; q=iterierte Quadratwurzel}
  i: Integer;
begin
  p:=1; q:=x; {Initialisierungen}
  for i:=1 to n do
  begin
    q:=sqrt(q);
    p:=p*2/(q+1/q);
  end;
  log:=p*(x-1/x)/2;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Function LogN(Var Base, X: Extended): Extended;
{ Log.N(X) := Log.2(X) / Log.2(N) }
Asm
    FLD1
    FLD     TBYTE PTR [X]
    FYL2X
    FLD1
    FLD     TBYTE PTR [Base]
    FYL2X
    FDIVP
End;