| 查看: 2126 | 回复: 15 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
求助高手帮忙编一个Fortran的小程序，重金悬赏......
|
|||
| 需要一个Fortran的小程序，急求帮忙。 |
回复此楼» 猜你喜欢
293求调剂
已经有14人回复
-
0703化学336分求调剂
已经有6人回复
-
304求调剂
已经有9人回复
-
281求调剂（0805）
已经有8人回复
-
环境领域全国重点实验室招收博士1-2名
已经有3人回复
-
材料专硕306英一数二
已经有10人回复
-
301求调剂
已经有6人回复
-
一志愿天津大学化学工艺专业（081702）315分求调剂
已经有7人回复
-
302求调剂
已经有6人回复
-
26博士申请
已经有3人回复
1055439338
新虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 291.8
- 帖子: 42
- 在线: 33.5小时
- 虫号: 2106104
- 注册: 2012-11-04
- 性别: GG
- 专业: 大地测量学
【答案】应助回帖
|
module bank implicit none private money public LoadMoney, SaveMoney, Report integer :: money = 1000000 contains subroutine LoadMoney(num) implicit none integer :: num money=money-num return end subroutine subroutine SaveMoney(num) implicit none integer :: num money=money+num return end subroutine subroutine Report() implicit none write(*,"('银行目前库存',I,'元')"  moneyend subroutine end module program ex1101 use bank implicit none call LoadMoney(100) call SaveMoney(1000) call Report() stop end |
15楼2012-11-30 21:14:05
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-09-20 10:54:29
shenxianshifu
至尊木虫 (知名作家)
宗师
- 应助: 1 (幼儿园)
- 金币: 12973.6
- 散金: 2161
- 红花: 4
- 帖子: 5279
- 在线: 211.6小时
- 虫号: 320677
- 注册: 2007-03-10
- 性别: GG
- 专业: 半导体材料
4楼2011-09-30 10:54:51
xiangqian327
银虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 489.7
- 散金: 10
- 红花: 1
- 帖子: 175
- 在线: 14.8小时
- 虫号: 1228409
- 注册: 2011-03-10
- 性别: GG
- 专业: 工程热物理相关交叉领域
5楼2011-10-01 19:50:20
