鸡蛋相关问题编程解法

小学智力题的编程解法(Fortran) 问题: 一筐鸡蛋, 1 个 1 个拿正好拿完。2 个 2 个拿还剩 1 个。3 个 3 个拿正好拿完。4 个 4 个拿还剩 1 个。 5 个 5 个拿还剩 4 个。 6 个 6 个拿还剩 3 个。 7 个 7 个拿还 剩 5 个。 8 个 8 个拿还乘 1 个。 9 个 9 个拿正好拿完。 问筐里有多少鸡蛋? 看 谁是数学天才!! PROGRAM MIAN IMPLICIT NONE real :: X REAL ! 鸡蛋的个数 :: A1, A2, A3, A4, A5, A6, A7, A8, A9 ! 用于接收余数 DO X =1.0, 1000.0 A1 = MOD( X, 1.0 ) A2 = MOD( X, 2.0 ) A3 = MOD( X, 3.0 ) A4 = MOD( X, 4.0 ) A5 = MOD( X, 5.0 ) A6 = MOD( X, 6.0 ) A7 = MOD( X, 7.0 ) A8 = MOD( X, 8.0 ) A9 = MOD( X, 9.0 ) IF(A1==0 .AND. A2==1 .AND. A3==0 .AND. A4==1 .AND. A5==4 .AND. A6==3 .AND. A7==5 .AND. A8==1 .AND. A9==0 ) THEN WRITE(*,100) X 100 FORMAT('',"*************************************",/,/," 鸡 蛋 的 个 数 是 : ",F6.2,/ ,/,"***********************************") END IF END DO END PROGRAM

程序运行的结果如下图所示: 编程,源于对生活的热爱: ) Contact me: 15mliu3@stu.edu.cn

  • 抛鸡蛋问你题的C++编程解法

    抛鸡蛋问你题的C++编程解法

    抛鸡蛋问你题的C++编程解法...

    贡献者:网络收集
    757664
  • 关于二级考试中程序设计题子通用解法

    关于二级考试中程序设计题子通用解法

    关于二级考试中程序设计题子通用解法...

    贡献者:网络收集
    244696
  • 微分方程数值解法编程作业二

    微分方程数值解法编程作业二

    微分方程数值解法编程作业二...

    贡献者:网络收集
    53071
  • 线性方程组的直接解法程序设计(计算方法与数学实验)

    线性方程组的直接解法程序设计(计算方法与数学实验)

    线性方程组的直接解法程序设计(计算方法与数学实验)...

    贡献者:网络收集
    353348
  • 编程题特殊解法

    编程题特殊解法

    编程题特殊解法...

    贡献者:网络收集
    177111
  • 计算机2级编程题特殊解法

    计算机2级编程题特殊解法

    计算机2级编程题特殊解法...

    贡献者:网络收集
    723557
  • 编程 鸡蛋

    编程 鸡蛋

    编程 鸡蛋...

    贡献者:网络收集
    934556
  • 关于拿鸡蛋数学题的解法

    关于拿鸡蛋数学题的解法

    关于拿鸡蛋数学题的解法...

    贡献者:网络收集
    819521
  • 二元一次方程组的解法相关问题

    二元一次方程组的解法相关问题

    二元一次方程组的解法相关问题...

    贡献者:网络收集
    501576
  • 单片机编程头文件相关问题

    单片机编程头文件相关问题

    单片机编程头文件相关问题...

    贡献者:网络收集
    486217
  • 网友在搜