Entwickler-Ecke
Sonstiges (Delphi) - Natürliche Zahl ?
Fabian - Do 25.07.02 14:03
Titel: Natürliche Zahl ?
Hallo,
Wie kann ich überprüfen ob es sich bei einer Zahl um eine natürliche Zahl handelt ?
wwerner - Do 25.07.02 14:36
Wie liegt den die Zahl vor? (integer ligint, real, extendet, string)
Klabautermann - Do 25.07.02 14:36
Hallo,
ersmal musst du wissen was du unter einer Natürlichen Zahl verstehst. In meinem Beispiel gehe ich davon aus, das du nach
DIN 5473 ganze Positive Zahle
einschließlich der 0 meinst.
Quelltext
1:
2:
3:
4:
| function IsNatl(Wert: Extended): BOOLEAN;
begin
Result := (Wert>-1) AND (frac(Wert) = 0);
end; // IsNatl |
Diese Funktion liefert TRUE wenn der übergebene Wert nach den oben beschriebenen Faktoren eine Natürliche Zahl ist.
Gruß
Klabautermann
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!