fortran課后習題答案-資料下載頁
2025-06-23 16:27本頁面
【正文】 錯誤（5）LAN(A,B,C)=A*X+(BC)**2X*Y 正確6．設計一個計算n! 的函數(shù)子程序，并調用該子程序計算數(shù)e的近似值。當 n!1E8時停止計算。計算公式是：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．對任意自然數(shù)n，設計一個求n的各數(shù)位立方和的函數(shù)子程序F(n)(如F(121)=1**3+2**3+1**2=1+8+1=10)，并調用F(n)求1000以內的所有水仙花數(shù)(水仙花數(shù)的概念請參看例 )。!子程序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ù)組A中正數(shù)、負數(shù)和0的個數(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ù)個數(shù),PWRITE(*,*)負數(shù)個數(shù),NWRITE(*,*)零數(shù)個數(shù),ZWRITE(*,*)所有數(shù)的和,SEND(A，N，K)，其中A是一個一維數(shù)組，N是A的元素個數(shù)，SORT的功能是： 當K=1時，將數(shù)組A按升序排列；當K=0時，將數(shù)組A按降序排列；當K為其它數(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. 若不給自己設限，則人生中就沒有限制你發(fā)揮的藩籬。2. 若不是心寬似海，哪有人生風平浪靜。在紛雜的塵世里，為自己留下一片純靜的心靈空間，不管是潮起潮落，也不管是陰晴圓缺，你都可以免去浮躁，義無反顧，勇往直前，輕松自如地走好人生路上的每一步3. 花一些時間，總會看清一些事。用一些事情，總會看清一些人。有時候覺得自己像個神經(jīng)病。既糾結了自己，又打擾了別人。努力過后，才知道許多事情，堅持堅持，就過來了。4. 歲月是無情的，假如你丟給它的是一片空白，它還給你的也是一片空白。歲月是有情的，假如你奉獻給她的是一些色彩，它奉獻給你的也是一些色彩。你必須努力，當有一天驀然回首時，你的回憶里才會多一些色彩斑斕，少一些蒼白無力。只有你自己才能把歲月描畫成一幅難以忘懷的人生畫卷。
電大資料相關推薦
鄂ICP備17016276號-1