Question

FREE PASCAL,输入两个数，求最小公倍数

program gbs (input,output); var i,m,n,z:integer; begin readln (m,n); if m<n then begin z:=m; m:=n; n:=z; end; for i:=1 to m*n do begin if (i<=m) and (i<=n) then begin if (m mod i=0) and (n mod i=0) then z:=i div m; end; end; writeln (m*n/z:2:0); end. 哪里错了???急!!!

Answer 1

题主，你是根据公式:两个数的乘积/他们的最大公约数=最小公倍数。其中里面有三个错误:
1，首先你既然在之前已经确定了m是最大的，那么，n是较小的，一个数的约数是不会比它本身大，最多只能和本身一样大，所以，重复的次数不应该是1
to
m*n，而是1
to
n，如果还想再效率高一点，可以改为n
downto
1，并且一找到最大公约数就直接跳出循环，用break语句;
2，既然m
mod
i=0，n
mod
i=0，那么，i应该比它们两个都小，也就是i<m，那么，i
div
m=0不是么?到后面的m*n/z中除数z为0，是不成立的，故改成:if
(m
mod
i=0)
and
(n
mod
i=0)
then
z:=i;用于记录最大公约数，如果是用n
downto
1
do
就将then后面改为:begin
z:=i;
break;
end;
3，场宽设置错误了，实数是要用到双场宽没错，但是前面的2是控制整数部分的场宽，后面一个是控制小数部分的场宽，如果没有特别要求的话，前面的2改成0就变成顶格输出。再者，既然m,n均能被z整除，那么m*n也应该能被z整除，将它改为m*n
div
z
不是更好么?
改进如下:
program
gbs
(input,output);
var
i,m,n,z:integer;
begin
readln
(m,n);
if
m<n
then
begin
z:=m;
m:=n;
n:=z;
end;
for
i:=n
downto
1
do
if
(m
mod
i=0)
and
(n
mod
i=0)
then
begin
z:=i;
break;
end;
writeln
(m*n
div
z);
end.