作业辅导网

标题: 兰大19秋学期《Fortran语言》平时作业-离线 [打印本页]

作者: 李老师 时间: 2019-11-7 20:07
标题: 兰大19秋学期《Fortran语言》平时作业-离线
《Fortran语言》
任选一题作答即可
一、请编程序：将一个十进制整数X换成二进制数。转换后的二进制数位放在一一维数组中（二进制数的最低位在数组的第一个元素中）

参考代码：
INTEGER BS(16),X,R
READ(*,*) x
K=0
10 R=MOD(X,2)
K=K+1
BS(K)=R
X=X/2
IF (X.NE.0) GOTO 10
WRITE(*,*) BS
END

二、编程计算并输出1到10之间所有偶数的阶乘之和，请编写该程序，最后运行程序。

参考代码：

Program exam
s=0.0
   do 30 n=2,10,2
      p=1
      do 20 j=1,n
20       p=p*j
s=s+p
30    continue
write(*,*) s
end

欢迎光临作业辅导网 (http://aopeng100.com/)