fortran程序的設(shè)計(jì)復(fù)習(xí)試題與答案-資料下載頁
2025-06-23 22:58本頁面
【正文】 t none a= b= call sub()end programsubroutine sub() use global implicit none write(*,*) a,b returnend subroutine程序運(yùn)行的結(jié)果是: 1閱讀下列FORTRAN程序: INTEGER A(3,3) DO K=1,3 DO L=1,3 A(K,L)=K*10+L END DO END DOWRITE(*,39。(1X,3I3)39。) A END 程序運(yùn)行的結(jié)果是: 11 21 31 12 22 32 13 23 33 閱讀下列FORTRAN程序: INTEGER F F(X,Y)=X+Y A= B= B=+F(A,B) WRITE(*,20) B 20 FORMAT(1X,) END 程序運(yùn)行的結(jié)果是: 2閱讀下列FORTRAN程序: X=0 DO L=10, 5, 15 X=X+ END DOEND 程序運(yùn)行時(shí)執(zhí)行循環(huán)體的次數(shù)是: 0 2閱讀下列FORTRAN77程序: DIMENSION M(4,4) DATA M/1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6/ DO I=1,4 WRITE (*,100)(M(I,J),J=1,I) END DO100 FORMAT(1X,4I2) END 程序運(yùn)行的結(jié)果是: 1 2 6 3 7 1 4 8 2 6 2閱讀下列FORTRAN程序: CHARACTER(LEN=10) A CHARACTER(LEN=6) B DO I=1,10 A(I:I)=39。 39。 END DO A(1:5)=39。ABCDE39。 B=39。FGHIJK39。 A(4:9)=B WRITE(*,100) A 100 FORMAT(1X,A) END 程序運(yùn)行結(jié)果是： ABCFGHIJK 2 閱讀下列FORTRAN程序： X= Y= CALL SUB(X,Y,Z,) WRITE(*,39。(1X,)39。)X,Y,Z END SUBROUTINE SUB(A,B,X,Z) A=A+1 B=B+ Y= X=X+Y END 程序運(yùn)行結(jié)果是: 2 閱讀下列FORTRAN程序: INTEGER N(20) DO M=1,20 N(M)=0 END DOK=5 DO M=1,K DO J=1,K N(J)=N(M)+1 END DOEND DOWRITE(*,*)N(K) END 程序運(yùn)行的結(jié)果是: 9 2 閱讀下列FORTRAN程序: COMMON /COM/M(5),N(4) CALL FIB WRITE(*,39。(1X,4I3)39。) N END SUBROUTINE FIB COMMON /COM/J(5),K(4) DO I=1,4 K(I)=J(I+1)J(I) END DO END BLOCK DATA COMMON /COM/K(5),L(4) DATA K/8,7,10,4,13/ END 程序運(yùn)行的結(jié)果是: 1 3 6 9 2閱讀下列FORTRAN程序： N=0 DO K=30，0，2 DO L=10，10，1 N=N+1 END DOEND DOWRITE(*，*) N END 程序運(yùn)行結(jié)果是：： 336 2閱讀下列FORTRAN程序： READ(*,*) N X= IF () X=2*X IF () X=2*X+ IF () X=3* WRITE(*,*) X END 運(yùn)行上述程序時(shí)，如果從鍵盤輸入 15回車 則最后輸出的Ｘ值為 : 2閱讀下列FORTRAN程序： DIMENSION M(3,4) DATA M/4*2,4*1,4*1/ N=0 DO K=1 ,4 N=N+M(1,K) END DOWRITE(*,*) N END 運(yùn)行上述程序后，輸出的N的值為 4 閱讀下列FORTRAN77程序：READ(*，*) YIF () THENZ=0 .0ELSE IF ((Y ).AND.(Y /= )) THENZ=1/(Y+2)ELSE IF (Y = ) THENZ=1/YELSEZ=END IF WRITE (*，*)ZEND在執(zhí)行上述程序時(shí)，由鍵盤輸入最后輸出的Z值為 （，不同的編譯器，輸出的“0” 的個(gè)數(shù)可能會(huì)不同） 三、編程題教科書中：第四章—第九章的習(xí)題。寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來越容易。不奮斗就是每天都很容易，可一年一年越來越難。能干的人，不在情緒上計(jì)較，只在做事上認(rèn)真；無能的人！不在做事上認(rèn)真，只在情緒上計(jì)較。拼一個(gè)春夏秋冬！贏一個(gè)無悔人生！早安！—————獻(xiàn)給所有努力的人. 學(xué)習(xí)好幫手
職業(yè)教育相關(guān)推薦
鄂ICP備17016276號-1