| 查看: 2616 | 回复: 15 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
求助高手帮忙编一个Fortran的小程序，重金悬赏......
|
|||
| 需要一个Fortran的小程序，急求帮忙。 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
上海工程技术大学激光智能制造课题组招收博士研究生
已经有6人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有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 (幼儿园)
- 金币: 11682.3
- 散金: 2161
- 红花: 4
- 帖子: 5360
- 在线: 216.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
