Nur natürliche Zahlen zulassen

derDoc · Beiträge: 623 Win Vista Prof D2007 Prof

Ich habe ein mathematisches Programm, welches mit Teilern arbeitet. Ich habe eine gewisse Anzahl an Zählern und an Nennern. Nun teile ich diese und schreibe die Ergebnisse in ein Memo. Und nun meine Frage:

Wie kann ich überprüfen ob eine Zahl natürlich (1, 2, 3, 4, 5, etc.) ist und wie kann ich sie dann heraus filtern?

_________________
MfG derDoc
There are only 10 types of people: those who understand binary and those who don't.

wulfskin · Verfasst: Sa 01.03.03 20:42

Hallo Doc!

Ich hoffe, ich verstehe dich recht:

markieren

Quelltext

1:
2:
3:
4:

function IsNatuerlich(const E: Extended): Boolean;
begin
  Result := (E = Trunc(E)) and (E > 0);
end;

Gruß wulfskin!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

maxk · Verfasst: Sa 01.03.03 21:11

ACHTUNG: 0 gehört nicht zur Menge der natürlichen Zahlen.
Ich würd's so machen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:

function IsN(E:Extended;WithZero:boolean=False):boolean;
begin
 Result:=(E=round(E));
 if WithZero then Result:=Result and (E>=0) else
 Result:=Result and (E>0);
end;

Dann kann man gleich noch angeben, ob Gruppe N oder Gruppe N0.

maxk

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

derDoc · Beiträge: 623 Win Vista Prof D2007 Prof

Danke, ich werde das mal anwenden.

_________________
MfG derDoc
There are only 10 types of people: those who understand binary and those who don't.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme