作业帮Fortran编程!1）实现以下操作：已知圆锥体半径为5,高为20 ,求圆锥体体积,并输出2）实现以下操作:已知三个整数：a,b,c.计算三个数之和,求三个整数所有可能的排列次序,输出三个数之和,以及排
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/28 21:06:29
Fortran编程!1）实现以下操作：已知圆锥体半径为5,高为20 ,求圆锥体体积,并输出2）实现以下操作:已知三个整数：a,b,c.计算三个数之和,求三个整数所有可能的排列次序,输出三个数之和,以及排
Fortran编程!
1）实现以下操作：
已知圆锥体半径为5,高为20 ,求圆锥体体积,并输出
2）实现以下操作:
已知三个整数：a,b,c.计算三个数之和,求三个整数所有可能的排列次序,输出三个数之和,以及排列次序,编写程序实现.
Fortran编程!1）实现以下操作：已知圆锥体半径为5,高为20 ,求圆锥体体积,并输出2）实现以下操作:已知三个整数：a,b,c.计算三个数之和,求三个整数所有可能的排列次序,输出三个数之和,以及排
1）
program main
implicit none
real::h,r,pi,V
h=20
r=5
pi=3.1415926
V=pi*r*r*h/3
write(*,*) 'V=', V
end
2）
program main
implicit none
integer ::a,b,c,sum
write(*,*) 'a='
read(*,*) a
write(*,*) 'b='
read(*,*) b
write(*,*) 'c='
read(*,*) c
sum=a+b+c
write(*,*) 'sum=',sum
if((a.eq.b).and.(b.eq.c)) then
write(*,*) a,b,c
else if((a.eq.b).and.(a.ne.c)) then
write(*,*) a,b,c
write(*,*) a,c,b
write(*,*) c,a,b
else if((a.eq.c).and.(a.ne.b)) then
write(*,*) a,c,b
write(*,*) a,b,c
write(*,*) b,a,c
else if((c.eq.b).and.(a.ne.c)) then
write(*,*) a,b,c
write(*,*) c,a,b
write(*,*) c,b,a
else
write(*,*) a,b,c
write(*,*) a,c,b
write(*,*) b,a,c
write(*,*) b,c,a
write(*,*) c,a,b
write(*,*) c,b,a
endif
end
求采纳