推 dana79810:我了解了!!感謝前輩 05/29 19:11
※ 引述《dana79810 (kicala)》之銘言：
: 出現 Variable I has been used without being given an initial value
: I,J,K都有這樣我沒辦法下去。
: 跑是可以跑可是附程式叫不出來，拜託前輩們
: program intergran sin
: implicit none
: real::a,b,h,dx
: integer::s
: character(len=20)::skill,i,j,k
character(len=20)::skill ! i, j, k 是字元
: write(*,*)"function:sin key in upper & under "
: read(*,*)a,b
: h=a-b
: write(*,*)"key in how many subintervals ?"
: read(*,*)s
: dx=h/real(s)
: write(*,*)"select a skill "
: write(*,*)"(i)simspon rule"
: write(*,*)"(j)rectangule rule"
: write(*,*)"(k)trapezoidal rule"
: read(*,*)skill
: ----------------------------------
skill=trim(skill)
!或者是前面改成 character(len=1)::skill
: if (skill==i) then 我
if (skill == "i") then
: call simspon 想
: else if(skill==j) then 問
else if (skill == "j") then
: call rectangule 題
: else if(skill==k) then 在
else if (skill == "k") then
: call trapezoidal 這
: end if
!用select case 會比較方便……吧！
: end program
略…
gfortran ok
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.104.45.191