Implementazioni di algoritmi/Algoritmo di Euclide: differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
Nessun oggetto della modifica |
cambio avanzamento a 100% |
||
Riga 32:
else:
return mcd(b,(a%b))
</source>
===Implementazione in [[Visual Basic .NET]] - versione non ricorsiva===
<source lang="vb">
Public Function MCD(ByVal a As Integer, ByVal b As Integer) As Integer
Dim m As Decimal
If b = 0 Then Return a Else
Do
m = a Mod b
a = b
b = m
Loop Until b = 0
Return a
End Function
</source>
[[Categoria:Implementazioni di algoritmi|Algoritmo di Euclide]]
{{Avanzamento|
| |||