Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
Тщательное оформление программного кода, примечаний, языки расположены в алфавитном порядке, добавлена программа для ПМК |
Нет описания правки |
||
Строка 147:
else
b := b mod a;
end;
</source>
Строка 162:
b := c
end;
end;
</source>
Строка 168:
Деление с остатком, рекурсия:
<source lang="pascal">
function
begin
if b = 0 then
gcd := a
else
end;
</source>
Строка 206:
?GCD(a,b,x)
GCD(0, b, b) <-
GCD(a, 0, a) <-
GCD(a, b, x) <- a >= b, m is a mod b, GCD(m, b, x)
GCD(a, b, x) <- a < b, m is b mod a, GCD(a, m, x)
</
===[[w:SWI-Prolog]]===
Деление с остатком, рекурсия:
<source lang="prolog">
gcd(0, B, B).
gcd(A, 0, A).
gcd(A, B, X) :- A >= B, M is A mod B, gcd(M, B, X).
gcd(A, B, X) :- A < B, M is B mod A, gcd(A, M, X).
</source>
| |||