| 查看: 2084 | 回复: 15 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
求助高手帮忙编一个Fortran的小程序，重金悬赏......
|
|||
| 需要一个Fortran的小程序，急求帮忙。 |
回复此楼» 猜你喜欢
过年走亲戚时感受到了所开私家车的鄙视链
已经有10人回复
-
今年春晚有几个节目很不错，点赞！
已经有12人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有13人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有12人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复
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