水仙花数和玫瑰花数的问题

来源:百度知道 编辑:UC知道 时间:2024/05/22 16:46:32
我做了水仙花数和玫瑰花数的程序!分别用了两种方法:第一种是用了一重循环的,例如水仙花数的程序是这样的
Dim n, a, b, c As Integer
For n = 100 To 999
a = n \ 100 '百位
b = (n \ 10) Mod 10 '十位
c = n Mod 10 '个位
If n = a ^ 3 + b ^ 3 + c ^ 3 Then
Print n
End If
Next
这样的方法不论是水仙还是玫瑰数都能得到,还有一种方法理论上行得通,但是只能得到水仙花数:
Dim n, a, b, c As Integer
For n = 100 To 999
for a=1 to 9
for b=0 to 9
for c=0 to 9
if n=100*a+10*b+c and n=a^3+b^4+c^3 then
print n
endif
next
next
next
next
这样的程序能得到水仙花数,却得不到玫瑰花数,我想知道为什么?谢谢,请高手指点!!
第二种方法有一处写错了,第六行的第二个条件都是三次方!

再多Dim一个d,我猜玫瑰花数是四位的吧

玫瑰花束用C语言表达:#include <stdio.h>#include <math.h> int main(void) if (sum == i) } printf("\n"); system("pause"); return (0); }

能讲讲玫瑰花数是什么概念么?

能讲讲玫瑰花数是什么概念么?