 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 2/1 | 返回列表 |
| 查看: 2179 | 回復: 15 | |||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
[求助]
求助高手幫忙編一個Fortran的小程序，重金懸賞......
|
|||
| 需要一個Fortran的小程序，急求幫忙。 |
回復此樓» 猜你喜歡
339求調(diào)劑
已經(jīng)有8人回復
-
085600 286分 材料求調(diào)劑
已經(jīng)有7人回復
-
0856，材料與化工321分求調(diào)劑
已經(jīng)有12人回復
-
一志愿南京航空航天大學材料學碩求調(diào)劑
已經(jīng)有3人回復
-
283求調(diào)劑
已經(jīng)有5人回復
-
一志愿哈爾濱工業(yè)大學材料與化工方向336分
已經(jīng)有7人回復
-
數(shù)一英一271專碩（085401）求調(diào)劑，可跨
已經(jīng)有4人回復
-
0703化學求調(diào)劑
已經(jīng)有8人回復
-
277跪求調(diào)劑
已經(jīng)有9人回復
-
材料277求調(diào)劑
已經(jīng)有6人回復
1055439338
新蟲 (初入文壇)
- 應助: 0 (幼兒園)
- 金幣: 291.8
- 帖子: 42
- 在線: 33.5小時
- 蟲號: 2106104
- 注冊: 2012-11-04
- 性別: GG
- 專業(yè): 大地測量學
【答案】應助回帖
|
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
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
2樓2011-09-20 10:54:29
shenxianshifu
至尊木蟲 (知名作家)
宗師
- 應助: 1 (幼兒園)
- 金幣: 11879.5
- 散金: 2161
- 紅花: 4
- 帖子: 5286
- 在線: 213.4小時
- 蟲號: 320677
- 注冊: 2007-03-10
- 性別: GG
- 專業(yè): 半導體材料
4樓2011-09-30 10:54:51
xiangqian327
銀蟲 (小有名氣)
- 應助: 0 (幼兒園)
- 金幣: 489.7
- 散金: 10
- 紅花: 1
- 帖子: 175
- 在線: 14.8小時
- 蟲號: 1228409
- 注冊: 2011-03-10
- 性別: GG
- 專業(yè): 工程熱物理相關交叉領域
5樓2011-10-01 19:50:20
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 數(shù)一英一271專碩（085401）求調(diào)劑，可跨 +3 | 前行必有光 2026-03-28 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研]
 材料與化工考研調(diào)劑
+17
|
孅華 2026-03-22 | 17/850 |
|
|
[考研] 311求調(diào)劑 +3 | 希望上岸阿小楊 2026-03-23 | 3/150 |
|
|
|
[考研] 張芳銘-中國農(nóng)業(yè)大學-環(huán)境工程專碩-298 +4 | 手機用戶 2026-03-26 | 4/200 |
|
|
|
[考研] 一志愿上海理工能源動力（085800）310分求調(diào)劑 +3 | zhangmingc 2026-03-27 | 4/200 |
|
|
|
[考研] 一志愿北京化工大學 070300 學碩 336分 求調(diào)劑 +9 | vv迷 2026-03-22 | 9/450 |
|
|
|
[考博] 26申博 +3 | 加油沖�。� 2026-03-26 | 3/150 |
|
|
|
[考研] 283求調(diào)劑（080500） +4 | A child 2026-03-27 | 4/200 |
|
|
|
[考研] 一志愿太原理工安全工程300分，求調(diào)劑 +4 | 0857求調(diào)劑. 2026-03-24 | 4/200 |
|
|
|
[考研] 考研調(diào)劑 +10 | 呼呼？~+123456 2026-03-24 | 10/500 |
|
|
|
[考研] 336材料求調(diào)劑 +7 | 陳瀅瑩 2026-03-26 | 9/450 |
|
|
|
[考研] 一志愿華理，數(shù)一英一285求A區(qū)調(diào)劑 +8 | AZMK 2026-03-25 | 10/500 |
|
|
|
[考研] 考研調(diào)劑 +6 | 來好運來來來 2026-03-21 | 7/350 |
|
|
|
[考研] 290分調(diào)劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
|
[考研] 0854人工智能方向招收調(diào)劑 +4 | 章小魚567 2026-03-24 | 4/200 |
|
|
|
[考研] 300求調(diào)劑，材料科學英一數(shù)二 +5 | leaflight 2026-03-24 | 5/250 |
|
|
|
[考研] 求調(diào)劑 +7 | 十三加油 2026-03-21 | 7/350 |
|
|
|
[考研] 361求調(diào)劑 +3 | Glack 2026-03-22 | 3/150 |
|
|
|
[考研] 328求調(diào)劑 +4 | LHHL66 2026-03-23 | 4/200 |
|
|
|
[考研] 一志愿深大，0703化學，總分302，求調(diào)劑 +4 | 七月-七七 2026-03-21 | 4/200 |
|