計算機應(yīng)用基礎(chǔ)7月8日上午習(xí)題

1、FORTRAN 練習(xí)題1 當(dāng)執(zhí)行下列語句時在終端上鍵入 123456.789，問該語句執(zhí)行后X，Y，Z 的值是什么？READ (*，100)X，Y，Z100FORMAT(3F4.2)2 分別寫出由下列三個循環(huán)語句所確定的循環(huán)次數(shù)100100100DO DODO101010I=3，6，3 K=6，3，3X=-0.5，-4.5，-0.5已知 I=5,J=2,A=5.0,B=2.0,問執(zhí)行下列程序段后，M,N,X,Y,的值分別是什么？ M=I/JN=A/B X=I/J Y=A/B寫出下列語句段輸出的內(nèi)容A=-1.2 B=7.36WRITE(*,100)A,B,A+B100FORMAT (1X,2F7

2、.1/1X,A+B=,F7.1)5 已知 X=5.7，Y=-123.0,Z=12.796,試寫出下列語句的輸出結(jié)果。 WRITE (*,100) X,Y,Z100FORMAT (1X,2F6.2)6 下列主程序是否正確？不正確則READ（*,*）N其錯誤DIMENA(N)READ(*,*) (A(I),I=1,N) S=0.0DO 10 I=1,N S=S+A(I) WRITE(*,*)SEND107 閱讀程序，回答問題DIMEN DATA DO 10DO 10M(3,3) M/1,2,3,4,5,6,7,8,9/ I=1,2J=I+1,34050K=M(I,J) M(I,J)=M(J,I)

3、M(J,I)=KWRITE(*,100)(M(I,J),J=1,3),I=1,3) FORMAT(1X,3I2)END10100問題 1：經(jīng)DATA 語句賦值后，數(shù)組 M 的第一行元素的值是（）問題 2：程序執(zhí)行后輸出的第一行結(jié)果是（）問題 3：若將標(biāo)號為 40，50 的語句改為4050DO 10I=1,3DO 10J=1,3程序執(zhí)行后輸出的第一行結(jié)果是（8 閱讀程序，回答問題READ (*,*) M,NIF (M .LT. N) THEN K=MM=N N=K ENDIFL=MOD(M,N)）10IF (L .NE. 0) THEN M=NN=L L=MOD(M,N) GOTO 10ENDI

4、F WRITE(*,*) NEND問題 1：程序執(zhí)行時，若 M,N 的輸入值為 9，15，則輸出的 N 值為（）。問題 2：該程序?qū)崿F(xiàn)的功能是（9 閱讀程序，回答問題SUBROUTINEP(A,N)）DIMENA(N)LOGICALFLAG FLAG=.TRUE.I=1IF (I .LE. N-1 .AND. FLAG) THEN FLAG=.FALSE.DO 10 J=N,I+1,-1IF(A(J) .LT. A(J-1) THEN B=A(J)A(J)=A(J-1) A(J-1)=B FLAG=.TRUE.ENDIF CONTINUE I=I+1GOTO 20 ENDIF RETURNEN

5、D2010問題 1：若調(diào)用該子程序時，N=5,A=(7,3,6,4,1),則在子程序首次執(zhí)行到 GOTO 20 語句前，數(shù)組 A 的內(nèi)容是（）問題 2：子程序中的 I 循環(huán)最少執(zhí)行（）次，最多執(zhí)行（）次。10閱讀程序，回答問題PARAMETER(M=16) EGERA(M)DO10I=1,M A(I)=0WRITE (*,*) ENTERNANDK: READ (*,*)N,KIF (N .LT. 0 .OR. K .LE. 1 .OR. K .GT. 9) I=M+1IF (N .NE. 0) THEN I=I-1 A(I)=MOD(N,K) N=N/KGOTO 20 ENDIFWRITE

6、(*,100) (A(J),J=I,M) FORMAT (1X,16I1)END1030GOTO 3020100問題 1：輸入 N=255,K=2,則輸出的結(jié)果是（）問題 2：該程序完成的功能是（）1110閱讀程序，回答問題 WRITE(*,*) ENTER M,N READ(*,*)M,NIF (M .LE. 0 .OR. N .LE. 0) GOTO 10 IF (M .GE. N) THENM1=M N1=NELSEM1=N N1=MENDIFIF (MOD (M1,N1) .NE. 0) THEN K=MOD(M1,N1)M1=N1 N1=K GOTO 20 ENDIF K=M*N/N

7、1WRITE(*,*)M,N,K,N1END20問題：若 M,N 的輸入值為 12，15，則輸出的K,N1 的值分別是（）12閱讀程序，回答問題EGERA,B,S WRITE (*,*) ENTER N: READ (*,*)NIF (N .LT.2) GOTO10 A=0B=1 S=A+B K=1IF (K .LT. N/2) THEN A=A+BB=A+B S=S+A+B K=K+1 GOTO 20ENDIFIF (MOD(N,2).NE.0) S=S+A+B WRITE(*,*)SENDIF1020問題：當(dāng)輸入的 N 為 6 時，程序的輸出結(jié)果是（）13下面程序執(zhí)行后，Z1 的值是（REALN1,N2 EXTERNALN1,N2 X1=3.0 Z1=T(X1,N2) Z2=T(X1,N2) WRITE(*,11) Z1 WRITE(*,11) Z2 FORMAT