Anonymous
Anonymous asked in 電腦與網際網路程式設計 · 1 decade ago

fortran的一個簡單程式問題??(高手請進)

誰可以幫我打出這個問題的程式碼,因為我答案算出是75點多,但正確答案是111點多

問題:為求一線斷長 length ,需計算將兩座標 (x1,y1),(x2,y2) 間之長度,請將座標由程式中讀入,其值 x1,y1,x2,y2 分別為 -89.5, -6.2, 19.5, 18 ,請將其計算後之長度設成變數 length ,並將求出之長度輸出於螢幕上。 ( 程式撰寫要求:宣告資料之初始值時須使用 data 指令,且求取長度時需使用庫存函數 abs() 與 sqrt().)

程式如:

program ee

implicit none

.

.

.

stop

end program

2 Answers

Rating
  • 祥仔
    Lv 4
    1 decade ago
    Favorite Answer

    program ee1

    implicit none

    real :: a(2),b(2)

    real leight

    a(1)=-89.5

    A(2)= -6.2

    b(1)=19.5

    B(2) = 18.0

    leight=sqrt((abs(a(1)-b(1))**2)+(abs(a(2)-b(2)))**2)

    write(*,*)leight

    stop

    end

    DATA 我不會用 你要改一下

  • 1 decade ago

    DATA嗎!!

    data a/-89.5, -6.2/

    data b/19.5,18.0/

Still have questions? Get your answers by asking now.