Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
м →BASIC |
м →BASIC |
||
Строка 92:
Do While b > 0
a = a Mod b
'Для вычитания убрать предыдущую строку и раскомментировать следующие:
'Do While a >= b
' a = a - b
Строка 101:
End If
b = b Mod a
'Для вычитания убрать предыдущую строку и раскомментировать следующие:
'Do While b >= a
' b = b - a
Строка 131:
Do While b > 0
a = a Mod b
'Для вычитания убрать предыдущую строку и раскомментировать следующие:
'Do While a >= b
' a -= b
Строка 137:
If a = 0 Then Return b
b = b Mod a
'Для вычитания убрать предыдущую строку и раскомментировать следующие:
'Do While b >= a
' b -= a
Строка 151:
If b = 0 Then Return Math.Abs(a)
Return GCD(b, a Mod b)
'Для вычитания убрать предыдущую строку и раскомментировать следующие:
'If a >= b Then Return GCD(a, a - b)
'Return GCD(b, b - a)
End Function
</source>
| |||