Logarithmus in Delphi

[omata]

Wenn du die Math-Unit nicht einbinden willst kannst du auch den natürlichen Logarithmus nehmen...

Code:

lg10(x) = ln(x) / ln(10)

also

Delphi-Quellcode:

function D(a,b,c:real):real;

  function lg10(x:real):real;
  begin
    Result:=ln(x) / ln(10);
  end;

begin
  Result:=(lg10(a) - lg10(b)) / lg10(c);
end;

Gruss
Thorsten