fortrn习题3答案.docVIP

工程分析程序设计 上机作业（四） 数组 上机目的：练习数组的声明、存储、操作，以及数组参数、动态数组的使用。 请声明一个大小为10的一维数组，它们的初值为A(1)=2, A(2)=4, A(3)=6, ……A(I)=2*I,并计算数组中这10个数字的平均值。 program main implicit none integer A(10) integer i,sum sum=0 do i=1,10 A(i)=2*i sum=sum+A(i) end do print*,The average of the ten numbers is:,sum/10. end 编写一个程序来计算费氏数列的前10项，并把它们按顺序保存在一个一维数组当中。费氏数列(Fibonacci Sequence)的数列规则如下： F(0)=0 F(1)=1 当n1时 F(n)=f(n-1)+f(n-2) program main implicit none integer i integer(2) A(11) A(1)=0; A(2)=1 do i=3,11 A(i)=A(i-1)+A(i-2) end do print*,A(2:11) End 输入任意n个数存放在数组中（如5个数1、2、8、2、10），请在屏幕上打印如下方阵 1 2 8 2 10 10 1 2 8 2 2 10 1 2 8 8 2 10 1 2 2 8 2 10 1 program main implicit none integer ,allocatable ::A(:) integer(2) i,j,n,temp print*,请输入数字的个数： read*,n allocate(A(n)) print*,请输入数字： read*,A(1:n) print*,A do i=2,n temp=A(1) do j=1,n-1 A(j)=A(j+1) end do A(n)=temp print*,A end do deallocate(A) end 打印杨辉三角形，打印的行数由键盘输入。 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 program main implicit none integer(2),allocatable::A(:,:) integer i,j,n print*,请输入要打印的行数： read*,n allocate(A(n,n)) do i=1,n A(i,1)=1;A(i,i)=1 end do if(n=2) then do i=1,n-1 do j=1,i A(i+1,j+1)=A(i,j)+A(i,j+1) end do end do end if do i=1,n print*,A(i,1:i) end do deallocate(A) end 用“冒泡算法”对一个数列A(n)进行排序： 若要排序的数有n个，则需要n-1轮排序。第j轮排序中，从第一个数开始，相邻两数比较，若符合所要求的顺序，则交换两者的位置；直到第n-j个数为止，第一个数与第二个数比较，第二个数与第三个数比较，......，第n-j-1个与第n-j个比较，共比较n-1次。此时第n-j个位置上的数已经按要求排好，所以参加以后的比较和交换操作。例如：第一轮排序：第一个数与第二个数进行比较，若符合要求的顺序，则交换两者的位置，否则继续进行二个数与第三个数比较......。直到完成第n-1个数与第n个数的比较。此时第n个位置上的数已经按要求排好，它参与以后的比较和交换操作；第二轮排序：第一个数与第二个数进行比较，......直到完成第n-2个数与第n-1个数的比较；......第n-1轮排序：第一个数与第二个数进行比较，若符合所要求的顺序，则结束冒泡法排序；若符合要求的顺序，则交换两者的位置，然后结束冒泡法排序。 共n-1轮排序处理，第j轮进行n-j次比较。 算法描述： 如果共有n个数： 第1个数要进行n-1次两两比较 第2个数要进行n-2次两两比较 第j个数要进行n-j次两两比较，j=1, n-j n个数总共要进行n-1次排序 DO I = 1, N-1 DO J = 1, N-J 如果A(J) A(J+1) 交换A(J) 和 A(J+1) END DO E