area_volume_do_enddo.f95

program questao06
implicit none

real, parameter :: pi = 3.14159
real :: r, area, volume, novo_raio
integer :: i

print *, 'Digite uma valor para o raio: '
read *, r

area = 4 * pi * r ** 2
volume = (4./3.) * pi * r ** 3

print *,'Area e volume: ', area, volume

! Recalculando mais 5 vezes aumentando o raio 1,5 metros cada vez
do i = 1, 5
    novo_raio = r + ( i * 1.5 )
    area = 4 * pi * novo_raio ** 2
    volume = (4./3.) * pi * novo_raio ** 3
    print *,'Raio, Area e volume: ',novo_raio, area, volume
enddo

end program questao06