[問題] 好像是字元邏輯的問題..

[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
      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
----------------------------------
      if (skill==i) then          我
        call simspon              想
      else if(skill==j) then      問
        call rectangule           題
      else if(skill==k) then      在
        call trapezoidal          這

      end if
      end program

      subroutine simspon
      implicit none
      write(*,*)"integran by simspon rule"
      end

      subroutine rectangule
      implicit none
      write(*,*)"integran by rectangule rule"
      end

      subroutine trapezoidal
      implicit none
      write(*,*)"integran by trapezoidal rule"
      end

謝謝 orz

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 118.169.151.243
→ GPS5566:你的第一行就是答案了...(題外話 simspon = 辛氏積分??)
→ Yagyu:(skill=="i")
→ dana79810:不好意識唷..其實我不知道要如何改
→ dana79810:給二樓，加"AA"還是叫不出來耶..
推 charlesdc:i,j,k沒給值他是要怎麼比對? 要依照你skill給什麼吧
→ dana79810:我懂了!!! 謝謝唷