- 82
- 0
- 约7.88千字
- 约 30页
- 2015-12-19 发布于浙江
- 举报
FORTRAN上机作业
第一次上机作业:
1-1、编写程序计算3+5
(一)完整程序
integer a,b,s
read*,a,b
s=a+b
print*,s=,s
end
(二)输入数据
3 5
(三)输出结果
s= 8
1-2、编写1+x+((x^2)/2!)+((x^3)/3!). x=5.0,输出实型与整型
(一)完整程序
real x
f=1.0
y=1.0
read*,x
do i=1,3
f=f*x/i
y=y+f
enddo
print*,y=,y
end
(二) 输入数据
5.0
(三) 输出结果、
y=39.33334
如果输出是整型:输出结果 y=38
1-3. 若c=0, 100, -40 . 求F=(9*c)/5+32
(一)完整程序
integer c,F
read*,c
F=(9*c)/5+32
print*,F=,F
end
(二)输入数据
0(100或者-40)
(三)输出结果
F= 32(212或者-40)
第二次上机作业
2-1.编写程序,能够对于输入的五个数进行判断,输出绝对值最大值和最小的数。
(一)完整程序
integer x1,x2,x3,x4,x5,m,n
m=x1
n=x1
read*,x1,x2,x3,x4,x5
if(abs(x
您可能关注的文档
最近下载
- 《年产10亿刺五加片生产工艺和车间初步设计》-毕业论文.doc VIP
- 2026中国半导体ALD设备行业未来趋势与需求前景预测报告.docx
- 计算机软件源代码授权合同.docx
- 电阻电感RL积分_微分实验电路及仿真_吕伟锋.pdf VIP
- 第一单元第1节+从互联到物联 课件+2025-2026学年川教版(2024)初中信息科技八年级上册.pptx VIP
- 举报信范文范文.docx VIP
- 素养导向的单元重构:初中数学二次根式复习课的教学设计与实施.docx VIP
- 高速公路桥梁常见病害成因及预防措施.doc VIP
- 公路收费及监控员考试培训试卷(2025).docx VIP
- 阳关三叠F调正谱伴奏原调伴奏谱.pdf VIP
原创力文档

文档评论(0)