網頁

2019年11月6日 星期三

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基金會的贊助。
您只需要支持我們,完全不會花到錢!