UC知道QBASIC编程的问题(简单的问题)
来源：百度知道 编辑：UC知道 时间：2024/05/14 02:08:19
二级教程里有这么一道题,说是求100以内的同构数.
所谓同构数就是一个数是它的的平方数的右半部分, 如5为一个同构数,25 5. 还有25, 它的平方是625, 25在右边.
我想了好一会儿,写了一个,但实在觉得是太麻烦了..
有没有更为简便的方法. 越简单越好.... 可加分!!
PS:
----------------------------------
CLS
i = 1
b = 0
PRINT "The program of get the Tong Gou Shu within 100"
PRINT "_________________________________________________"
FOR i = 1 TO 100 STEP 1
a = i ^ 2 - i
IF i < 10 THEN
IF FIX(a / 10) = a / 10 THEN
PRINT "The number :"; i, "and its square:"; i ^ 2
LET c = c + 1
END IF
END IF
IF i >= 10 AND i < 100 THEN
IF FIX(a / 100) = a / 100 THEN
PRINT "The number :"; i, "and its square:"; i ^ 2
LET c = c + 1
END IF
END IF
IF i >= 100 THEN
IF FIX(a / 1000) = a / 1000 THEN
PRINT "The number :"; i, "and its square:"; i ^ 2
LET c = c + 1
END IF<
所谓同构数就是一个数是它的的平方数的右半部分, 如5为一个同构数,25 5. 还有25, 它的平方是625, 25在右边.
我想了好一会儿,写了一个,但实在觉得是太麻烦了..
有没有更为简便的方法. 越简单越好.... 可加分!!
PS:
----------------------------------
CLS
i = 1
b = 0
PRINT "The program of get the Tong Gou Shu within 100"
PRINT "_________________________________________________"
FOR i = 1 TO 100 STEP 1
a = i ^ 2 - i
IF i < 10 THEN
IF FIX(a / 10) = a / 10 THEN
PRINT "The number :"; i, "and its square:"; i ^ 2
LET c = c + 1
END IF
END IF
IF i >= 10 AND i < 100 THEN
IF FIX(a / 100) = a / 100 THEN
PRINT "The number :"; i, "and its square:"; i ^ 2
LET c = c + 1
END IF
END IF
IF i >= 100 THEN
IF FIX(a / 1000) = a / 1000 THEN
PRINT "The number :"; i, "and its square:"; i ^ 2
LET c = c + 1
END IF<
最后的IF i>=1000 那一段完全可以省去.因为题目要求在100以内
还有你那b也没用到.
看我的
cls
I=1
for I=1 to 100
a=len(str$(I))-1
b=I^2
c=10^a
if b mod c = I then d=d+1
next
print "共有";d;"个同构数"
end