《算经》：鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一，百钱买百鸡。问翁、母、雏各几何？windows平台下fortran编程求解百钱百鸡
工具/原料
codeblocks IDE编程环境
方法/步骤
2
推导过程：① a + b + c =100 （鸡总数）② 5a + 3b + c/3 =100 （钱总数）由②可推导出：③ 15a + 9b + c =300由③-①可推导出：④ 14a + 8b = 200由④得：⑤ 7a + 4b = 100a<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中编译、链接：
5
测试运行结果如下共有4组解：鸡翁 鸡母 鸡雏 0 25 25 4 18 26 8 11 27 12 4 28
上一篇：利用小程序开发平台有哪些优势？
下一篇：怎样搭建Android开发平台