内容发布更新时间 : 2024/5/3 7:22:56星期一 下面是文章的全部内容请认真阅读。
WRITE(*,'(1X,
12. 下列程序执行后，输出的是___ ___。 PROGRAM MAIN
INTEGER(2),DIMENSION(:),ALLOCATABLE::A INTEGER(2)::Y ALLOCATE(A(0:15))
A=(/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/) Y=FUN(A(1),3) WRITE(*,*) Y CONTAINS
FUNCTION FUN(B,N) RESULT(L) INTEGER(2)::N,L,I,J,M INTEGER(2)::B(N,N) L=0
DO I=1,N
M=1
IF (MOD(I,2).EQ.0) M=2 DO J=M,3,2
L=L+B(I,J)
ENDDO
ENDDO END FUNCTION END
13.下列程序执行后输出的结果是____ PROGRAM Moving
INTEGER, DIMENSION(4,4)::array INTEGER::i,j,tmp,n=4
array =RESHAPE((/1,2,4,7,0,3,5,8,0,0,6,9,0,0,0,10/),(/4,4/)) Do i=1,n Do j=1,n/2 tmp=array(i,j)
array(i,j)=array(i,n-j+1) array(i,n-j+1)=tmp ENDdo ENDDO
write(*,'(1X,4I3)') ((array(i,j),j=1,4),i=1,4) END PROGRAM Moving
14. “角谷猜想”是指，若一个自然数是偶数，则除以2；若是奇数，则乘3并加1，将得到的结果重复按照该规则运算，最终必得到1。完善下列程序。
INTEGER N READ*,N
PRINT*,N DO WHILE (N/=1)
IF (_________________-) THEN N=N/2 ELSE
________________ ENDIF PRINT*,N ________________ END
15. 程序运行时从键盘输入123456789012345678，则下列程序的执行结果是（ ）。
DIMENSION M(3,2)
READ(*,100) ((K,L,M(I,J),J=1,2),I=1,3) WRITE(*,200) ((M(I,J),I=1,3),J=1,2) 100 FORMAT(20I1) 200 FORMAT(1X,2I2) END
三． 编程题
1. 输入若干学生的成绩，分别统计小于85分、大于等于85分学生的人数，直到输入一个负数，程序结束。
2. 计算1!＋2!＋3!＋…＋M!的值 3. 计算100以内奇数之和
4. 从键盘输入10个整数存入数组，将数组最大值与第一个元素互换，最小值与最后一个元素互换，其余元素顺序不变，输出调整后的结果。 5. 输入一个4×4整型数据矩阵，要求： （1）求其转置矩阵并显示出来；
（2）对于转置矩阵，将第4行与第1行元素对调，输出新矩阵；
（3）对于第（2）步获得的新矩阵，用对角线上的各元素分别去除各元素所在行，输出生成的新矩阵。 6. 编程求100～999之间的所有水仙花数。 7. 采用筛选法求出100以内的所有素数。
n个a??a?aa?aaa?aaaa?...?a...a
8. 求sn其中，a是一个一位整型数，例如2+22+222+2222+22222+222222，此时a=2，n=6。通过键盘输入a和n（n<10）的值，编程计算sn