Natürliche Zahl ?

Fabian · Beiträge: 42

Hallo,
Wie kann ich überprüfen ob es sich bei einer Zahl um eine natürliche Zahl handelt ?

wwerner · Beiträge: 185

Wie liegt den die Zahl vor? (integer ligint, real, extendet, string)

_________________
Gruß

Wolfgang

----------
zu hause ist es doch am schönsten

Klabautermann · Verfasst: 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.

markieren

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme