《【奥鹏】兰州大学《Fortran语言》21春平时作业-离线》由会员分享,可在线阅读,更多相关《【奥鹏】兰州大学《Fortran语言》21春平时作业-离线(2页珍藏版)》请在金锄头文库上搜索。
【奥鹏】兰州大学Fortran语言任选一题作答即可一、请编程序:将一个十进制整数X换成二进制数。转换后的二进制数位放在一一维数组中(二进制数的最低位在数组的第一个元素中)参考代码:INTEGER BS(16),X,RREAD(*,*) xK=010 R=MOD(X,2)K=K+1BS(K)=RX=X/2IF (X.NE.0) GOTO 10WRITE(*,*) BSEND二、编程计算并输出1到10之间所有偶数的阶乘之和,请编写该程序,最后运行程序。参考代码:Program exams=0.0 do 30 n=2,10,2 p=1 do 20 j=1,n20 p=p*js=s+p30 continue write(*,*) sEnd答案:s=0.0do n=2,10,2 p=1 do j=1,n p=p*j end dos=s+pend dowrite(*,*)sEnd运行结果: