cilindros

program cilindros
implicit none

real, parameter :: pi = 3.14159
real :: r = 8.0, V
integer :: h = 15

!Calculando o volume do cilindro original
V = pi * r**2 *h

! Definindo um volume 20% maior
V = V + ( 20.0/100.0 ) * V

! Calculando o raio deste novo cilindro
r = ( V / (pi * h) )**( 1.0/2.0 )

print*,"O raio do tanque com volume 20% maior vale: ", r

end program cilindros

!==================================================
! Resultado
! Compiling the source code....
! $gfortran -std=f95 main.f95 -o demo 2>&1
!
! Executing the program....
! $demo
! O raio do tanque com volume 20% maior vale:    8.76356125