Massimo Comun Divisore di due numeri con le sole risorse di Gambas
Da Gambas-it.org - Wikipedia.
Versione del 7 dic 2016 alle 10:16 di Vuott (Discussione | contributi) (Creata pagina con "Per trovare il ''[https://it.wikipedia.org/wiki/Massimo_comun_divisore Massimo Comun Divisore]'' di due numeri mediante le sole risorse di Gambas, è possibile adottare il seg...")
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