fortran課后習(xí)題答案-資料下載頁(yè)
2025-06-23 16:27本頁(yè)面
【正文】 錯(cuò)誤（5）LAN(A,B,C)=A*X+(BC)**2X*Y 正確6．設(shè)計(jì)一個(gè)計(jì)算n! 的函數(shù)子程序，并調(diào)用該子程序計(jì)算數(shù)e的近似值。當(dāng) n!1E8時(shí)停止計(jì)算。計(jì)算公式是：FUNCTION JC(N)JC=1DO I=1,N JC=JC*IENDDOENDPROGRAM EX6REAL*8 E,TE=0T=I=0DO WHILE (T1E8) E=E+T I=I+1 T=(I)END DOPRINT*,EEND8．對(duì)任意自然數(shù)n，設(shè)計(jì)一個(gè)求n的各數(shù)位立方和的函數(shù)子程序F(n)(如F(121)=1**3+2**3+1**2=1+8+1=10)，并調(diào)用F(n)求1000以內(nèi)的所有水仙花數(shù)(水仙花數(shù)的概念請(qǐng)參看例 )。!子程序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ù)及其和。！子程序SUBROUTINE TJ(A,M,P,N,Z,S)INTEGER A(M),M,P,N,Z,S,IP=0N=0Z=0S=0DO I=1,M IF(A(I)0)THEN P=P+1 ELSEIF(A(I)0)THEN N=N+1 ELSE Z=Z+1 ENDIF S=S+A(I)ENDDOEND!主程序INTEGER X(10),P,N,S,Z,IDO I=1,10 READ(*,*)X(I)ENDDOCALL TJ(X,10,P,N,Z,S)WRITE(*,*)正數(shù)個(gè)數(shù),PWRITE(*,*)負(fù)數(shù)個(gè)數(shù),NWRITE(*,*)零數(shù)個(gè)數(shù),ZWRITE(*,*)所有數(shù)的和,SEND(A，N，K)，其中A是一個(gè)一維數(shù)組，N是A的元素個(gè)數(shù)，SORT的功能是： 當(dāng)K=1時(shí)，將數(shù)組A按升序排列；當(dāng)K=0時(shí)，將數(shù)組A按降序排列；當(dāng)K為其它數(shù)值時(shí)，數(shù)組A保持原序。!子程序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 IF(A(J)A(P))P=J ENDIF ENDDO T=A(I) A(I)=A(P) A(P)=TEND DOEND!主程序PARAMETER(N=10)INTEGER X(10),IREAD(*,*)XWRITE(*,10)(X(I),I=1,N)CALL SORT(X,N,1) !將數(shù)組A按升序排列 WRITE(*,10)(X(I),I=1,N)CALL SORT(X,N,0) !將數(shù)組A按降序排列WRITE(*,10)(X(I),I=1,N)10 FORMAT(1X,10I5)END1. 若不給自己設(shè)限，則人生中就沒有限制你發(fā)揮的藩籬。2. 若不是心寬似海，哪有人生風(fēng)平浪靜。在紛雜的塵世里，為自己留下一片純靜的心靈空間，不管是潮起潮落，也不管是陰晴圓缺，你都可以免去浮躁，義無(wú)反顧，勇往直前，輕松自如地走好人生路上的每一步3. 花一些時(shí)間，總會(huì)看清一些事。用一些事情，總會(huì)看清一些人。有時(shí)候覺得自己像個(gè)神經(jīng)病。既糾結(jié)了自己，又打擾了別人。努力過(guò)后，才知道許多事情，堅(jiān)持堅(jiān)持，就過(guò)來(lái)了。4. 歲月是無(wú)情的，假如你丟給它的是一片空白，它還給你的也是一片空白。歲月是有情的，假如你奉獻(xiàn)給她的是一些色彩，它奉獻(xiàn)給你的也是一些色彩。你必須努力，當(dāng)有一天驀然回首時(shí)，你的回憶里才會(huì)多一些色彩斑斕，少一些蒼白無(wú)力。只有你自己才能把歲月描畫成一幅難以忘懷的人生畫卷。
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1