百鸡问题
11-08 12:39:07软件技巧
浏览次数:908次
标签:软件技巧大全,http://www.duosi8.com
百鸡问题,
购买方案就是找出满足(1),(2)的母鸡数,公鸡数,小鸡数:
母鸡数+公鸡数+小鸡数=100 (1)
3X母鸡数+2X公鸡数+0.5X小鸡数=100 (2)
对(1),(2)稍加变化,得到(3),(4):
5X母鸡数+3X公鸡数=100 (3)
2X公鸡数+5X小鸡数=400 (4)
可编出如下FORRAN求解程序:
INTEGER MJ,GJ,XJ
WRITE(*,5)
DO 10 MJ=1,19
DO 10 GJ=1,31
DO 10 XJ=1,79
IF((MJ+GJ+XJ).NE.100) GOTO 10
IF((3*MJ+2*GJ+0.5*XJ).NE.100) GOTO 10
WRITE(*,40)MJ,GJ,XJ
10 CONTINUE
5 FORMAT(5X,'MJ',5X,'GJ',5X,'XJ')
40 FORMAT(3(5X,14))
STOP
END
该程序在MS DOS6.0下,利用MS FORTRAN5.0在HP486/33T上编译,连接,执行后,行到如下购买方案:
(母鸡,公鸡,小鸡):(2,30,68),(5,25,70),(8,20,72),(11,15,74),(14,10,76),(17,5,78)。
购买方案就是找出满足(1),(2)的母鸡数,公鸡数,小鸡数:
母鸡数+公鸡数+小鸡数=100 (1)
3X母鸡数+2X公鸡数+0.5X小鸡数=100 (2)
对(1),(2)稍加变化,得到(3),(4):
5X母鸡数+3X公鸡数=100 (3)
2X公鸡数+5X小鸡数=400 (4)
可编出如下FORRAN求解程序:
INTEGER MJ,GJ,XJ
WRITE(*,5)
DO 10 MJ=1,19
DO 10 GJ=1,31
DO 10 XJ=1,79
IF((MJ+GJ+XJ).NE.100) GOTO 10
IF((3*MJ+2*GJ+0.5*XJ).NE.100) GOTO 10
WRITE(*,40)MJ,GJ,XJ
10 CONTINUE
5 FORMAT(5X,'MJ',5X,'GJ',5X,'XJ')
40 FORMAT(3(5X,14))
STOP
END
该程序在MS DOS6.0下,利用MS FORTRAN5.0在HP486/33T上编译,连接,执行后,行到如下购买方案:
(母鸡,公鸡,小鸡):(2,30,68),(5,25,70),(8,20,72),(11,15,74),(14,10,76),(17,5,78)。
,百鸡问题
- ·上一篇:安装运行2.13K的几点体会
- ·下一篇:AVG和AVAST哪个更好用
热门推荐
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件
- · AutoCAD复制粘贴图纸导致死机
- · 监控软件导致QQ无法登录
- · 提高WindowsXP启动速度的方法
- · Office 2007无法正常卸载怎么办
- · 如何用批处理一次建立或删除多个目录
- · 教你Windows百毒不侵的13个妙招
- · ATI显卡在线看电影时花屏应该如何解决