Fortran编程!1）实现以下操作：已知圆锥体半径为5,高为20 ,求圆锥体体积,并输出2）实现以下操作:已知三个整数

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/28 00:18:55

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
求采纳

Fortran编程!1）实现以下操作：已知圆锥体半径为5,高为20 ,求圆锥体体积,并输出2）实现以下操作:已知三个整数试编程实现循环输入文件中的整数,判断其能否被3、5、7整除,并对每个整数输出以下信息之一：（1）能同已知圆锥体的底面半径为R，高为H求内接于这个圆锥体并且体积最大的圆柱体的高h（如图）．从控制台输入三个整数,求三个整数中最小的数,并在控制台输出（使用方法实现）. 圆锥体侧面积为28平方厘米,底面半径为8厘米.求圆锥体的体积 abc.txt文件中有一些整数,试编程实现循环输入文件中的整数,判断其能否被3、5、7整除,并对每个整数输出以下信息之一把一个底面半径为3厘米的圆柱体削成一个与它等底等高的圆锥体,削去部分的体积是圆锥体的（）% 把一个底面半径为3.7厘米的圆柱体削成一个与它等底等高的圆锥体,圆锥体的体积是削去部分的（）％一块圆柱体的零件,它的底面直径为6cm,高是15cm,如果把它锻造成一块圆锥体的零件,已知它的底面半径为2cm,求圆锥体把一个横截面为正方形的长方体，削成一个最大的圆锥体，已知圆锥体的底面周长6.28厘米，高5厘米，长方体的体积是多少？圆锥体的高和底面半径都等于一个正方体的棱长已知正方体的体积是90立方厘米求圆锥体的体积? 一个圆柱体和一个圆锥体的体积和底面积都相等,已知圆柱体的高是2CM,圆锥体的高是（）CM