Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
м →BASIC |
|||
Строка 146:
</source>
Рекурсия, деление с остатком либо вычитание (при указанных заменах в коде):
<source lang="vb">
Shared Function GCD (ByVal a As Integer, ByVal b As Integer) As Integer
If b = 0 Then Return Math.Abs(a)
Return GCD(b, a Mod b)
| |||