Fortran95第一章第六大题习题与答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1. 从键盘输入a,b,c 的值，计算f=cos ｜a+b ｜/sin ｜b｜
｜a｜++tan c 上机执行该程序，输入a=-4.6°,b=10°,c=21.85°,观察计算结果。
Program ex1_1
implicit none
real a,b,c,f
print*,'请输入a,b,c(角度值)'
read*,a,b,c
a=a*3.14159/180.0
b=b*3.14159/180.0
c=c*3.14159/180.0
f=cos(abs(a+b))/sin(sqrt(abs(a)+abs(b)))+tan(c)
write(*,*)'f=',f
stop
End
2.设圆锥体底面半径r 为6，高h 为5，从键盘输入r 、h ，计算圆锥体体积。计
算公式为V=3
2h r π。 Program ex1_2
implicit none
real r,h,v
print*,'请输入r,h 的值'
read*,r,h
v=3.14159*r*r*h/3
write(*,*)'v=',v
stop
End
3.求一元二次方程02=++c bx ax 的两个根1x 和2x 。方程的系数a 、b 、c 值从键盘输入并假定042>-ac b 。
Program ex1_3
implicit none
real a,b,c,x1,x2
print*,'请输入a,b,c 的值'
read*,a,b,c
x1=(b+sqrt(b*b-4*a*c))/2*a
x2=(b-sqrt(b*b-4*a*c))/2*a
write(*,*)'x1=',x1,'x2=',x2
stop
End
4.从键盘输入一个三位十进制整数，分别输出其个位、十位、百位上的数字。
Program ex1_4
implicit none
integer x
print*,'请输入一个三位十进制整数'
read*,x
write(*,*)'个位数=',mod(x,10)
write(*,*)'十位数=',mod(x/10,10)
write(*,*)'百位数=',x/100
stop
End
5.已知y
sin(⋅
)
+
=
+，分别计算等号两边的算式并输出计算
⋅
sin
y
x
cos
x
y
cos
x sin
结果（x=30°,y=45°从键盘输入）。
Program ex1_5
implicit none
real x,y,m,n
print*,'请分别输入x,y的值(角度值)'
read*,x,y
x=x*3.14159/180.0
y=y*3.14159/180.0
m=sin(x+y)
n=sin(x)*cos(y)+cos(x)*sin(y)
write(*,*)'左边=',m,'右边=',n
stop
End