课本P37更相减损术程序.doc

《课本P37更相减损术程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、INPUTm,nDOt=ABS(m-n)m=nn=tLOOPUNTILt=0PRINTmEND1、课本P37更相减损术程序：2、设计一程序寻找所有的三位“水仙花数”（一个n位数如果等于它各个数位上的数字的n次方的和，则称这个数位“n位水仙花数”）（1）（2）FORa=1TO9FORb=0TO9FORc=0TO9m=a^3+b^3+c^3n=a*100+b*10+cIFm=nTHENPRINTmENDIFNEXTcNEXTbNEXTaENDa=1DOb=0DOc=0DOm=a^3+b^3+c^3n=a*100+b*10+cc=c+1IF

2、m=nTHENPRINTmENDIFLOOPUNTILc>9b=b+1LOOPUNTILb>9a=a+1LOOPUNTILa>9ENDINPUTam=ai=0DOm=m10i=i+1LOOPUNTILm=0s=0n=aDOr=nMOD10n=n10s=s+r*10^(i-1)i=i-1LOOPUNTILi=0IFs=aTHENPRINT“是回文数”ELSEPRINT“不是回文数”ENDIFEND3、课本P51B组第3题程序：