用Delphi编写2个函数,分别求2个整数的最大公约数和最小公约数
发布网友
发布时间:2024-03-09 23:50
我来回答
共1个回答
热心网友
时间:2024-03-14 13:16
最大公约
function
gcd(a,b:integer):integer;
var
r:
integer;
begin
while
b
<>
0
do
begin
r
:=
a
mod
b;
a
:=
b;
b
:=
r;
end;
Result
:=
a;
end;
最小公约应当为1吧,我想你要的是最小公倍,需调用上一个函数,如下
function
lcm(a,b:integer):integer;
begin
Result
:=
trunc(a*b/gcd(a,b));
end;