主题：怎样求最小公倍数?
luihui
[专家分：0] 发布于 2005-06-02 11:22:00
[font=Century Gothic][/font][size=3][/size]
回复列表 （共8个回复）
沙发
def [专家分：3380] 发布于 2005-06-03 19:44:00
[size=1000000]1111111111111111111111111111111111111111111[/size]
[em1][em1][em1]
板凳
zhouling90 [专家分：40] 发布于 2005-06-16 16:54:00
input a,b
s=a*b
if a>b then swap a,b
r=b mod a
while r<>0
a=b
b=r
r=b mod a
wend
x=s/b
'_____________以上请最大公约数
print "最小公倍数是："x
end
3 楼
moz [专家分：37620] 发布于 2005-06-16 18:31:00
不错，不错，加六十分。
4 楼
飞鸟12 [专家分：2830] 发布于 2005-06-17 12:41:00
两个数m,n先求出其最大公约数，然后用m*n/最大公约数，结果即为最小公倍数
5 楼
陈贺ＱＢ [专家分：140] 发布于 2005-06-18 11:08:00
input a ,b
s=a*b
r=a mod b
while r<>0 then
a=b:b=r
r=a mod b
wend
w=s/b
print "w=";w
end
6 楼
prairiewolf [专家分：290] 发布于 2005-06-23 02:25:00
可以先求最小公约数,用最小分约数*几个数中最小的那个数
7 楼
def [专家分：3380] 发布于 2005-06-24 23:50:00
INPUT a, b
s = a * b
IF a > b THEN SWAP a, b
r = b MOD a
WHILE r <> 0
a = b
b = r
r = b MOD a
WEND
x = s / b
IF a MOD b THEN SWAP b, x
PRINT "hcm="; b'最大公约数
PRINT "lcm="; x'最小公倍数
END
8 楼
moz [专家分：37620] 发布于 2005-06-25 00:38:00
我怎么看来看去总觉得有什么问题的?
唉,这里的人都近视是不?
难道就没有一个人懂得把源程序去试运行?
都是用眼睛想当然的去写去复制的?
我比你们多了两个眼(四眼),我总觉得有些不对劲的:
defint
input a,b
if a>b then swap a,b
s=a*b
do while b mod a
a=b mod a
loop
print "最大公约数是";a
print "最小公倍数是";s/a
你们再去看看你们那些语句里的变量对不对,
或者用QB运行一下看看101和87的公约数是多少?
陈贺就改过来了,可惜缺少那一句比较大小的判断,棋差一着.
def更是睁眼_ ,照抄.
或者把第二句mod的a,b互换位置就是了.
我来回复
您所在位置：