Differenze tra le versioni di "Elevamento a potenza"

Da Gambas-it.org - Wikipedia.
Riga 27: Riga 27:
 
    
 
    
 
     While (e)
 
     While (e)
        If e And 1 Then
+
      If e And 1 Then
          ris = ris * b
+
        ris = ris * b
          e = e - 1
+
        e = e - 1
        Endif
+
      Endif
        b = b * b
+
      b = b * b
        e = e / 2
+
      e = e / 2
 
     Wend
 
     Wend
 
      
 
      

Versione delle 18:15, 12 set 2014

Per effettuare l'elevamento a potenza di un numero, è possibile utilizzare almeno due modalità. |1|


Uso del segno ^

Molto brevemente ed agevolmente si potrà utilizzare il segno ^ , come segue:

Public Sub Main()

 Dim i As Integer

  i = 3 ^ 4

  Print i

End


Uso di un algoritmo

Si potrà utilizzare del codice più complesso. Ad esempio:

Public Sub Main()

 Dim b, e As Integer
 Dim ris As Integer = 1
 
   b = 3
   e = 4
 
   While (e)
     If e And 1 Then
       ris = ris * b
       e = e - 1
     Endif
     b = b * b
     e = e / 2
   Wend
   
   Print "Risultato = "; ris

End


Note

[1] In vero, è possibile utilizzare anche la funzione pow() della libreria condivisa esterna libm.so