fortran課后習題答案-在線瀏覽
2025-08-10 16:27本頁面
【正文】 /2/3(4) COS(ATAN((A**3+B**3)**()/(C*C+1)))(5) EXP(A*X**2+B*X+C)(6) COS(X*Y/SQRT(X*X+Y*Y))**36. 用FORTRAN語句完成下列操作：(1) 將變量I的值增加1。 I=I**3+J(3) 將E和F中大者存儲到G中。(1) x∈(3,6) FORTRAN表達式: x6(2) ≤y≤8 FORTRAN表達式: y==8(3) x+y≠z+6 FORTRAN表達式: (x+y)/=(z+6)(4) 2x+4y+xy=0 FORTRAN表達式: 2*x+4*y+x*y=0(5) |ab|≤c2 FORTRAN表達式: ABS(ab)=c*c(6) 如果xy或xz，則min=x FORTRAN語句: IF(xz)min=x(7) 實數a,b,c能否構成三角形三邊 FORTRAN表達式: a.(a+b).(b+c).(c+a)b(8) a,b 之一為0但不同時為0 FORTRAN表達式: (a====0).AND.(.NOT.(a====0))(9) 如果m與n相等,則k為1,否則k為0FORTRAN語句: IF(m==n)THEN k=1 ELSE k=0 ENDIF(10) a,b是否相同號 FORTRAN表達式: a*b0=,B=,C=,D=,L=.TRUE.,M=.FALSE.,請求出下列邏輯表達式的值。其中Freight=Price*Weight*S*(1D)。 INTEGER M,N READ(*,*)M,N IF(MOD(N,M)= =0) THENWRITE(*,*)YES ELSEWRITE(*,*)NO ENDIF END編程判斷兩位整數M是否為守形數。是輸出YES, 不是輸出NO。REAL X,YREAD(*,*)XIF(X0)THEN Y=COS(X+1)ELSEIF(X=10)THEN Y=LOG(X*X+1)ELSEIF(X20)THEN Y=X**()ELSE Y=X*XENDIFWRITE(*,*)Y=,YEND第四章 循環(huán)結構程序設計 第64頁 112(1) (2) 8 11(3) k= 6(4) 14 5(5) 5167 2. 利用下式計算π的近似值。求三角形的面積和重心（提示：重心坐標=（X+Y+Z）/3利用復數計算）。4個圓，圓心分別在(2,2),(2,2),(2,2),(2,2),半徑為1。落在圓外時，Z=0。IMPLICIT NONELOGICAL P,Q,R,SREAL X,YINTEGER ZREAD*,X,YZ=0P= (X2)**2+(Y2)**2=1Q= (X+2)**2+(Y+2)**2=1R= (X2)**2+(Y+2)**2=1S= (X+2)**2+(Y2)**2=1IF()Z=1PRINT*,ZEND第七章 數組 第124頁 12(1) (2) K= 5(3) 1 2 3 4 5 6 7 8 9 10 11 121 4 7 102 5 8 113 6 9 12(4) S= 3. 將一個數組的元素按逆序重新存放，例如，原來存放順序為：8,6,5,4,1。IMPLICIT NONEINTEGER,PARAMETER::N=5INTEGER A(N),I,TDATA A/8,6,5,4,1/WRITE(*,10)(A(I),I=1,5)DO I=1,N/2 T=A(I) A(I)=A(NI+1) A(NI+1)=TEND DOWRITE(*,10)(A(I),I=1,5)10 FORMAT(1X,5I4)END
電大資料相關推薦
鄂ICP備17016276號-1