Die magische fünf

[Privateer3000]

Hi folks,

weiß jemand eine einfachere Methode
zu prüfen ob eine Zahl durch 5 teilbar ist?
Oder geht es nur über den Rechenweg:

Delphi-Quellcode:

a div 5 = c

dann überprüfen
ob c ein integer und keine real ist...

greetz

[Neutral General]

Delphi-Quellcode:

if a mod 5 = 0 then ShowMessage('a ist durch 5 teilbar (c: Integer)');

Gruß
Neutral General

[3_of_8]

Delphi-Quellcode:

if a mod 5 = 0 then...

[Privateer3000]

Danke erstmal,
seh ich das falsch?
Dies würde bedeuten dass das ergebnis 0 ist!
Das ist ja nicht der Fall!Das valide ergebnis muss
für mich 5,10,15...100 usw. sein.

[3_of_8]

mod ist der Restwertoperator.

0 mod 5=0
1 mod 5=1
2 mod 5=2
3 mod 5=3
4 mod 5=4
5 mod 5=0
6 mod 5=1
...

[Privateer3000]

Danke!

[Klaus01]

Wenn ich Deine Frage im ersten Beitrag so lese,
kann es dann sein das Du sowas gemeint hast:

Delphi-Quellcode:

if a mod 5 = 0 then
  c:= a div 5;

Grüße
Klaus

[Privateer3000]

nein Klaus, es ist wie oben vorgeschlagen
if a mod 5 then...
Restwert bei teilung durch 5 muss null sein.

Danke an alle

[himitsu]

Zitat:

Zitat von Privateer3000

Oder geht es nur über den Rechenweg:

Delphi-Quellcode:

a div 5 = c

dann überprüfen
ob c ein integer und keine real ist...

bei DIV kommt immer ein Integer raus ... der Rest(Kommaanteil) wird unterschlagen (es wird sozusagen abgerundet).