Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Geht das hier einfacher ? (IF-Verzweigung)
LonghornUser - Mo 19.06.06 22:01
Titel: Geht das hier einfacher ? (IF-Verzweigung)
Hallo,
ich möchte checken, ob eine Zahl folgende Wete annimmt. (immer 100 plus 100 plus 100, ...). Nun soll diese Reihe bis 10000 gehen. Das wäre mit der untenstehenden Variante doch sehr dumm, oder :
Delphi-Quelltext
1:
2:
3:
4:
| if (l = 100) or (l = 200) or (l = 300) or (l = 400) or (l = 500)
or (l = 600) or (l = 700) or (l = 800) or (l = 900) or (l = 1000)
or (l = 1100) or (l = 1200) or (l = 1300) or (l = 1400) or (l = 1500)
or (l = 1600) or (l = 1700) or (l = 1800) or (l = 1900) or (l = 2000) then |
Wie kann ich das wenigstens
etwas kürzer coden ?
Danke schonmal.
Ciao LHUser
mkinzler - Mo 19.06.06 22:05
Delphi-Quelltext
1:
| if (l >= 100) and if (l <= 2000) and (l mod 100 = 0) then ... |
Marc. - Mo 19.06.06 22:14
Delphi-Quelltext
1:
2:
3:
4:
| if Number >= 100 then
if Number <= 10000 then
if Number mod 100 = 0 then
... |
:P
//edit a) zu lahm und b) das gleiche wie mkinzler gepostet -.-
Jetstream - Mo 19.06.06 22:34
Mal ganz allgemein:
Der Befehl a mod b gibt den rest aus, wenn du a durch b teilst.
Eine Zahl a ist genau dann durch 100 teilbar, wenn a mod 100 = 0, d.h. wenn die 100 ohne rest in a reinpasst.
LonghornUser - Mi 21.06.06 14:08
Danke !! :)
if l MOD 100 = 0 then
hat geklappt.
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!