Re: [問題] 請問fortran找極值跟階乘

[jubilee2 (3321)]

※ 引述《shamily145 (薏仁)》之銘言：
: 我現在用的fortran程式是Visual Fortran 6.0
: 現在遇到兩個作業上的問題要請教高手
: 就是要寫一個程式比較計算sin值和用泰勒算sin值
: 可是泰勒裡面有階乘，不知道要用什麼方法表示
寫個方程式
: 另外是要讀一個檔(自己建立，在裡面打幾個數字)
: 可是在程式裡面要假設不知道有幾個數字
: 並找出最大值和最小值
: 最後輸出只要最大值和最小值
: 請問如果用do的話要怎麼找出最大值和最小值?

integer stat
real Rmax Rmin readreal

open(.....)

rmax=-9999
rmin=9999

do while
READ(8,*,iostat=stat) readreal
if(stat<0) exit
rmax=max(readreal,rmax)
rmin=min(readreal,rmin)
end do
write(*,*) rmax,rmin

end
其它自己補語法

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.116.138.199
→ shamily145:請問READ後面那括號IOSTAT=STAT是什麼意思呢?可以麻煩
→ shamily145:你解釋一下嗎?我剛學，有些還看不太懂，謝謝~
推 shamily145:請問DO和DO WHILE有什麼不同
推 meteorology:請問一下你手邊的書  有沒有一個章節叫檔案？？
→ meteorology:在那個裡面會有寫到IOSTAT的用法^^
推 shamily145:我現在這本是英文書，而且有些指令老師還沒教到...
→ shamily145:所以我看不太懂= =而且我照打會有錯誤，沒辦法執行
推 shamily145:請問READ(8,*,IOSTAT=STAT)代表什麼意思
→ jubilee2:open裡面的 .... 既然你前面都說要讀檔案了 想說你應該會
→ jubilee2:不然爬一下版  隨便一個範例應該都有
→ jubilee2:IOSTAT 是讀取檔案的狀態 傳回值<0 就是讀取有錯誤
→ jubilee2:do while(.true.) 也有漏掉  自己加一下
→ shamily145:我照這樣打 他顯示的都是最後一個數字 不是最大最小值
→ shamily145:我最大最小值已經找出來囉~謝謝
推 h888512:存成array,讓他去替代