FORTRAN90上机试题.docx

1、FORTRAN90上机试题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,B END 下面程序的功能是用折半法查找方法在给定的一维有序数组(升序)中查找给定的元素X，返回该元素在数组中的下标。如果数组中没有该元素，则返回NO FOUND，请填空。 PROGRAM EX IMPLICIT NONE INTEGER, DIMENSION(6):A INTEGER:X

2、,K,J,L,S READ *,X 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 IF END 编程，求500-700之间各位数字之和等于12的整数的个数及和。 PROGRAM TEST IMPLICIT NONE INTEGER:N,S !N是存放个数的变量，S是存放和的变量 !考生做题

3、开始 !* BEGIN * INTEGER:A,B,C,I S=0;N=0 DO I=500,700 A=I/100 B=MOD(I/10,10) C=MOD(I,10) THEN N=N+1 S=S+I END IF END DO PRINT*,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 ,FIL

4、E = FILENAME ,ACCESS = SEQUENTIAL , STATUS =REPLACE) WRITE(1,(1X,N=,I4,3X,S=,I6) X,Y ENDFILE(UNIT=1) CLOSE(UNIT=1) END SUBROUTINE OUTPRINT END !程序结束 试卷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

5、) THEN TEMP=A(J) A(J+1)=A(J) !=ERROR2 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 (

6、DO WHILE (I=25) !=BLANK1 M=M+J+(K) !=BLANK2 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 *,Y

7、ES ELSE PRINT *,NO END IF END 编写外部函数子程序MUL，其功能是求正整数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 ,ACCES

8、S = SEQUENTIAL , STATUS =REPLACE) WRITE(1,(1X,S=,10I4) X ENDFILE(UNIT=1) CLOSE(UNIT=1) END SUBROUTINE OUTPRINT END 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*I END DO END FUNCTION !* END * !考生做题结束 PROGRAM EX IMPLICIT NONE I

9、NTEGER: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,(1X,S=,10I4) X ENDFILE(UNIT=1) CLOSE(UNIT=1)

10、 END SUBROUTINE OUTPRINT END PROGRAM EX !程序结束 试卷4 下面程序的功能是通过字符型数组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) !=ERR

11、OR3 PRINT 10,(P(I,I),J=1,I) END DO 10 FORMAT(1X,10A) END 下面程序的功能是输出矩阵: 1 12 123 1234 12345 PROGRAM 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 DO END PROGRAM EX 输入

12、一个字符串STR，然后将它的逆序仍放入字符串STR中并输出。例如输入的是FORTRAN90，它的逆序是09NARTROF。 PROGRAM EX IMPLICIT NONE CHARACTER(LEN=10):STR=ASDFGHJKLZ !考生做题开始 !* BEGIN * INTEGER:I CHARACTER:C DO ，,，, ,(，:，) ,(，:，),(,，:,，) ,(,，:,，), , PRINT*,STR的逆序为:，STR !* END * !考生做题结束,以下部分请勿修改 CALL OUTPRINT(STR) !STR为符合条件的结果 CONTAINS SUBROUTINE

13、 OUTPRINT(X) CHARACTER (LEN =10): FILENAME CHARACTER(LEN=10): X FILENAME =RESULT.TXT OPEN(UNIT = 1 ,FILE = FILENAME ,ACCESS = SEQUENTIAL , STATUS =REPLACE) WRITE(1,(1X,STR的逆序为:,A) X ENDFILE(UNIT=1) CLOSE(UNIT=1) END SUBROUTINE OUTPRINT END !程序结束 输出格式:STR的逆序为:09NARTROF 试卷5 下面程序的功能是判断输入字符串,(长度不超过,)是否是

14、“回文”，(即顺读和倒读一样，如,，,等)，请改错。 PROGRAM EX IMPLICIT NONE CHARACTER(LEN=20):STR,A*1 INTEGER:I,N LOGICAL:FLAG READ *,STR N=LEN_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 IF END IF !=ERROR2 , , IF (FLAG=.FALSE.) THEN !=ERROR3 IF(.

15、NOT.FLAG) THEN PRINT *,该字符串不是回文,STR ELSE PRINT *, 该字符串是回文,STR END IF END PROGRAM EX 下面程序的功能是求,行,列整型矩阵中的两条对角线上元素的最小值及其所在的位置。 PROGRAM EX IMPLICIT 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)MI

16、NA) THEN MINA=A(I,5-I) !=BLANK2 H=I L=5-I !=BLANK3 END IF END DO PRINT *,MINA,H,L END 将一维整型数组,中的所有数据循环左移一位，即将第一个数据移至最右边，第二个数据移至第一个数据的位置，第三个数据移至第二个数据的位置，依次类推。(要用循环结构) 输出格式:, , , , , , , , , , PROGRAM EX IMPLICIT NONE INTEGER:I !I为循环变量 INTEGER,DIMENSION(10):A=(/23,32,30,40,45,25,50,37,28,39/) !考生做题开始。

17、 !* 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 OUTPRINT(X) CHARACTER (LEN =10): FILENAME INTEGER ,DIMENSION(10): X FILENAME =RESULT.TXT OPEN(UNIT = 1 ,FILE = FILENAME ,ACCESS =

18、SEQUENTIAL , STATUS =REPLACE) WRITE(1,(1X,10I4) X ENDFILE(UNIT=1) CLOSE(UNIT=1) END SUBROUTINE OUTPRINT END PROGRAM EX !程序结束 试卷6 (改错)题目:有4个学生的记录，每个学生有学号、姓名、3门课成绩。下面程序的功能是输出这4位学生的学号、姓名、3门课成绩和每位学生的总分，请改错。 PROGRAM EX IMPLICIT NONE TYPE STUDENT INTEGER:XH CHARACTER(LEN=10):NAME REAL,DIMENSION(4):CJ END

19、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)%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) THEN M=M+1 CALL F(N/10,M) END IF

20、!* END * END SUBROUTINE F 程序运行结果: M=4 试卷7 改错:下面程序的功能是判断大于1的自然数N是否是素数,若是输出YES,否则输出NO PROGRAM 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) EXIT !=N/2) THEN !N/2) THEN PRINT *,YES ELSE PRINT *,NO ENDIF ELSE PRINT *,数据输入不正确 END IF END PROGRAM EX 程序设计:该程序功能是

21、求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*,S END PROGRAM EX 对固有函数SIN进新行超载,使得参数为整数时,也能够使用SIN函数,返回的类型为实新,调用该函数,求SIN(2)的值. MODULE EXP_MODULE IMPLICIT NONE INTERFACE SIN MODULE PROCEDURE SIN_INT END INTERFACE CONTAINS !考生做题开始