Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
Примеры на Бейсике; исправления и форматирование |
→BASIC: Пример с рекурсией |
||
Строка 49:
</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
Строка 60:
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>
| |||