find et lige tal

Odd returnerer True, hvis tallet er ulige:

if not Odd(StrToInt(Edit1.Text)) then
  // Det er et lige tal

Husk naturligvis at checke om det er et tal!

Hvad er den af Anders?  Kender du ikke din 2-tabel længere!? :*)

Hvis du ikke har lyst til at bruge ODD funktionen, som selvfølgeligt er lavet til formålet, så kan du dividere med 2 og checkke om resten er 0 -> Således?

If X Mod 2 = 0 Then ... Tallet er lige.
If X Mod 2 = 1 Then ... Tallet er ulige.


Peter

Hej Peter
Jo jeg ved godt at 2*0 = 2 :)

Hilsen anold

delphi>> Jeg var lige ved at skrive, at Odd er bedre end mod, fordi det er en indbygget funktion, men jeg har lige lavet:
  if Odd(1) then
    Beep;
  if 1 mod 2 = 1 then
    Beep;
og det blev oversat til:
Unit1.pas.27: if Odd(1) then
0043E23D call Beep
Unit1.pas.29: if 1 mod 2 = 1 then
0043E242 call Beep
så i dette tilfælde er det altså lige meget, hvad man gør.

Jeg kommer lige i tanke om, at det er den metode du skal bruge for at se om en eller anden værdi går op i tallet X, fx. vil følgende checkke om X kan divederes med 5:

If X Mod 5 = 0 Then....

Funktionen ODD er egentlig en funktion der er lavet til det specielle tilfælde hvor det undersøges om et tal er lige eller ulige, dvs. hvor divisoren er 2.  If (X MOD Y) = 0 er den generelle form.

Peter

2*0=2.... Den var go. 

Men tænk så istedet over den her:

2^0 = 1  (Eller om du vil: 2 Gange med sig selv 0 gange = 1 - hvilket rent faktisk er sandt!)

Peter

I alle andre tilfælde BØR man naturligvis anvende Odd!