?? area.f90
字號:
FUNCTION AREA(X1,Y1,X2,Y2,X3,Y3)
IMPLICIT NONE
DOUBLE PRECISION AREA,X1,X2,X3,Y1,Y2,Y3
AREA=ABS(X1*Y2-Y1*X2+X2*Y3-X3*Y2+X3*Y1-X1*Y3)
area=area/2.0
END FUNCTION AREA?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -