fortran課后習(xí)題答案-wenkub
2023-07-08 16:27:44 本頁面
【正文】 達(dá)式或?qū)懗稣Z句。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 MREAD(*,*)MIF(MOD(M*M,100)==M)THENWRITE(*,*)YESELSEWRITE(*,*)NOENDIFEND9 已知 從鍵盤輸入x，求出y的值。COMPLEX X,Y,Z,WREAL A,B,C,S,PREAD(*,*)X,Y,ZA=ABS(XY)B=ABS(YZ)C=ABS(ZX)P=(A+B+C)/2S=SQRT(P*(PA)*(PB)*(PC))W=(X+Y+Z)/3WRITE(*,*)SWRITE(*,*)WEND10．設(shè)有編出相應(yīng)的的程序（要求利用邏輯變量）。IMPLICIT NONEINTEGER X(10),I,T,MA!變量MA存放最大數(shù)下標(biāo)序號(hào)X=(/10,55,25,70,45,15,25,85,45,35/)WRITE(*,10)(X(I),I=1,10)MA=1DO I=2,10 IF(X(I)X(MA))MA=IENDDOT=X(1)X(1)=X(MA)X(MA)=TWRITE(*,10)(X(I),I=1,10)10 FORMAT(1X,10I4)END7. 求34矩陣中的最大元素和最小元素。PARAMETER(N=5)INTEGER A(N,N),I,J,TDO I=1,N READ(*,*)(A(I,J),J=1,5)ENDDODO I=1,NWRITE(*,10)(A(I,J),J=1,N) ENDDODO I=1,N T=A(2,I) A(2,I)=A(5,J) A(5,J)=TENDDODO I=1,NWRITE(*,10)(A(I,J),J=1,N) ENDDODO I=1,N DO J=1,NA(I,J)=A(I,J)/A(I,I) ENDDOENDDODO I=1,NWRITE(*,10)(A(I,J),J=1,N) ENDDO10 FORMAT(1X,5I5)END12. 按以下格式打印出楊輝三角形的前N行。!子程序FUNCTION F(N)INTEGER F,N,S,TS=0T=NDO WHILE(T0) K=MOD(T,10) S=S+K**3 T=T/10ENDDOF=SEND!主程序PROGRAM EX8INTEGER F,IDO I=100,999 IF(F(I)==I)PRINT*,IENDDOENDDO12．設(shè)計(jì)一個(gè)子例行程序，計(jì)算一個(gè)任意數(shù)組A中正數(shù)、負(fù)數(shù)和0的個(gè)數(shù)及其和。在紛雜的塵世里，為自己留下一片純靜的心靈空間，不管是潮起潮落，也不管是陰晴圓缺，你都可以免去浮躁，義無反顧，勇往直前，輕松自如地走好人生路上的每一步3. 花一些時(shí)間，總會(huì)看清一些事。努力過后，才知道許多事情，堅(jiān)持堅(jiān)持，就過來了。只有你自己才能把歲月描畫成一幅難以忘懷的人生畫卷。歲月是有情的，假如你奉獻(xiàn)給她的是一些色彩，它奉獻(xiàn)給你的也是一些色彩。有時(shí)候覺得自己像個(gè)神經(jīng)病。!子程序SUBROUTINE SORT(A,N,K)INTEGER A(N),K,P,TDO I=1,N1 P=I DO J=I+1, N IF(K==1)THEN IF(A(J)A(P))P=J ELSE
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1