Реализации алгоритмов/Алгоритм Евклида: различия между версиями

Перейти к навигации Перейти к поиску
м
(Новые реализации на разных диалектах BASIC)
DO WHILE B% > 0
A% = A% MOD B%
'Для вычитания заменитьубрать предыдущую строку следующимии раскомментировать следующие:
'DO WHILE A% >= B%
' A% = A% - B%
END IF
B% = B% MOD A%
'Для вычитания заменитьубрать предыдущую строку следующимии раскомментировать следующие:
'DO WHILE B% >= A%
' B% = B% - A%
Do While b > 0
a = a Mod b
'Для вычитания заменитьубрать предыдущую строку следующими:и раскомментировать следующие
'Do While a >= b
' a = a - b
End If
b = b Mod a
'Для вычитания заменитьубрать предыдущую строку следующими:и раскомментировать следующие
'Do While b >= a
' b = b - a
Do While b > 0
a = a Mod b
'Для вычитания заменитьубрать предыдущую строку следующими:и раскомментировать следующие
'Do While a >= b
' a -= b
If a = 0 Then Return b
b = b Mod a
'Для вычитания заменитьубрать предыдущую строку следующими:и раскомментировать следующие
'Do While b >= a
' b -= a
74

правки

Навигация