Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. 'funktioniert nur mit positiven zahlen!
    
  2. 
    
  3. 'Die zu konvertierende Zahl
    
  4. Dim VarZahl As Uinteger = 12345
    
  5. 
    
  6. 'Ist die Zahl schon 0, dann raus hier.
    
  7. If VarZahl = 0 Then
    
  8.     Print "0"
    
  9.     End 0
    
  10. End If
    
  11. 
    
  12. 'Das system in das konvertiert werden soll (2 = binär)
    
  13. Dim VarSystem As Uinteger = 2
    
  14. 
    
  15. 'Potenzvariable
    
  16. Dim VarPotenz As Uinteger
    
  17. 
    
  18. 'Zuerst wird die grösst mögliche Potenz für die angegebene zahl im neuem system gesucht.
    
  19. Do
    
  20.     'wenn die zahl kleiner als die aktuelle potzen + 1 ist, dann schleife verlassen.
    
  21.     If VarZahl < (VarSystem ^ (VarPotenz + 1)) Then Exit Do
    
  22.     
    
  23.     'ansonstne potzen um +1 erhöhen
    
  24.     VarPotenz += 1
    
  25. Loop
    
  26. 
    
  27. 'anschliessend die zahl in das system konvertieren
    
  28. 'hier wird vom höchsten wert nach unten potenziert
    
  29. Do
    
  30.     'ist die zahl 0, dann raus hier
    
  31.     If VarZahl = 0 Then Exit Do
    
  32.     
    
  33.     'Die Anzahl möglicher teilungen der Zeil durch die aktuelle Potenz ausgeben (max ist system -1)
    
  34.     Print Str(VarZahl \ (VarSystem ^ VarPotenz));
    
  35.     
    
  36.     'die Potenz von der aktuellen zahl abziehen und den rest speichern
    
  37.     VarZahl Mod= (VarSystem ^ VarPotenz)
    
  38.     
    
  39.     'potenz -1
    
  40.     VarPotenz -= 1
    
  41.     
    
  42.     'ist die potenz 0, dann ist das ende erreicht.
    
  43.     If VarPotenz = 0 Then
    
  44.         'wenn noch ein wert übrig ist, dann diesen ausgeben
    
  45.         If VarZahl > 0 Then Print Str(VarZahl);
    
  46.         
    
  47.         'schleife verlassen
    
  48.         Exit Do
    
  49.     End If
    
  50. Loop
    
  51. Print
    
  52. End 0
    
  53.