program circle
implicit none
! To find the area of a circle
!We use the formular (pi * radius**2)
real :: area, perimeter,radius
real,parameter :: pi= 3.142
write(*,*)'input the radius of a circle'
read(*,*)radius
write(*,*)'radius =', radius, 'unit'
area = pi * radius**2
write(*,*) 'area of a circle is = ',area, 'square unit'
! To find the perimeter of a circle
!we use the formular 2*pi*radius
perimeter = 2*pi*radius
write(*,*)'The perimeter of circle is = ', perimeter, 'unit'
end program circle



PROGRAM RESULT


DOWNLOAD PDF