Question

计算机Fortran编程题 急急急！！！各位大侠一定要帮帮我啊 期末考试 3点交卷

从键盘输入若干参数，然后存入程序，无格式文件中。再从文件中读出数据计算如下公式。计算公式用函数实现。V为圆台体积，V=兀/3h(R2+r2+Rr) R,r分别为上下底园半径，h为高。
R2 r2 是平方的意思 我打不出来

Answer 1

1.主程序（fortran77 写的）：
program vol
implicit double precision (a-h,o-z)
pi=3.14159
read (*,*) r1,r2,h
v=pi/3*h*(r1**2+r2**2+r1*r2)
write(*,*) v
end
2，参数输入
如果主机的系统是linux的话，例如可输入 echo 5,4,3 > par.txt
(其中，5，4，3是R，r，h；par.txt是重复擦写的，不是累加的）
3.参数读出计算
如果主程序的可执行文件是vol.x，那么直接输入vol.x < par.txt ，体积结果就输入输出在屏幕上了。

Answer 2

wjisah ok

Answer 3

已经过点了。

Answer 4

program circle
implicit none
real*8,parameter::pi=3.1415926
real*8 h,r1,r2,v ! fortran 不能区分大下写，因此将R,r定义为r1，r2

write(*,*) 'please input R,r,h.'
read(*,*) r1,r2,h

v=pi*(r1*r1+r2*r2+r1*r2)/h/3.d0
end program