Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ! Este programa lê um valor real para o raio (r) e imprime
- ! a área do círculo de raio r
- program circulo
- implicit none
- real, parameter :: pi = 3.14159
- print *, 'Digite um valor para o raio (r) do circulo: '
- read *, r
- area = pi * r ** 2
- print*, 'Area: ', area
- enddo program circulo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement