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

→‎BASIC: Пример с рекурсией
(Примеры на Бейсике; исправления и форматирование)
(→‎BASIC: Пример с рекурсией)
</source>
 
===[[w:PowerBASIC|PowerBASIC]], [[w:QBASIC|QBASIC]], [[w:QuickBasic|QuickBasic]] версий ≥ 4.0, [[w:Visual Basic|Visual Basic]]===
<source lang="vb">
Function GCD (a As Integer, b As Integer) As Integer
Loop
GCD = Abs(a + b) ' Для VB.NET следует заменить эту строку на Return Math.Abs(a + b)
End Function
</source>
 
Деление с остатком, рекурсия:
===[[w:PowerBASIC|PowerBASIC]], [[w:QBASIC|QBASIC]], [[w:QuickBasic|QuickBasic]] версий ≥ 4.0, [[w:Visual Basic|Visual Basic]]===
<source lang="vb">
Function GCD (a As Integer, b As Integer) As Integer
If b = 0 Then
GCD = Abs(a) ' Для VB.NET следует заменить эту строку на Return Math.Abs(a)
Else
GCD = GCD(b, a Mod b) ' Для VB.NET следует заменить GCD = на Return
End If
End Function
</source>
Анонимный участник