Was ist die nächste 2er Potenz?

[Frabbing]

Kennt jemand einen simplen Algo, um von einem Wert aus immer die nächste Potenz von 2 zu finden? Also z.B:

Bei 980 wäre das 1024, bei 400 wäre es 512.

Also immer das nächst höhere von 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, ...
Sollte möglichst ohne viel If-Abgefrage funktionieren, ich hab schon daran gedacht, das höchste Bit zu lokalisieren und dann alle Bits zu löschen und das lokalisierte zu setzen.
Aber sicher kennen die Herren Mathematiker noch was Besseres.
Wäre dafür sehr dankbar.

[Frabbing]

P.S.: Hab noch diesen Code gefunden:

unsigned int nextpoweroftwo(unsigned int n) 
{ 
    int i=0; 
    for(;n;++i,n>>=1); 
    return 1 << i; 
}

Mal sehen, wie man das am besten umsetzt.

[Jac de Lad]

proc NextPowerofTwo
Parameters p&
var l!=Lg(p&)/Lg(2)
Return 2^If(l!<>Int(l!),Int(l!)+1,Int(l!))
endproc

Und da fällt mir wieder mal auf, dass XProfan kein Frac bzw. PF hat.

[p. specht]

cls : declare n!
nochmal: 
print "Wert = "; : input n! : case n!=0 : end
print int(2^int(lg(n!-0.000000000001)/lg(2)+1))
waitinput: goto "nochmal"

Funktioniert behelfsweise auch ganz gut (genau bis zur 12. signifikanten bzw. Kommastelle, Jac´s Code prüft aber explizit und damit noch genauer auf 'Nachkommastellen alle Null')

Franks Code ist dagegen ein Klassiker aus der Assemblerprogrammierung.

Gruss

[Frabbing]

Das muss einfacher gehen, ich wills auch nach Assembler umsetzen. Brauche Geschwindigkeit.

[ts-soft]

Zitat von Frabbing

P.S.: Hab noch diesen Code gefunden:

unsigned int nextpoweroftwo(unsigned int n) 
{ 
    int i=0; 
    for(;n;++i,n>>=1); 
    return 1 << i; 
}

Mal sehen, wie man das am besten umsetzt.

Naja, so:

Proc NextPowerOfTwo
  Parameters n&
  Declare i&
  WhileLoop 0, n& >> 1
    i& = &Loop
  Wend
  i& = i& + 1
  Return 1 << i&
EndProc

cls
Print NextPowerOfTwo(400)

WaitKey

[Jac de Lad]

Oach, ich hab mir so eine Mühe gegeben.

[Frabbing]

Danke, Leute! Alle haben sich Mühe gegeben.
Da ich das eher für Assembler benötige, brauchte ich aber eine Lösung ohne große Mathefunktionen. Darum hab ich das jetzt so umgesetzt, was hervoragend funktioniert:

; ________________________________________________________________________________________________________________
  NextPowerOf2 proc zahl:DWORD
; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

  mov eax,zahl
  
  mov ebx,eax
  mov ecx,eax
  dec ecx
  and eax,ecx
  mov ecx,ebx
  
  .if eax!=0
  
    mov ecx,1
    next:
    shr eax,1
    shl ecx,1
    cmp eax,0
    jne next
  
  .endif
  
  mov eax,ecx

  ret

NextPowerOf2 endp

Klappt mit allen positiven Ganzzahlen, aber Negative und Floats sind auch nie vorgesehen.
Danke an alle und einen guten Rutsch!!!