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