FORTRAN90上机试题.docx

1、FORTRAN90上机试题试卷1下面程序的功能是用指针的方法将整型变量A，B的内容互换，请改错。PROGRAM EX IMPLICIT NONE INTEGER:A,B,C !C !a P2=B P3=B !c PRINT *,A,B P2=P1 P1=P3 PRINT *,A,BEND下面程序的功能是用折半法查找方法在给定的一维有序数组（升序）中查找给定的元素X，返回该元素在数组中的下标。如果数组中没有该元素，则返回NO FOUND，请填空。PROGRAM EX IMPLICIT NONE INTEGER, DIMENSION(6):A INTEGER:X,K,J,L,S READ *,X

2、A=(/2,4,6,9,15,24/) K=1 J=6 DO WHILE (K=J) L=(K+J)/2 IF (A(L)=X) THEN !X) THEN J=L-1 ELSE K= L+1 !=BLANK2 ENDIF ENDDO IF (K=J) THEN !=BLANK3 PRINT *, S ELSE PRINT *,NO FOUND END IFEND 编程，求500-700之间各位数字之和等于12的整数的个数及和。PROGRAM TEST IMPLICIT NONE INTEGER:N,S !N是存放个数的变量，S是存放和的变量!考生做题开始!* BEGIN *INTEGER:A

3、,B,C,I S=0;N=0 DO I=500,700A=I/100B=MOD(I/10,10)C=MOD(I,10) THEN N=N+1 S=S+IEND IFEND DOPRINT*,N,S!* END *CALL OUTPRINT(N,S) !N为符合条件的结果!考生做题结束,以下部分请勿修改 CONTAINS SUBROUTINE OUTPRINT(X,Y) CHARACTER (LEN =10): FILENAME INTEGER: X,Y FILENAME =RESULT.TXT OPEN(UNIT = 1 ,FILE = FILENAME ,ACCESS = SEQUENTIA

4、L , STATUS =REPLACE) WRITE(1,(1X,N=,I4,3X,S=,I6) X,Y ENDFILE(UNIT=1) CLOSE(UNIT=1) END SUBROUTINE OUTPRINTEND !程序结束试卷2下面程序的功能是从键盘输入任意10个整型数，使其按从小到大的鼠须排列并输出（冒泡法），请改错。PROGRAM EX IMPLICIT NONE INTEGER,DIMENSION(10):A INTEGER:I,J,TEMP READ*,A DO I=1,9 DO J=10,I !A(J+1) THEN TEMP=A(J) A(J+1)=A(J) !=ERROR

5、2 A(J)=A(J+1) A(J)=A(J+1) !=ERROR3 A(J+1)=TEMP END IF END DO END DO PRINT (1X,10I4),(A(I),I=1,10)END下面程序的功能是计算FIBONACCI数列（1，1，2，3，5，8，13，从第三项起，每一项都是其前两项之和）前50项之和。请填空。PROGRAM EX IMPLICIT NONE INTEGER:I !计数器 REAL:J,K,M !M是累加器 I=1 J=1;K=1 !第一项、第二项的值 M=0 DO WHILE (DO WHILE (I=25) !=BLANK1 M=M+J+(K) !=BL

6、ANK2 I=I+1 J=J+K K=K+(J) !10时，Y=1 当2X=10时,Y=X/2 当-1X=2时,Y=X-1当X=10) THEN !10 Y=1 ELSE IF(X2) THEN Y=X/2 ELSE IF(X=-1) THEN !-1 Y=X-1 ELSE Y=2X !0) K=MOD(I,10) IF(K= = N) THEN !=BLANK1 F=.TRUE. EXIT END IF I=(I/10) !=BLANK2 END DO IF (F) THEN !=BLANK3 PRINT *,YES ELSE PRINT *,NO END IFEND编写外部函数子程序MUL

7、，其功能是求正整数N所有因子之积。PROGRAM EX IMPLICIT NONE INTEGER:N,S,MUL !S为存放累乘结果变量 N=65 S=MUL(N) PRINT *,S=,S CALL OUTPRINT(S) !S为符合条件的结果 CONTAINS SUBROUTINE OUTPRINT(X) CHARACTER (LEN =10): FILENAME INTEGER : X FILENAME =RESULT.TXT OPEN(UNIT = 1 ,FILE = FILENAME ,ACCESS = SEQUENTIAL , STATUS =REPLACE) WRITE(1,(

8、1X,S=,10I4) X ENDFILE(UNIT=1) CLOSE(UNIT=1) END SUBROUTINE OUTPRINTEND PROGRAM EX !程序结束!考生做题开始。!* BEGIN *FUNCTION MUL(N)RESULT(RES) INTEGER:N,RES,I RES=1 DO I=1,N IF(MOD(N,I)= =0) RES=RES*IEND DO END FUNCTION!* END *!考生做题结束PROGRAM EX IMPLICIT NONE INTEGER:N,S,MUL !S为存放累乘结果变量 N=65 S=MUL(N) PRINT *,S=

9、,S CALL OUTPRINT(S) !S为符合条件的结果 CONTAINS SUBROUTINE OUTPRINT(X) CHARACTER (LEN =10): FILENAME INTEGER : X FILENAME =RESULT.TXT OPEN(UNIT = 1 ,FILE = FILENAME ,ACCESS = SEQUENTIAL , STATUS =REPLACE) WRITE(1,(1X,S=,10I4) X ENDFILE(UNIT=1) CLOSE(UNIT=1) END SUBROUTINE OUTPRINTEND PROGRAM EX !程序结束试卷4下面程序

10、的功能是通过字符型数组P输出如下图形，请改错。 * * * * * * *PROGRAM EX IMPLICIT NONE CHARACTER,DIMENSION(7,7):P INTEGER:I,J P= DO I=1,6 P(I,I)=* P(1,I)=* !=ERROR1 P(I,1)=* END DO DO J=1,7 P(J,7)=* !=ERROR2 P(7,J)=* END DO DO I=1,7 PRINT 10,(P(I,J);J=1,7) !=ERROR3 PRINT 10,(P(I,I),J=1,I) END DO 10 FORMAT(1X,10A)END下面程序的功能是

11、输出矩阵： 1 12 123 1234 12345PROGRAM EX IMPLICIT NONE INTEGER:I,J !I表示行下标，J表示列下标 INTEGER,DIMENSION(5,5):A DO I=1,5 DO J=1 ,I !=BLANK1 A(I,J)=J !=BLANK2 END DO END DO DO I=1,5 PRINT (1X,5I2),(A(I,J),J=1，I) !=BLANK3 END DOEND PROGRAM EX输入一个字符串STR，然后将它的逆序仍放入字符串STR中并输出。例如输入的是FORTRAN90，它的逆序是09NARTROF。PROGRAM

12、 EX IMPLICIT NONE CHARACTER(LEN=10):STR=ASDFGHJKLZ!考生做题开始!* BEGIN * INTEGER：ICHARACTER：CDO，（：）（：）（：）（：）PRINT*,STR的逆序为：，STR!* END *!考生做题结束,以下部分请勿修改CALL OUTPRINT(STR) !STR为符合条件的结果CONTAINS SUBROUTINE OUTPRINT(X) CHARACTER (LEN =10): FILENAME CHARACTER(LEN=10): X FILENAME =RESULT.TXT OPEN(UNIT = 1 ,FILE

13、 = FILENAME ,ACCESS = SEQUENTIAL , STATUS =REPLACE) WRITE(1,(1X,STR的逆序为：,A) X ENDFILE(UNIT=1) CLOSE(UNIT=1) END SUBROUTINE OUTPRINTEND !程序结束输出格式：STR的逆序为：09NARTROF试卷5下面程序的功能是判断输入字符串（长度不超过）是否是“回文”，（即顺读和倒读一样，如，等），请改错。PROGRAM EXIMPLICIT NONECHARACTER(LEN=20):STR,A*1INTEGER:I,NLOGICAL:FLAG READ *,STRN=LE

14、N_TRIM(STR)FLAG=.TRUE.DO I=1,N/2 A=STR(N+1-I:N+1-I) IF(STR(I:I)=A) THEN !=ERROR1 （：） ELSE FLAG=.FALSE. EXIT END IFEND IF !=ERROR2IF (FLAG=.FALSE.) THEN !=ERROR3IF(.NOT.FLAG) THEN PRINT *,该字符串不是回文,STRELSE PRINT *, 该字符串是回文,STREND IFEND PROGRAM EX下面程序的功能是求行列整型矩阵中的两条对角线上元素的最小值及其所在的位置。PROGRAM EX IMPLICIT

15、 NONE INTEGER,DIMENSION(4,4):A INTEGER:I,MINA,H,L READ *,A MINA=A(1,1) H=1;L=1 DO I=1,4 !=BLANK1 IF(A(I,I)MINA) THEN MINA=A(I,I) H=I;L=I END IF IF(A(I,5-I)MINA) THEN MINA=A(I,5-I) !=BLANK2 H=I L=5-I !=BLANK3 END IF END DO PRINT *,MINA,H,LEND将一维整型数组中的所有数据循环左移一位，即将第一个数据移至最右边，第二个数据移至第一个数据的位置，第三个数据移至第二个

16、数据的位置，依次类推。（要用循环结构）输出格式：PROGRAM EX IMPLICIT NONE INTEGER:I !I为循环变量 INTEGER,DIMENSION(10):A=(/23,32,30,40,45,25,50,37,28,39/)!考生做题开始。!* BEGIN * INTEGER:TEMP TEMP=A(I+1) DO I=1,9 A(I)=A(I+1)END DO A(10)=TEMP PRINT(1X,10I4),(A(I),I=1,10)!* END *!考生做题结束 CALL OUTPRINT(A) !A为符合条件的结果 CONTAINS SUBROUTINE OU

17、TPRINT(X) CHARACTER (LEN =10): FILENAME INTEGER ,DIMENSION(10): X FILENAME =RESULT.TXT OPEN(UNIT = 1 ,FILE = FILENAME ,ACCESS = SEQUENTIAL , STATUS =REPLACE) WRITE(1,(1X,10I4) X ENDFILE(UNIT=1) CLOSE(UNIT=1) END SUBROUTINE OUTPRINTEND PROGRAM EX !程序结束试卷6（改错）题目：有4个学生的记录，每个学生有学号、姓名、3门课成绩。下面程序的功能是输出这4位

18、学生的学号、姓名、3门课成绩和每位学生的总分，请改错。PROGRAM EX IMPLICIT NONE TYPE STUDENT INTEGER:XH CHARACTER(LEN=10):NAME REAL,DIMENSION(4):CJ END TYPE STUDENT DIMENSION(4):A !=ERROR1 TYPE(STUDENT),DIMENSION(4):A INTEGER:I,J REAL:S DO I=1,4 READ *,A(I)%XH,A(I)%NAME S=0 DO J=1,4 !=ERROR2 DO J=1,3 READ *,A(I)%CJ(J) S=S+A(I)

19、%CJ(J) END DO CJ =S !=1.AND.A(K)P) !=BLANK1 A(K+1)=A(K) K=K-1 !=BLANK2 END DO A(K+1)=P !0） THENM=M+1CALL F(N/10,M)END IF!* END *END SUBROUTINE F程序运行结果：M=4试卷7改错:下面程序的功能是判断大于1的自然数N是否是素数,若是输出YES,否则输出NOPROGRAM EX IMPLICIT NONE INTEGER:N,K,M READ *,N IF(N=1) THEN !1) THEN DO K=2,N/2 M=MOD(N,K) IF(M=0) EX

20、IT !=N/2) THEN !N/2) THEN PRINT *,YES ELSE PRINT *,NO ENDIF ELSE PRINT *,数据输入不正确！ END IFEND PROGRAM EX程序设计:该程序功能是求4行4列的外围元素之和PROGRAM EX IMPLICIT NONE REAL,DIMENSION(4,4):A REAL:S INTEGER:I READ*,A S=_0.0_ !=BLANK1 DO I=1,4 S=S+A(1,I)+A(I,1)+_A(4,i)+A(i,4)_ !=BLANK2 END DO S=S-A(1,1)-A(4,4)-_A(1,4)-A(4,1)_ !=BLANK3 PRINT*,SEND PROGRAM EX 对固有函数SIN进新行超载,使得参数为整数时,也能够使用SIN函数,返回的类型为实新,调用该函数,求SIN(2)的值.MODULE EXP_MODULE IMPLICIT NONE INTERFACE SIN MODULE PROCEDURE SIN_INT END INTERFACECONTAINS!考生做题开始!* BEGIN *FUNCTION SIN_INT(X) FE