您所在位置：主题：两道课本上的题目，请高手帮忙编程！
pcmagic
[专家分：20] 发布于 2009-08-18 20:49:00
如标题所示，具体题目如下：
1、编程求所有满足下面条件的3位自然数X：
X=百位数字^3+十位数字^3+个位数字^3 '^3表示立方
我的编程是：
cls
for I=1 to 9
for A=1 to I
for B=0 to I
for C=0 to I
X=A*100+B*10+C
If X=A^3+B^3+C^3 then print "X=";X [color=FF0000]'把这句改为If X=A*A*A+B*B*B+C*C*C then print "X=";X就OK了！只是不理解为什么不能直接用乘方的计算方式来完成！？[/color]
next C
next B
next A
next I
end
可惜，运行后，无结果，不知道错在哪儿！[color=FF0000]修改后，程序执行后结果与2楼的结果一致！[/color][em12]
2、求这样一个四位自然数，它是一个完全平方数，且前两位相同，后两位也相同
这题的思路，我还在寻找中——刚学qbasic，彷徨！[em11]
[color=FF0000]我已经完成了，编程代码如下：
cls
for A=1 to 9
for B=0 to 9
X=A*1000+A*100+B*10+B
if sqr(X)=fix(sqr(X)) then print "X=";X
next B
next A
end
运行后，也与二楼的结果相同！谢谢二楼的热心，你给了我莫大的帮助！[/color][em2]
[color=0000FF][size=4]只是还有一点不明白——题1中为什么不能直接用乘方的计算方式来完成！？敬请高手解释，先行谢过了！[/size][/color]
[size=4][color=FF00FF]见者有份，能加分的全都加分了！[/color][/size]
1、编程求所有满足下面条件的3位自然数X：
X=百位数字^3+十位数字^3+个位数字^3 '^3表示立方
我的编程是：
cls
for I=1 to 9
for A=1 to I
for B=0 to I
for C=0 to I
X=A*100+B*10+C
If X=A^3+B^3+C^3 then print "X=";X [color=FF0000]'把这句改为If X=A*A*A+B*B*B+C*C*C then print "X=";X就OK了！只是不理解为什么不能直接用乘方的计算方式来完成！？[/color]
next C
next B
next A
next I
end
可惜，运行后，无结果，不知道错在哪儿！[color=FF0000]修改后，程序执行后结果与2楼的结果一致！[/color][em12]
2、求这样一个四位自然数，它是一个完全平方数，且前两位相同，后两位也相同
这题的思路，我还在寻找中——刚学qbasic，彷徨！[em11]
[color=FF0000]我已经完成了，编程代码如下：
cls
for A=1 to 9
for B=0 to 9
X=A*1000+A*100+B*10+B
if sqr(X)=fix(sqr(X)) then print "X=";X
next B
next A
end
运行后，也与二楼的结果相同！谢谢二楼的热心，你给了我莫大的帮助！[/color][em2]
[color=0000FF][size=4]只是还有一点不明白——题1中为什么不能直接用乘方的计算方式来完成！？敬请高手解释，先行谢过了！[/size][/color]
[size=4][color=FF00FF]见者有份，能加分的全都加分了！[/color][/size]
