Differenze tra le versioni di "Massimo Comun Divisore di due numeri con le sole risorse di Gambas"

Versione attuale delle 16:23, 21 giu 2024

Per trovare il Massimo Comun Divisore di due numeri mediante le sole risorse di Gambas, è possibile adottare il seguente codice che sfrutta il cosiddetto Algoritmo di Euclide:

Public Sub Main()
 
  Dim s As String
  Dim ii As New Integer[]
  Dim a, b, r As Integer

  Do
    Print "Inserisci un numero:"
    Input s
    ii.Push(Val(s))
  Loop Until ii.Count = 2
  a = ii[0]
  b = ii[1]
  
  If ii[0] < ii[1] Then
    r = ii[0]
    ii[0] = ii[1]
    ii[1] = r
  Endif
  
  Euclide(ii)
  
  Print "Il MASSIMO COMUNE DIVISORE tra "; a; " e "; b; " è: "; ii[1]
  
End


Private Function Euclide(nn As Integer[])   ' Adottiamo l'algoritmo di Euclide

  Dim i As Integer
 
  i = nn[0] Mod nn[1]
  
  While i <> 0
    nn[0] = nn[1]
    nn[1] = i
    i = nn[0] Mod nn[1]
  Wend
  
End