volumes_esfera.f90

program volumes
implicit none

real, parameter :: pi = 3.14159265359
real :: volume = 0.0
integer :: raio

! iterando 10 vezes
open(unit=10, file='volumes.csv', status='unknown')
do raio = 1, 10
! V = 4/3.pi.r^3 
volume = (4.0 / 3.0) * pi * raio**3
!Escrevendo na tela
!write(*,*)raio, volume
! Armazenando em um arquivo
write(10,*)raio,',',volume
end do
close(10)
stop 'programa finalizado!!!'
end program volumes