| 5 | 1/1 | 返回列表 |
| 查看: 2152 | 回復: 20 | ||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | ||
princeado金蟲 (正式寫手)
|
[求助]
大家?guī)臀铱匆粋fortran的程序,我總是計算不出正確的結果
|
|
|
最近剛學fortran,開始編小小程序試手,下面是我弄的一個程序,沒有錯誤,但總是運行不出正確的結果,程序是想通過do循環(huán)對數(shù)組a進行賦值,用的是語句a(i)=jiecheng(i),jiecheng是我自定義的函數(shù),求每個數(shù)對應的階乘。所有程序如下,哪位高手幫我看看問題在哪里。 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ā)表 | |
|---|---|---|---|---|
|
[考博] 26博士申請 +3 | 1042136743 2026-03-17 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 070300化學319求調劑 +4 | 錦鯉0909 2026-03-17 | 4/200 |
|
|
[考研] 344求調劑 +4 | knight344 2026-03-16 | 4/200 |
|
|
[考研] 085601求調劑 +4 | Du.11 2026-03-16 | 4/200 |
|
|
[考研] 本人考085602 化學工程 專碩 +16 | 不知道叫什么! 2026-03-15 | 18/900 |
|
|
[考研] 275求調劑 +4 | 太陽花天天開心 2026-03-16 | 4/200 |
|
|
[考研] 285化工學碩求調劑(081700) +9 | 柴郡貓_ 2026-03-12 | 9/450 |
|
|
[考研] 材料與化工304求B區(qū)調劑 +7 | 邱gl 2026-03-11 | 8/400 |
|
|
[基金申請] 國自科面上基金字體 +6 | iwuli 2026-03-12 | 7/350 |
|
|
[考研] 333求調劑 +3 | 文思客 2026-03-16 | 7/350 |
|
|
[考研] 0703一志愿211 285分求調劑 +5 | ly3471z 2026-03-13 | 5/250 |
|
|
[考研]
|
笨笨兔子 2026-03-12 | 3/150 |
|
|
[考博] 東華理工大學化材專業(yè)26屆碩士博士申請 +6 | zlingli 2026-03-13 | 6/300 |
|
|
[考研] 288求調劑 +4 | 奇點0314 2026-03-14 | 4/200 |
|
|
[考研] 材料工程327求調劑 +3 | xiaohe12w 2026-03-11 | 3/150 |
|
|
[考研] 308求調劑 +5 | 是Lupa啊 2026-03-11 | 5/250 |
|
|
[考研] 求材料調劑 085600英一數(shù)二總分302 前三科235 精通機器學習 一志愿哈工大 +4 | 林yaxin 2026-03-12 | 4/200 |
|
|
[考研] 26調劑/材料/英一數(shù)二/總分289/已過A區(qū)線 +6 | 步川酷紫123 2026-03-13 | 6/300 |
|
|
[考研] 四川大學085601材料工程專碩 初試294求調劑 +4 | 祝我們好在冬天 2026-03-11 | 4/200 |
|
|
[考研] 281求調劑 +9 | Koxui 2026-03-12 | 11/550 |
|