fortran課后習(xí)題答案-閱讀頁(yè)
2025-07-08 16:27本頁(yè)面
【正文】 4. 求數(shù)組中的最大和最小元素，并將最大和最小元素分別與數(shù)組的第一和第二元素互換。REAL A(3,4),AMAX,AMININTEGER I,JDO I=1,3 READ(*,*)(A(I,J),J=1,4)ENDDOAMAX=A(1,1)AMIN=A(1,1)DO I=1,3 DO J=1,4IF(A(I,J)AMAX)AMAX=A(I,J)IF(A(I,J)AMIN)AMIN=A(I,J) ENDDOENDDOWRITE(*,*)最大值:,AMAXWRITE(*,*)最小值:,AMINEND9. 輸入55矩陣a，完成下列要求： (1) 輸出矩陣a。 (3) 用對(duì)角線上的各元素分別去除各元素所在行，輸出新的矩陣a。 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1PARAMETER(N=10)INTEGER A(N,N),I,JDO I=1,N A(I,1)=1 A(I,I)=1ENDDODO I=3,N DO J=2,I1 A(I,J)=A(I1,J)+A(I1,J1) ENDDOENDDODO I=1,N WRITE(*,10)(A(I,J),J=1,I)ENDDO10 FORMAT(1X,10I5)END第八章 子程序 第173頁(yè) 113：（1）F(X，Y)=X+Y+2+AB 正確 （2）SUM(X(2),Y,Z)=3*Y+(X(2)+Z)*Z 錯(cuò)誤（3）F(X,Y,X)=X**2Y+X+CSIN(A) 錯(cuò)誤（4）X2(Z,Y(I)=EXP(Z+1)A*Y(I) 錯(cuò)誤（5）LAN(A,B,C)=A*X+(BC)**2X*Y 正確6．設(shè)計(jì)一個(gè)計(jì)算n! 的函數(shù)子程序，并調(diào)用該子程序計(jì)算數(shù)e的近似值。計(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)參看例 )。！子程序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保持原序。2. 若不是心寬似海，哪有人生風(fēng)平浪靜。用一些事情，總會(huì)看清一些人。既糾結(jié)了自己，又打擾了別人。4. 歲月是無(wú)情的，假如你丟給它的是一片空白，它還給你的也是一片空白。你必須努力，當(dāng)有一天驀然回首時(shí)，你的回憶里才會(huì)多一些色彩斑斕，少一些蒼白無(wú)力。
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1