Fortran95习题答案
Fortran95程序设计习题答案,第四章到第十一章
第四章
1.program main
implicit none
write(*,*) "Have a good time."
write(*,*) "That's not bad."
write(*,*) '"Mary" isn''t my name.'
end program
2.program main
real, parameter :: PI=3
implicit none.14159
real radius
write(*,*) "请输入半径长"
read(*,*) radius
write(*,"(' 面积='f8. 3)") radius*radius*PI
end program
3.program main
implicit none
real grades
write(*,*) "请输入成绩"
read(*,*) grades
write(*,"(' 调整后成绩为 'f8.3)") SQRT(grades)*10.0
end program
4.integer a,b
real ra,rb
a=2
b=3
ra=2.0
rb=3.0
write(*,*) b/a ! 输出1, 因为使用整数计算, 小数部分会无条件舍去 write(*,*) rb/ra ! 输出1.5
5.program main
implicit none
type distance
real meter, inch, cm
end type
type(distance) :: d
write(*,*) "请输入长度:"
read(*,*) d%meter
d%cm = d%meter*100
d%inch = d%cm/2.54
write(*,"(f8.3'米 ='f8.3'厘米 ='f8.3'英寸')") d%meter, d%cm, d%inch end program
第五章
1.program main
你可能喜欢
- fortran课后习题
- fortran子程序
- arm课后习题答案
- fortran考试试题
- oracle课后习题答案
- fresh start课后习题答案
- internet课后习题答案
- fortran课后习题第四章2页
- fortran课后习题第九章4页
- fortran课后习题第七章2页
- fortran课后习题第八章1页
- fortran课后习题第六章3页
- fortran课后习题解答10页
- 一道FORTRAN子程序题4页
- fortran子程序88页
- FORTRAN_90 子程序121页
- fortran子程序19页
- Fortran求逆矩阵子程序6页
- Fortran子程序38页
- ARM课后习题答案11页
- 嵌入式课后习题答案5页
- 嵌入式课后习题答案5页
- ARM课后习题及答案6页
- arm课后习题答案1-44页
- 嵌入式课后习题答案9页
- FORTRAN90考试笔试题19页
- FORTRAN90考试笔试题25页
- FORTRAN90考试笔试题25页
- 大学FORTRAN考试试题13页
- 大学FORTRAN考试试题23页
- FORTRAN考试试题35页
- oracle课后习题答案3页
- Oracle_10g数据库课后习题参考答案43页
- oracle 11g(钱慎一)课后习题答案8页
- oracle课后习题答案4页
- oracle课后习题答案3页
- Oracle习题答案(课后题)20页
