for90 第7章2讲义教材.pptVIP

排序(选择法、冒泡法、插入排序、合并排序等) 查找（顺序、二分查找等） 矩阵运算（转置、对角线交换、靠边不靠边元素和、两个矩阵的运算等） 数字游戏（素数、因子、亲密对数、猴子选大王、翻硬币等） ……;题型：求所有元素之和 求行和（列和） 求对角线元素之和 注意： 1、对（副）角线元素累加：只能用元素法 S=S+A（I，I）（+A（I，N-I+1）） 2、求行和（列和）元素法初值位置 ;1、调用内在函数MAXVAL、MAXLOC 2、元素法算法： 引入BIG，赋初值（常用第一个元素或最小值） 剩下的所有元素与最大值比较：循环结构 题型：求所有元素的最大值及其位置 求行（列）中最大值及其位置 求对角线中最大值及其位置;INTEGER,Dimension(5,6):: A DO I=1,5 Read(*,*)(A(I,j),j=1,6) ENDDO Do I=1,5 Amax=A(i,1); N=1 Do j=2，6 If ((a(i,j)Amax)THEN Amax=A(i,j) N=j endif ENDDO write(*,*) Amax,N ENDDO END;三、筛选有序置数;B大小同A ;例7-22(P178) 对正整数n进行数字分离，即求出它每一 位数字。例，n的值是12345时，分离出1、2、3、4和 5。 ;PROGRAM LI7_22 IMPLICIT NONE INTEGER,DIMENSION(12)::M INTEGER::N,K,I,T READ*,N K=0 DO WHILE(N0) K=K+1 M(K)=MOD(N,10) N=N/10 ENDDO DO I=1,K/2 T=M(I);M(I)=M(K-I+1);M(K-I+1)=T ENDDO PRINT (1X,12I2),M(1:K) END PROGRAM LI7_22;1、用数组片段: 引入一维数组C C=A(K,:);A(K,:)=A(1,:);A(1,:)=C 2、用元素循环：引入简单变量T， 交换A（1，J）与A（K，J） ;在A（1）到A（N）中选最小值，放到A(1)中，如何选？A(1)依次与其后的每个数比较，次序不对则立即交换； 在A（2）到A（N）中选最小值，放到A(2)中； …… 在A（N-1）到A（N）中选最小值，放到A(N-1)。;A(1) A(2) A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10) ;PROGRAM INORDER_SORT IMPLICIT NONE INTEGER,DIMENSION(10)::A INTEGER::I,J,T READ*,A DO I=1,9 DO J=I+1,10 IF(A(I)A(J)) THEN T=A(I);A(I)=A(J);A(J)=T ENDIF ENDDO ENDDO WRITE(*,(1X,10I5))A END PROGRAM INORDER_SORT;在A(1)到A(N)中求最小值的位置K，交换A(1)与A(K). 在A(2)到A(N)中求最小值的位置K，交换A(2)与A(K). …… 在A(N-1)到A(N)中求最小值的位置K，交换A(N-1)与A(K).;DO I=1,9 K=I DO J=I+1,10 IF(A(K)A(J)) K=J ENDDO IF(K/=I) THEN T=A(I);A(I)=A(K);A(K)=T ENDIF ENDDO; 基本思想： 若对N个数据按递增排序： 第一遍石沉大海：从A（1）---A（N）两两比较 如A（1）A（2），交换两数，否则不变 ； 如A（2） A（3） ，交换两数，否则不变； …… 如A（N-1） A（N），交换两数，否则不变。 重复N-1次排完,或某一轮未发生交换排完。;DO I=1,9 DO J=1,10-I IF(A(J)A(J+1)) THEN T=A(J)