Differenze tra le versioni di "Minimo Comune Multiplo di due numeri con le sole risorse di Gambas"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per trovare il ''[https://it.wikipedia.org/wiki/Minimo_comune_multiplo Minimo Comune Multiplo]'' di due numeri mediante le sole risorse di Gambas, è possibile adottare il seg...") |
|||
Riga 1: | Riga 1: | ||
Per trovare il ''[https://it.wikipedia.org/wiki/Minimo_comune_multiplo Minimo Comune Multiplo]'' di due numeri mediante le sole risorse di Gambas, è possibile adottare il seguente codice: | Per trovare il ''[https://it.wikipedia.org/wiki/Minimo_comune_multiplo Minimo Comune Multiplo]'' di due numeri mediante le sole risorse di Gambas, è possibile adottare il seguente codice: | ||
− | + | Public Sub Main() | |
− | |||
− | |||
− | |||
− | |||
+ | Dim s As String | ||
+ | Dim ii As New Integer[] | ||
+ | Dim prod, con, tr As Integer | ||
+ | |||
Do | Do | ||
Print "Inserisci un numero:" | Print "Inserisci un numero:" | ||
Riga 30: | Riga 30: | ||
Print "Il MINIMO COMUNE MULTIPLO di "; ii[0]; " e "; ii[1]; " è: "; con | Print "Il MINIMO COMUNE MULTIPLO di "; ii[0]; " e "; ii[1]; " è: "; con | ||
− | + | End |
Versione attuale delle 16:24, 21 giu 2024
Per trovare il Minimo Comune Multiplo di due numeri mediante le sole risorse di Gambas, è possibile adottare il seguente codice:
Public Sub Main() Dim s As String Dim ii As New Integer[] Dim prod, con, tr As Integer Do Print "Inserisci un numero:" Input s ii.Push(Val(s)) Loop Until ii.Count = 2 prod = ii[0] * ii[1] If ii[0] > ii[1] Then con = ii[0] Else con = ii[1] Endif While (con < prod) And (tr = 0) If (con Mod ii[0] = 0) And (con Mod ii[1] = 0) Then tr = 1 Else Inc con Endif Wend Print "Il MINIMO COMUNE MULTIPLO di "; ii[0]; " e "; ii[1]; " è: "; con End