[delphi] Bepaling of getal decimalen heeft.

[FvH]

Heb het volgende probleem.

Moet testen of getal i een macht van 2 is.

nu dacht ik (i wordt aan functie meegegeven)

code:

var
  x: extended;
begin
  x := log2(i);
  if ((x mod 2) = 0) then
       // Getal is een macht van 2.
  else
      // Getal is geen macht van 2.
   end if;
end;

het probleem is echter dat er uit log2(i) een extended komt en dat die niet met de modulo (MOD) gebruikt mag worden.

Type casten naar integer of int64 mag niet.

Heeft iemand een oplossing??

[Delphi32]

Wat dacht je van

code:

if x = Round(x) then begin
  if ((x mod 2) = 0) then begin
  //getal is macht van 2
  end 
  else begin
  //getal is geen macht van 2
end
else begin
  //getal heeft cijfers achter de komma dus zeker geen macht van 2
end;

Dat kan natuurlijk korter als je Complete Boolean Evaluation uit hebt staan, want dan kun je doen:

code:

if (x = Round(x)) and ((x mod 2) = 0) then begin
//een macht van 2
end
else begin
//geen macht van 2
end;

[Knutselsmurf]

Delphi32 schreef op 20 september 2002 @ 23:48:
Wat dacht je van

code:

if x = Round(x) then begin
  if ((x mod 2) = 0) then begin
  //getal is macht van 2
  end 
  else begin
  //getal is geen macht van 2
end
else begin
  //getal heeft cijfers achter de komma dus zeker geen macht van 2
end;

Dat kan natuurlijk korter als je Complete Boolean Evaluation uit hebt staan, want dan kun je doen:

code:

if (x = Round(x)) and ((x mod 2) = 0) then begin
//een macht van 2
end
else begin
//geen macht van 2
end;

Klopt niet. Wat jij nu aangeeft, is of een getal deelbaar is door 2 of niet. De oorspronkelijke oplossing, met de log2(x) is zeker correct. Ik weet niet uit mijn hoofd wat deze teruggeeft, maar er zijn zeker mogelijkheden om te controleren of dit een geheel getal is. Een mogelijke oplossing: trunc/round(log2(x)=log2(x)

[Tomatoman]

Als precies één bit de waarde 1 heeft en alle andere bits 0 zijn, is het getal een macht van twee. Je kunt testen of dit het geval is:

Delphi:

function IsPowerOfTwo(Value: Integer): Boolean;
asm
    ADD     Value,0      // flags instellen aan de hand van Value
    JNG     @@false      // als Value <= 0, springen naar @@false
@@compare:
    BSR     ECX,Value    // positie van least significant bit met waarde 1
    BSF     EDX,Value    // positie van least significant bit met waarde 1
    MOV     EAX,1        // EAX := 1 (defaultwaarde True instellen)
    CMP     ECX,EDX      // posities gelijk?
    JZ      @@end        // zo ja, naar @@end
@@false:
    MOV     EAX,0        // EAX := 0 (oftewel Result := False)
@@end:
end;

[LordLarry]

Frac, Trunc of Round maken van een float een int.

Je zou kunnen kijken of een float een geheel getal is door te kijken of Frac van het getal 0 is.

[Paul]

tomatoman schreef op 21 september 2002 @ 04:03:
Als precies één bit de waarde 1 heeft en alle andere bits 0 zijn, is het getal een macht van twee. Je kunt testen of dit het geval is:

Delphi:

function IsPowerOfTwo(Value: Integer): Boolean;
asm
    ADD     Value,0      // flags instellen aan de hand van Value
    JNG     @@false      // als Value <= 0, springen naar @@false
@@compare:
    BSR     ECX,Value    // positie van least significant bit met waarde 1
    BSF     EDX,Value    // positie van least significant bit met waarde 1
    MOV     EAX,1        // EAX := 1 (defaultwaarde True instellen)
    CMP     ECX,EDX      // posities gelijk?
    JZ      @@end        // zo ja, naar @@end
@@false:
    MOV     EAX,0        // EAX := 0 (oftewel Result := False)
@@end:
end;

Ik neem aan dat je een typo hebt gemaakt in je commentaar? Inhoudelijk kan ik er niet op ingaan (ken geen ASM), maar er staat nu 2x least significant bit...

[TheLunatic]

Is niet het makkelijkt om de decimaal met een FloatToStrF functie in een String te gooien, en te kijken of er alleen maar nullen achter de komma staan ?

[LordLarry]

no offense, maar er zijn al tig werkende oplossing gegeven, en die met die FloatToStr lijkt me het aller aller minst aantrekkelijke

[FvH]

Bedankt!! Die ASM variant lijkt het snelst te werken Heb hem iets aangepast zodat ik hem ook voor wat anders kan gebruiken, maar tomatoman!! thx!! De rest b.t.w. ook natuurlijk.

Ennuh... met strings werken doen we niet aan dat is wel heel erg duur dus alleen als het echt niet anders kan

Iig thx!! Het werkt nu eindelijk goed.

[Tomatoman]

Paul Nieuwkamp schreef op 21 september 2002 @ 17:54:
[...]
Ik neem aan dat je een typo hebt gemaakt in je commentaar? Inhoudelijk kan ik er niet op ingaan (ken geen ASM), maar er staat nu 2x least significant bit...

Oeps , klopt helemaal. Asm is goed, maar commentaar moet als volgt zijn:

Delphi:

    BSR     ECX,Value    // positie van most significant bit met waarde 1
    BSF     EDX,Value    // positie van least significant bit met waarde 1