Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. program funcoes
  2.  
  3. real, parameter :: PI = 3.14159
  4. real :: r, area, volume
  5.  
  6.  
  7. write(*,*) "Digite um valor para o raio r: "
  8. read*, r
  9.  
  10. ! Calcular area a volume usando funcoes
  11. area = area_esfera(r)
  12. volume = volume_esfera(r)
  13.  
  14. ! Calcular area a volume usando subrotinas
  15. call area_esfera_s
  16. call volume_esfera_s
  17.  
  18.  
  19. write(*,*) "O raio digitado foi: ", r
  20. write(*,*) " USANDO FUNCOES "
  21. write(*,*) "O volume da esfera com este raio eh: ", volume
  22. write(*,*) "A area  da  esfera com este raio eh: ", area
  23. write(*,*) " --------------------------------- "
  24. write(*,*) " USANDO SUBROTINAS "
  25. write(*,*) "O volume da esfera com este raio eh: ", volume_s
  26. write(*,*) "A area  da  esfera com este raio eh: ", area_s
  27.  
  28. contains
  29.  
  30. function volume_esfera(r)
  31.    volume_esfera = (4.0/3.0) * PI * r ** 3
  32. end function
  33.  
  34. function area_esfera(r)
  35.    area_esfera = 4 * PI * r ** 2
  36. end function
  37.  
  38. subroutine area_esfera_s
  39.     area_s =  4 * PI * r ** 2
  40. end subroutine
  41.  
  42. subroutine volume_esfera_s
  43.     volume_s =  (4.0/3.0) * PI * r ** 3
  44. end subroutine
  45.  
  46.  
  47. end program funcoes