Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi计算两个数的最大公约数 →→→→→进入此内容的聊天室

来自 , 2020-01-01, 写在 Delphi (Object Pascal), 查看 129 次.
URL http://www.code666.cn/view/14da15db
  1. function GCD(A, B: Integer): Integer;
  2. var
  3.   Temp: Integer; // used in swapping A & B
  4. begin
  5.   while B <> 0 do
  6.   begin
  7.     Temp := B;
  8.     B := A mod Temp;
  9.     A := Temp;
  10.   end;
  11.   Result := A;
  12. end;

回复 "Delphi计算两个数的最大公约数"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666