Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
→Б3-21, МК-46 / 64, МС-1103: Поправка для обработки 0 |
Новые реализации на разных диалектах BASIC |
||
Строка 27:
==[[w:Бейсик|BASIC]]==
===[[w:Dartmouth_BASIC|Оригинальный BASIC]]===
Цикл, вычитание (операция нахождения остатка MOD отсутствовала в этой версии языка):
<source lang="basic">
10 INPUT "Two integer numbers", A, B
20 PRINT "GCD("; A; ", "; B,") = ";
30 LET A = ABS(A): LET B = ABS(B)
40 IF B = 0 THEN GOTO 90
50 IF A >= B THEN LET A = A - B: GOTO 50
60 IF A = 0 THEN LET A = B: GOTO 90
70 IF B >= A: LET B = B - A: GOTO 70
80 GOTO 40
90 PRINT A
100 END
</source>
===[[w:GW-BASIC|GW-BASIC]] и совместимые диалекты===
Цикл, деление с остатком либо вычитание (при указанных заменах в коде).
<source lang="basic">
10 INPUT "Two integer numbers"
20 PRINT "GCD("; A%; ", "; B%; ") = ";
30
40
50 A% = A% MOD B% 'Для вычитания заменить на WHILE A% >= B%: A% = A% - B%: WEND
60 IF A% = 0 THEN A% = B%: GOTO 90
70 B% = B% MOD A% 'Для вычитания заменить на WHILE B% >= A%: B% = B% - A%: WEND
80 WEND
90 PRINT A%
</source>
===[[w:QuickBasic|QuickBasic]] версий < 4.0, [[w:Turbo Basic|Turbo Basic]]===
Цикл, деление с остатком либо вычитание (при указанных заменах в коде).
<source lang="basic">
DEF FNGCD%
A% = ABS(A%)
DO WHILE B% > 0
A% = A% MOD
'Для вычитания заменить предыдущую строку следующими:
'DO WHILE A% >= B%
' A% = A% - B%
'LOOP
IF A% = 0 THEN
FNGCD% = B%
EXIT DEF
END IF
B% = B% MOD A%
'Для вычитания заменить предыдущую строку следующими:
'DO WHILE B% >= A%
' B% = B% - A%
'LOOP
LOOP
FNGCD% = A%
END DEF
</source>
===[[w:PowerBASIC|PowerBASIC]], [[w:QBASIC|QBASIC]], [[w:QuickBasic|QuickBasic]] версий ≥ 4.0, [[w:Visual Basic|Visual Basic]]===
В следующих примерах используется тип <code>Integer</code> (стандартное целое); вместо него можно применять также тип <code>Long</code> (длинное целое).
Цикл, деление с остатком либо вычитание (при указанных заменах в коде):
<source lang="vb">
Function GCD
a = Abs(a)
b = Abs(b)
a = a Mod b
'Для вычитания заменить предыдущую строку следующими:
'Do While a >= b
' a = a - b
'Loop
If a = 0 Then
GCD = b
Exit Function
End If
b = b Mod a
'Для вычитания заменить предыдущую строку следующими:
'Do While b >= a
' b = b - a
'Loop
Loop
GCD = a
End Function
</source>
<source lang="vb">
Function GCD
If b = 0 Then
GCD = Abs(a)
Else
GCD = GCD(b, a Mod b)
End If
End Function
</source>
===[[w:VB.NET|VB.NET]]===
В следующих примерах используется тип <code>Integer</code> (стандартное целое); вместо него можно применять любые другие целочисленные типы платформы [[w:NET_Framework|.NET]].
Цикл, деление с остатком либо вычитание (при указанных заменах в коде):
<source lang="vb">
Shared Function GCD(ByVal a As Integer, ByVal b As Integer) As Integer
a = Math.Abs(a)
b = Math.Abs(b)
Do While b > 0
a = a Mod b
'Для вычитания заменить предыдущую строку следующими:
'Do While a >= b
' a -= b
'Loop
If a = 0 Then Return b
b = b Mod a
'Для вычитания заменить предыдущую строку следующими:
'Do While b >= a
' b -= a
'Loop
Loop
Return a
End Function
</source>
Рекурсия, деление с остатком:
<source lang="vb">
Function GCD (a As Integer, b As Integer) As Integer
If b = 0 Then Return Math.Abs(a)
Return GCD(b, a Mod b)
End Function
</source>
| |||