小州 發問時間: 電腦與網際網路程式設計 · 1 0 年前

Fortran問題

如果我想跑fortran

(x1,y1)座標

x1=(3.1415*x)/(x^2)

y1=x/((3.1415*x)/(x^2))

若x要一直帶入數直

重0.000001開始到0.23

每次疊加0.0001

要跑出數多可的(x1,y1)座標

輸出到txt檔

1 個解答

評分
  • 祥仔
    Lv 4
    1 0 年前
    最佳解答

    program test01

    implicit none

    real ya,xa,x

    x=0.000001

    open(5,file="ptt.txt")

    do

    xa=(3.1415*x)/(x**2)

    ya=x/((3.1415*x)/(x**2))

    write(5,*)xa,ya

    write(*,*)xa,ya

    if(x>=0.23)stop

    x=x+0.0001

    end do

    write(*,*)"OK"

    stop

    end

    2007-10-08 00:12:15 補充:

    還蠻簡單的

    應該是能跑才對

    輸出檔在 ptt.txt 上

    參考資料: 有問題歡迎詢問
還有問題?馬上發問,尋求解答。