怎么用PB求“水仙花数”?

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/04/29 07:57:09

怎么用PB求“水仙花数”?
求出所有的“水仙花数”.所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数本身.例如：153就是一个“水仙花数”,因为153＝1^3+5^3+3^3.用MessageBox函数显示结果.将得出的水仙花数写入初始化文件

设置全局变量（Global Variables）：String gs_docname=”c:\shuixianhua.ini”
String is_shuixian="~n"
Open事件：
/*
功能：
1.用MessageBox函数显示水仙花数.
2.将得出的水仙花数写入初始化文件.
*/
this.u_selectshui() //查找水仙花数
messagebox("水仙花素","水仙花素："+is_shuixian)
this.u_newfile()
函数:：
/*
function:setini()
功能:将计算得到的水仙花数写入初始化文件.
*/
SetProfileString(gs_docname,"data","shui",is_shuixian)
/*
function:u_newfile()
功能：判断初始化文件是否存在.若存在,则继续执行;若不存在,则新建初始化文件.
*/
boolean lb_exist
integer li_FileNum
lb_exist = FileExists(gs_docname)
IF lb_exist then
else
\x09li_FileNum = FileOpen(gs_docname,LineMode!,Write!,Shared!,&
Append!)
\x09FileWrite(li_FileNum,"[data]~nshui=0")
\x09this.setini()
end if
/*
function:u_selectshui()
功能:查找水仙花数,并存入字符串is_shuixian中.
*/
integer li_1,li_2,li_3
for li_1=1 to 9
\x09for li_2=0 to 9
\x09\x09for li_3=0 to 9
\x09\x09\x09if li_1*100+li_2*10+li_3 = li_1*li_1*li_1+li_2*li_2*li_2+li_3*li_3*li_3 &
\x09\x09\x09then is_shuixian+=(string(li_1*100+li_2*10+li_3)+"~n")
\x09 next
next
next
return 0

在计算机中for循环语句,怎么求水仙花数求三位数水仙花数的算法怎么设计? 用循环语句求所有的水仙花数(for--next) 水仙花数的由来我知道怎么编程求水仙花数,所以别给我粘那个了,.我的意思是，那样的数为什么要叫水仙花数，为什么不叫桃花数，求水仙花数程序通用程序即可 java 用while循环怎么做这题?求1000内的水仙花数（个位立方 + 十位立方 + 百位立方 = 这个数本身）用java求1000之内所有的 “水仙花数 “,所谓 “水仙花数 “是指一个三位数,其各位数字立方和等于该数本身谁知道用C语言怎么编写一个能求出所有的水仙花数的程序? 求100-999的水仙花数 java 用while循环做边写一个求水仙花数的函数,求3位正整数的全部水仙花数中的次大值.所谓水仙花数是指三位整数的各位上的数求100^999中所有的水仙花数, 求100~999之间的所有水仙花数之和