作者 主題: 這是我用 fortran95寫的...不知道錯再哪...能幫我看一下嗎?? 感謝  (閱讀 3704 次)

0 會員 與 1 訪客 正在閱讀本文。

a84652380

  • 可愛的小學生
  • *
  • 文章數: 5
    • 檢視個人資料
program main
      implicit none
      real::n,y,t,v
      real,parameter::a=6900,m=4*10**5
      open(10,file="test.txt")
      v=2
      n=(m/a**3)**0.5
      t=(y/3*v)
50    y=(1/n)*(4*sin(n*t)-3*n*t)*v
      if(y==12043) then
        write(10,100)t
        write(*,100)t
       
        else
          if(y>12043) then
            t=t+1.27
           
            goto 50
            else
if(y<12043) then
                t=t-0.52
               
                goto 50
                endif
                endif
                endif
100   format("t=",f8.2)
      end             

被騎上班的老

  • 酷!學園 學長們
  • 活潑的大學生
  • ***
  • 文章數: 360
    • 檢視個人資料
大學畢業後就沒在用了,我特地下載了 gfortran -- FORTRAN 95 compiler 試了一下

第一行的 PROGRAM MAIN 和 IF(...) 都要內縮,因為 1-6 只能放 LABEL ,這樣就編的過了。
至於程式邏輯我沒看。