! 円筒の体積の計算 program calccylinder implicit none real, parameter :: pi = 3.141592 ! 円周率 real :: radius = 5.5 ! 半径 real :: height = 0.11 ! 高さ real :: volume ! 体積 volume = pi * radius**2 * height print *, volume end program calccylinder