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

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA