Verweis: | Exp |
Uses: | System |
Eingabe: | ReelleZahl(extended) |
Ausgabe: | Logarithmus(extended) |
Funktion: | Berechnet den Logarithmus |
Beispiel 1
Vorbereitung: Erstellen sie eine IDE Anwendung und ziehen Sie einen TButton auf die Form. Doppelklicken sie auf den Button und ersetzen Sie das Ereignis durch folgenden Quelltext:
procedure TForm1.Button1Click(Sender: TObject);
var
Exponent: integer;
Logarithmus:extended;
Log_Text: string;
begin
Log_Text := 'Logarithmus : ';
//Berechne den Logarithmus und Schreibe ihn in ein Array
for Exponent := 1 to 9 do
begin
Logarithmus:= Ln(Exponent);
Log_Text := Log_Text + LineEnding + ' Exp=' + IntToStr(Exponent) +
' Log=' + FloatToStr(Logarithmus);
end;
//Zeige Alles an
ShowMessage(Log_Text);
end;
Der Ln-Befehl ist die Umkehr-Funktion von der Funktion Exp. Sie bezeichnet den Natürlichen Logarithmus. Wie auch bei der Exp-Funktion ist dies eine Funktion für den naturwissenschaftlichen Bereich. Da diese Funktion eine gegenteilige Funktion von Exp ist, so ist diese Funktion eine degressive Funktion. Degressiv bedeutet, dass der Abstand zwischen den einzelnen Zahlenwerten immer kleiner wird. Obwohl die Schrittweite von Exp 1 beträgt. Mit einer For-Schleife berechnen wir den Logarithmus und schreiben ihn in die Textvariable mit dem Namen „Log_Text“. Dieser zusammengesetzte „Log_Text“ wird nach der Schleife angezeigt.

Wer weitere Beschreibungen der Funktionen benötigt, der sollte sich das einmal ansehen. Externer Link.