Ergebnis der Suchanfrage

• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Re: Logarithmen zu beliebiger Basis

    Delphi
    by himitsu, 22. Okt 2009
  Ich mach es auch gern mal kurz und schmerzlos :angel2:
  function LgX(base, number: Double): Double; //inline;
  begin
  if (base <= 0.0) or (number <= 0.0) then
  System.Error(reInvalidOp);
  Result := Ln(number) / Ln(base);
  end;
  Wenn die Unit SysUtils eingebunden ist, dann wird hier eine Exception EInvalidOp "Ungültige Gleitkommaoperation." geworfen.