write a fortran program to examine the point x1,y1 lies inside/outside/on circle

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

!write a fortran program to examine the point x1,y1 lies inside/outside/on circle !Author: mannaf program area_circle implicit none real::x,y,x1,y1,h,k,r,s print*,'enter the value of x,y' read*,x,y print*,'enter the value of h,k' read*,h,k print*,'enter the value of x1,y1' read*,x1,y1 r=sqrt((x-h)**2+(y-k)**2) s=sqrt((x1-h)**2+(y1-k)**2) if(r==s) then print*,'the point lies on the circle' elseif(r>s) then print*,'the point lies inside of the circle' else print*,'the point lies outside of the circle' end if end program area_circle

write a fortran program vertices are given verify its square or Rhombus or Parallelogram or rectangle

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

!write a fortran program vertices are given verify its square or Rhombus or Parallelogram or rectangle !Author: Md. Abde Mannaf program cheak_four implicit none real::x1,x2,x3,x4,y1,y2,y3,y4,a,b,c,d,p,q print*,'enter the value of x1 & y1' read*,x1,y1 print*,'enter the value of x2 & y2' read*,x2,y2 print*,'enter the value of x3 & y3' read*,x3,y3 print*,'enter the value of x4 & y4' read*,x4,y4 a=sqrt((x1-x2)**2+(y1-y2)**2) b=sqrt((x2-x3)**2+(y2-y3)**2) c=sqrt((x3-x4)**2+(y3-y4)**2) d=sqrt((x4-x1)**2+(y4-y1)**2) p=sqrt((x1-x3)**2+(y1-y3)**2) q=sqrt((x2-x4)**2+(y2-y4)**2) if(a==c .and. b==d .and. a/=b .and. p==q ) then print*,'this is rectangle' else if(a==c .and. b==d .and. a/=b .and. p/=q ) then print*,'this is Parallelogram' else if( a==b .and. b==c .and. c==d .and. d==a .and. p==q ) then print*,'this is square' else if( a==b .and. b==c .and. c==d .and. d==a .and. p/=q ) then print*,'this is Rhombus' else print*,'none of them' end if end program cheak_four