fortran課后習(xí)題答案-文庫吧
2025-06-08 16:27 本頁面
【正文】 R X,Y,A,B X=1 Y=0 A=3 B=4 SELECT CASE(X) CASE(1) SELECT CASE(Y) CASE(0) A=A+1 CASE(1) B=B+ 1 END SELECT CASE(2) A=A+1 B=B1 CASE DEFAULT A=A+B B=A+B END SELECT PRINT*,A=,A,B=,B END輸出結(jié)果是：A=4 B=42．將下列數(shù)學(xué)運算轉(zhuǎn)換成對應(yīng)的FORTRAN表達式或?qū)懗稣Z句。(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) 實數(shù)a,b,c能否構(gòu)成三角形三邊 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.,請求出下列邏輯表達式的值。(1) (A+B).LT.(C+D). 邏輯表達式的值: .FALSE.(2) A+B/ 邏輯表達式的值: .TRUE.(3) . 邏輯表達式的值: .FALSE.(4) C/+..NOT..TRUE.. 邏輯表達式的值: .FALSE.(5) ()..(A+) 該表達式錯誤(6) ().AND.() 邏輯表達式的值: .FALSE.某運輸公司在計算運費時，按照運輸距離S對運費打一定的折扣D，其標(biāo)準(zhǔn)如下：S250km D=0 250≤S500km D=%500≤S1000km D=%1000≤S2000km D=%2000≤S2500km D=%2500≤S3000km D=%3000km≤S D=% 編寫程序，輸入基本運費Price，貨物重量Weight，距離S，計算總運費Freight。其中Freight=Price*Weight*S*(1D)。REAL Price, Weight, S, Freight, D READ*, Price, Weight, S IF (S250) THEND=0 ELSEIF(S500) THEND=ELSEIF(S1000) THEND=ELSEIF(S2000) THEND=ELSEIF(S2500) THEND=ELSEIF(S3000) THEND= ELSED= ENDIFFreight=Price*Weight*S*(1D)WRITE(*,*)Freight=, FreightEND編程判斷自然數(shù)M是否為N的因子，是輸出YES, 不是輸出NO。 INTEGER M,N READ(*,*)M,N IF(MOD(N,M)= =0) THENWRITE(*,*)YES ELSEWRITE(*,*)NO ENDIF END編程判斷兩位整數(shù)M是否為守形數(shù)。所謂守形數(shù)是指該數(shù)本身等于自身平方的低位數(shù)，如25是守形數(shù)，因為252=625，而625的低兩位為25。是
電大資料相關(guān)推薦
鄂ICP備17016276號-1