Massimo Comun Divisore di due numeri con le sole risorse di Gambas
Da Gambas-it.org - Wikipedia.
Versione del 21 giu 2024 alle 16:23 di Vuott (Discussione | contributi)
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