FORTRAN90上机试题题库.docVIP

试卷1 下面程序的功能是用指针的方法将整型变量A，B的内容互换，请改错。 PROGRAM EX IMPLICIT NONE INTEGER::A,B,C !==ERROR1 integer，target::a,b,c INTEGER,POINTER::P1,P2,P3 READ *,A,B C=B P1=C !==ERROR2 p1=a P2=B P3=B !==ERROR3 p3=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,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