fortran 复习内容.pptVIP

计算n行n列组成的二维数组的两个对角线上各元素之和 integer,dimension(:,:),allocatable::g integer n,i,j,a,b print *,请输入每行列的个数 read *,n allocate(g(n,n)) print *,请输入数据 read *,g a=0 do i=1,n a=a+g(i,i) enddo b=0 do j=1,n b=b+g(j,n+1-j) enddo print *,a,b end 找出n行n列组成的二维数组中最大元素和最小元素所在的位置 integer,allocatable::a(:,:) integer i,j,n,ma(3),mi(3) print *,请输入n的值 read *,n if(n=0) then print *,n的值必须大于0，请重新输入n的值 read *,n endif allocate(a(n,n)) print *,请输入该n行n列数组所有元素的值 read *,a ma=a(1,1) mi=a(1,1) do i=1,n do j=1,n if(ma(3)a(i,j)) then ma(1)=i ma(2)=j ma(3)=a(i,j) endif if(mi(3)a(i,j)) then mi(1)=i mi(2)=j mi(3)=a(i,j) endif enddo enddo print*,“该数组中的最大元素为”,ma(3),“所在 行数和列数分别为,ma(1),ma(2) print*,“该数组中的最小元素为”,mi(3),“所在 行数和列数分别为,mi(1),mi(2) end 求m行n列组成的二维数组中每行元素之和，将和最大的行与第一行对调，输出对调前后的二维数组。 integer,allocatable::a(:,:) integer,allocatable::s(:) integer i,j,t,m,n print *,请分别输入该数组的行数m和列数n read *,m,n if(n=0.or.m=0) then print *,m和n的值必须都大于0，请重新输入n的值 read *,n endif allocate(a(m,n)) allocate(s(m)) print *,请输入该m行n列数组所有元素的值（提示：共,m,行，每行有,n,个数字） do i=1,m read *,(a(i,j),j=1,n) enddo s=0 do i=1,m do j=1,n s(i)=s(i)+a(i,j) enddo enddo p=1 do i=1,m if(s(i)s(p)) p=i enddo do j=1,n t=a(1,j) a(1,j)=a(p,j) a(p,j)=t enddo print *,将和最大的行和第一行对调后的结果为： do i=1,m print *,(a(i,j),j=1,n) enddo end 4、打印杨辉三角形。 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 integer,allocatable::a(:,:) integer i,j,n print *,请输入杨辉三角形的行数 read *,n allocate(a(n,n)) do i=1,n do j=1,i if((i==j).OR.(J==1) )THEN a(i,j)=1 else a(i,j)=a(i-1,j)+a(i-1,j-1) endif enddo enddo print *,输出杨辉三角形 do i=1,n print 10,(a(i,j),j=1,i) enddo 10 format(ii4) end Dimension M(3,3) Data m/1,2,3,4,5,6,7,8,9/ S=0.0 Do k=1,3 s=s+m(k,k) Enddo S=s/3 Print *,s End 第7章 子程序 语句函数 函数子程序 子例行程序 参数传递（传值和传址；公用区） 递归函数 应用：根据问题设计一个函数子程序，或子例行程序。 1、用函数子程序的方法设计一个判断某个数是否是素数的程序，统计100~1000内的素数的个数。 2、编写一个判断闰年的过程。调用该过程输出2011~2050之间所有的闰年。 3、设计一个子例行程序SORT(A，