categoryFORTRAN覚書

直円錐

trackback0  comment0
プログラミング覚書 Fortran-009

直円錐
----------------------------------------------------------------------

!----- 直円錐の体積と表面積 -----
REAL :: pi, r, h, v, s
pi = 3.141593
PRINT*,'Hankei r and Takasa h ?'
READ*, r, h
v = pi*h*r**2/3.0
s = pi*r*(r + (r**2 + h**2)**0.5 )
PRINT*,'Taiseki =', v
PRINT*,'Hyomenseki =', s
END


関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/191-ddff41f7