fortran答案

1、以循环来计算1+3+5+……+99的值
INTEGER S,I
S=0
DO I=1,99,2
S=S+I
END DO
WRITE(*,*) ‘S=’,S
END
(参考课本p140 例7-1)
2、编写一个子程序计算圆面积（形参为圆的半径、圆面积）
SUBROUTINE sub(s,r)
REAL r
S=3.14*r*r
END SUBROUTINE sub
3、编写程序调用上题所编写的子程序计算圆的面积并输出
READ*,B
CALL sub(A,B)
PRINT*,A
CONTAINS
SUBROUTINE sub(s,r)
REAL r
S=3.14*r*r
END SUBROUTINE sub
END
4、用选择排序法编制程序，将数组A中所有的数值（5,3,6,4,8,7,1,9,2,10）从大到小排列PROGRAM(N=10)
INTEGER::temp,p,i,j,A(N)
DA TE A/5,3,6,4,8,7,1,9,2,10/
PRINT*,‘排序前的数据：’
WRITE(*,100)(A(i),i=1,N)
DO i=1,N-1
p=i
DO j=i,N
IF(A(j)>A(p)) p=j
END DO
temp=A(p); A(p)= A(i); A(i)= temp
END DO
PRINT*,‘排序后的数据：’
WRITE(*,100)(A(i),i=1,N)
100 FORMA T(1X,(1X,<N>I4))
END
（参见课本p197）
5、、某高校实行学分制，学分制规定：成绩大于等于60分可获得3个学分和3个绩点，否则不能获得学分和绩点，同时成绩大于等于80分可增加2个绩点。

输入学生成绩，计算并
输出学生获得的学分(XF)和绩点(JD)。

编写程序实现之。

REAL XF,JD,CJ
PRINT*,‘输入学生成绩：’,CJ
READ*,CJ
IF(CJ<60)THEN
PRINT*,‘不能获得学分和绩点。

’
ELSE IF(CJ>=60.AND.CJ<80)THEN
XF=3
JD=3
ELSE IF(CJ>=80)THEN
XF=3
JD=5
END IF
PRINT*,’XF=,’XF
PRINT*,’JD=,’JD
END
6、以循环来计算 1/1!+1/2!+1/3!+1/4!+……+1/10! 的值。

INTEGER i,j,m,k
k=0
DO i=1,10
m=1
DO j=1,i
m=m*j
END DO
k=k+1/m
END DO
7、用选择排序法编制程序，将数组A中所有的数值（5,3,6,4,8,7,1,9,2,10）从小到大排列PROGRAM(N=10)
INTEGER::temp,p,i,j,A(N)
DA TE A/5,3,6,4,8,7,1,9,2,10/
PRINT*,‘排序前的数据：’
WRITE(*,100)(A(i),i=1,N)
DO i=1,N-1
p=i
DO j=i,N
IF(A(j)<A(p)) p=j
END DO
temp=A(p); A(p)= A(i); A(i)= temp
END DO
PRINT*,‘排序后的数据：’
WRITE(*,100)(A(i),i=1,N)
100 FORMA T(1X,(1X,<N>I4))
END
（参见课本p197）
8、编程进行成绩统计：输入2个同学2门课(数学、英语)成绩,统计每个同学总成绩和平均成
绩,计算每门课平均成绩,输出每个同学每门课成绩、总成绩和平均成绩,以及数学、物理、化学、英语的平均成绩。

要求按以下格式输入成绩数据：
数学英语
输入第1位同学四门课成绩：78.5 85.0
输入第2位同学四门课成绩：76.5 88.5
要求按以下格式输出有关数据：
数学英语总成绩平均成绩
第1位同学成绩: 78.5 85.0 163.5 81.8
第2位同学成绩: 76.5 88.5 165.0 82.5
数学平均成绩：77.0分。