CIRCLE
!Program
name: CIRCLE
!Area
of a circle
Do
Print *, 'Enter the radius of the circle: '
Read *, r
Print *, 'The area is: ', 3.1416*r**2
Print *, 'Do you want to calculate another
area? (Y/N): '
Read *, resp
If (resp == N) exit
End do
Stop
Comentários
Postar um comentário