| 5 | 1/1 | 返回列表 |
| 查看: 2144 | 回復: 20 | ||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | ||
princeado金蟲 (正式寫手)
|
[求助]
大家?guī)臀铱匆粋fortran的程序,我總是計算不出正確的結果
|
|
|
最近剛學fortran,開始編小小程序試手,下面是我弄的一個程序,沒有錯誤,但總是運行不出正確的結果,程序是想通過do循環(huán)對數組a進行賦值,用的是語句a(i)=jiecheng(i),jiecheng是我自定義的函數,求每個數對應的階乘。所有程序如下,哪位高手幫我看看問題在哪里。 program test01 implicit none integer :: i real :: a(5) real,external :: jiecheng do i=1,5 a(i)=jiecheng(i) end do write(*,*) a stop end function jiecheng(x) implicit none integer x real jiecheng integer :: ii=1 integer :: m=1 do ii=1,x m=m*ii end do jiecheng=m return stop end |
實習版主 (著名寫手)
DOE鍋爐工

金蟲 (正式寫手)
至尊木蟲 (職業(yè)作家)
金蟲 (正式寫手)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 301求調劑 +4 | A_JiXing 2026-03-16 | 4/200 |
|
|---|---|---|---|---|
|
[碩博家園] 湖北工業(yè)大學 生命科學與健康學院-課題組招收2026級食品/生物方向碩士 +3 | 1喜春8 2026-03-17 | 5/250 |
|
|
[考研] 290求調劑 +3 | p asserby. 2026-03-15 | 4/200 |
|
|
[考研] 一志愿南京大學,080500材料科學與工程,調劑 +4 | Jy? 2026-03-16 | 4/200 |
|
|
[考研] 302求調劑 +4 | 小賈同學123 2026-03-15 | 8/400 |
|
|
[考研]
|
zhouzhen654 2026-03-16 | 3/150 |
|
|
[基金申請] 國自科面上基金字體 +6 | iwuli 2026-03-12 | 7/350 |
|
|
[文學芳草園] 伙伴們,祝我生日快樂吧 +17 | myrtle 2026-03-10 | 26/1300 |
|
|
[考研] 化學調劑0703 +8 | 啊我我的 2026-03-11 | 8/400 |
|
|
[考研] 304求調劑 +5 | 素年祭語 2026-03-15 | 5/250 |
|
|
[考研] 318求調劑 +3 | Yanyali 2026-03-15 | 3/150 |
|
|
[考研] 復試調劑 +3 | 呼呼?~+123456 2026-03-14 | 3/150 |
|
|
[考研] 328求調劑 +3 | 5201314Lsy! 2026-03-13 | 6/300 |
|
|
[考研] 學碩285求調劑 +13 | Wisjxn 2026-03-12 | 46/2300 |
|
|
[考研] 0703化學求調劑 +7 | 綠豆芹菜湯 2026-03-12 | 7/350 |
|
|
[考研] 工科278分求調劑 +5 | 周慢熱啊 2026-03-12 | 7/350 |
|
|
[考研] 308求調劑 +3 | 是Lupa啊 2026-03-12 | 3/150 |
|
|
[考研] 一志愿山大07化學 332分 四六級已過 本科山東雙非 求調劑! +3 | 不想理你 2026-03-12 | 3/150 |
|
|
[考研] 070303一志愿西北大學學碩310找調劑 +3 | d如愿上岸 2026-03-13 | 3/150 |
|
|
[考研] 283求調劑,材料、化工皆可 +8 | 蘇打水7777 2026-03-11 | 10/500 |
|