[讨论]考你一道简单的题（答者有分！）

您所在位置：社区首页 — QBasic讨论区 — [讨论]考你一道简单的题（答者有分！）

主题：[讨论]考你一道简单的题（答者有分！）

komer [专家分：20] 发布于 2010-11-16 12:59:00

1、木棒问题
mubang.BAS / mubang.C / mubang.CPP / mubang.PAS

【问题描述】
有两根木棒，分别长M，N厘米（M，N为正整数）。要把它们截成同样长的小棒，不许剩余，每根小棒最长能有多少厘米？

【输入文件】
    文件名：t01.IN

【输出文件】
    文件名：t01.OUT
【样例输入】
42,24
【样例输出】
6

本帖地址： http://bbs.pfan.cn/post/356502.html

回复列表（共7个回复）

沙发

幽灵密码 [专家分：3510] 发布于 2010-11-16 16:56:00

CLS
INPUT A , B
IF A > B THEN X = B ELSE X = A
DO
X = X - 1
IF A MOD X = 0 AND B MOD X = 0 THEN PRINT X:END
LOOP UNTIL X = 1
END

板凳

komer [专家分：20] 发布于 2010-11-16 19:03:00

有点麻烦

3 楼

幽灵密码 [专家分：3510] 发布于 2010-11-16 19:12:00

CLS
DO
  r = m MOD n
  m = n
  n = r
LOOP UNTIL r = 0
PRINT m
END

4 楼

幽灵密码 [专家分：3510] 发布于 2010-11-16 19:12:00

辗转相除法，行了吧

5 楼

komer [专家分：20] 发布于 2010-11-16 19:12:00

我的：
input n,m
do
  r=m mod n
  m=n
  n=r
loop until r=0
print m
end

6 楼

komer [专家分：20] 发布于 2010-11-16 19:14:00

??
一样！
强！
给分！

7 楼

qb12345 [专家分：620] 发布于 2010-11-16 20:18:00

input a,b
do
  r=b mod a
  a=b
  a=r
loop until r=0
print b
end

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：[讨论]考你一道简单的题（答者有分！）

回复列表（共7个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：[讨论]考你一道简单的题（答者有分！）

回复列表 （共7个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共7个回复）