Викиучебник

Реализации алгоритмов/Бинарный алгоритм вычисления НОД: различия между версиями

Учебник Обсуждение

Реализации алгоритмов/Бинарный алгоритм вычисления НОД (править)

Версия от 21:46, 10 мая 2017

22 байта добавлено ,  6 лет назад
→‎Pascal
ВизуальныйВики-текст
(Javascript)
 
<source lang="pascal">
function GCD (a, b: integerInteger): integerInteger;
begin
if a = 0 then
GCD := b
else if b = 0 then
GCD := a
else if a = b then
GCD := a
else if (a = 1) or (b = 1) then
GCD := 1
else if (a modand 2 = 01) and (b mod 2 = 0) then
GCD:= 2*GCD(a div 2,if (b divand 21) = 0 then
else if (a mod 2 = 0) and GCD := GCD(ba modshr 21, <>b 0shr 1) thenshl 1
GCD:= GCD(a div 2, b)else
else if (a mod 2 <> 0) and GCD := GCD(ba modshr 21, = 0b) then
else▼
GCD:= GCD(a, b div 2)▼
if (b and 1) = 0 then
▲ else
GCD := GCD(ba, abs(ab -shr b)1);
else
▲ GCD := GCD(ab, bAbs(a div- 2b))
end;
</source>
Projecteur
74

правки

Источник — https://ru.wikibooks.org/wiki/Служебная:Сравнение_версий/137175