水仙花数.txt

算法分析

水仙花数 
（加入日期:2003-4-27 点击数:3529）
【对此文发表评论】 【编程爱好者论坛】 【保存文章至硬盘】 【打印文章】 
 
水仙花数是指一个三位数，其各个数之立方和等于该数，例如153，即为一水仙花数，因为153=13+53+33

FORTRAN 源程序



   WRITE(*,30)

    DO 10 K=100,999

      IA=K/100

  IB=MOD(K,100)/10

  IC=MOD(K,10)

  IF(K.NE.IA**3+IB**3+IC**3) GOTO 10

  WRITE(*,20)K, IA,IB,IC

10       CONTINUE

20       FORMAT(5X,4I4)

30       FORMAT(5X,18HN=I**3+J**3+K**3)

STOP

END



BASIC 源程序



10 PRINT "  N =  I ^ 3 + J ^ 3 + K ^ 3"

20 FOR K = 100 TO 999

30   IA = INT(K / 100)

40   IB = INT((K MOD 100) / 10)

50   IC = K MOD 10

60   L = IA ^ 3 + IB ^ 3 + IC ^ 3

70   IF K <> L THEN GOTO 90

80   PRINT K; "   "; IA; "     "; IB; "    "; IC

90 NEXT K

本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( ProgramFan.Com )