a fortran example
program volume_area
real :: r,h,v,s,pi
pi=3.1415926
print *,'input radius r and height h?'
read *,r,h
v=r*r*h/3*pi
s=pi*r*sqrt(r**2+h**2)+pi*r**2
print *,'volume=',v
print *,'area =',s
end
mikeli@mikeli-Latitude-E6440:~/code$ ./e_121_02
input radius r and height h?
3.0 5.2
volume= 49.0088425
area = 84.8544083
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步