两个数的最大公约数代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】两个数的最大公约数

作者:jellyvice / 发布于2013/12/3/ 1573

function GCD(A, B: Integer): Integer;
var
 Temp: Integer; // used in swapping A & B
begin
 while B <> 0 do
 begin
  Temp := B;
  B := A mod Temp;
  A := Temp;
 end;
 Result := A;
end;

　　

试试其它关键字

　公约数　

同语言下

可能有用的

jellyvice贡献的其它代码(28)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3