您的位置: 首页 > 软件教程 > codeblocks使用教程 > codeblocks环境下fortran编程求解百钱百鸡
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]
codeblocks环境下fortran编程求解百钱百鸡 6.0分
出处:2345软件教程 时间:2015-12-18 人气:179

您可能感兴趣的话题: CodeBlocks入门教程   编码方块  

核心提示:如何通过fortran编程求解百钱百鸡

  推导过程:

  ①a + b + c =100 (鸡总数)

  ②5a + 3b + c/3 =100 (钱总数)

  由②可推导出:

  ③15a + 9b + c =300

  由③-①可推导出:

  ④14a + 8b = 200

  由④得:

  ⑤7a + 4b = 100

  a<14,且为偶数

  因为7*14=98,所以a<14

  【在本文的编程中以a作为循环】

  3、编写程序:

  implicit none

  integer::a,b,c

  a=0 !公鸡

  b=0 !母鸡

  c=0 !小鸡

  do a=0,14,2

  if(mod((100-7*a),4)==0)then

  b=(100-7*a)/4

  c=100-a-b

  if(mod(c,3)==0)then

  c=c/3

  if((a*5+b*3+c-100)==0)then

  print *,a,b,c

  end if

  end if

  end if

  end do

  4、在codeblocks中编译、链接:

codeblocks环境下fortran编程求解百钱百鸡的方法

  5、测试运行

  结果如下

  共有4组解:

  鸡翁 鸡母 鸡雏

  0 25 25

  4 18 26

  8 11 27

  12 4 28

codeblocks环境下fortran编程求解百钱百鸡的方法
网友评论