Geht das hier einfacher ? (IF-Verzweigung)

LonghornUser · Beiträge: 796

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 :

markieren

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 · Verfasst: Mo 19.06.06 22:05

markieren

Delphi-Quelltext

1:	if (l >= 100) and if (l <= 2000) and (l mod 100 = 0) then ...

_________________
Markus Kinzler.

Marc. · Verfasst: Mo 19.06.06 22:14

markieren

Delphi-Quelltext

1:
2:
3:
4:

if Number >= 100 then
  if Number <= 10000 then
   if Number mod 100 = 0 then
    ...

//edit a) zu lahm und b) das gleiche wie mkinzler gepostet -.-

Jetstream · Beiträge: 222

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 · Beiträge: 796

Danke !!

if l MOD 100 = 0 then
hat geklappt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme