zrhans

area-circulo.f95

Nov 7th, 2014
211
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. !
  2. ! Nome do programa: area_do_circulo
  3. ! Autor: Hans
  4. ! Criado em: 10/05/2011
  5. !
  6. ! Atualizado em 07-11-14 14:30 por Hans
  7. !
  8.  
  9. program area_do_circulo
  10. implicit none
  11.  
  12. real, parameter :: pi=3.14
  13. real :: area=0.0 , raio
  14.  
  15. raio = 2.4
  16.  
  17. area = pi * raio**2
  18.  
  19. write(*,*) 'A area vale: ', area
  20.  
  21. stop '--> Programa finalizado'
  22. end program
RAW Paste Data