Logarithmen zu beliebiger Basis

[Wolfgang Mix]

Logarithmen scheinen in den Lehrplänen der Kultusminister nicht mehr lukrativ zu sein,
so meine Erfahrung im Fachgymnasium.

Deswegen poste ich hier eine Funktion zur Bestimmung von Logarithmen zu beliebiger Basis
zum Üben für ganze positive Zahlen.

Delphi-Quellcode:

//Wolfgang Mix & DeddyH - Delphi-PRAXiS
function lgx(base,number:double):double;
begin
  if not (base > 0) then
    raise Exception.Create('Invalid base');
  if not (number > 0) then
    raise Exception.Create('Invalid number');
  if (number > 0) and (base > 0) then
  begin
    result:= ln(number)/ln(base);//Any Platform, does'nt need Unit Math
  end;
end;

Gruß

Wolfgang