Ada程式語言 最大公因數

這個程式用來計算最大公因數。

function gcd(A, B : Positive) return Positive is
        OpA : Natural := A;
        OpB : Natural := B;
        procedure swap (A, B : in out Integer) is
                tmp : Integer;
        begin
                tmp := A;
                A := B;
                B := tmp;
        end swap;
begin
        if OpB > OpA then
                swap(OpA, OpB);
        end if;

        while OpB /= 0 loop
                OpA := OpA mod OpB;
                swap(OpA, OpB);
        end loop;
        return OpA;
end gcd;

👉【幫我們一個忙！】👈

👋如果您喜歡這篇文章，請在下方按5個Like！

 ❤您的支持是我們最大的動力！

您只要登入帳號（Facebook、Google），在下方按5個Like，我們就會收到來自LikeCoin基金會的贊助。

您只需要支持我們，完全不會花到錢！