Наибольший общий делитель двух целых чисел (рекурсивный вариант)

Этот способ вычисления НОД основан на явной рекурсивной форме записи. Алгоритм прислал Пётр Адрианов.

Если нашли ошибку в алгоритме - сообщите!

Реализации алгоритма на различных языках:

Реализация алгоритма на AlgoPascal:

unit RecursiveGCDUnit;

interface RecursiveGCD;

implementation

function RecursiveGCD(a: Integer; b: Integer):Integer;
begin
    a:=AbsInt(a);
    b:=AbsInt(b);
    if b>a then
    begin
        Result:=RecursiveGCD(b,a);
        Exit;
    end;
    if b=0 then
        Result:=a
    else
        Result:=RecursiveGCD(b,a mod b);
end;

end.

Бочканов Сергей, Быстрицкий Владимир
Copyright © 1999-2004
При поддержке проекта MANUAL.RU