FORTRAN 77 program to find the Area of Triangle.

SIMPLE  PROGRAMS

4: FORTRAN 77 program to find the Area of Triangle.

real a,b,c,s,ar

write(*,*)'Enter value of a  '

read(*,*)a

write(*,*)'Enter value of b  '

read(*,*)b

write(*,*)'Enter value of c '

read(*,*)c

s=(a+b+c)/2

write(*,*)'s = ',s

ar=SQRT(s*(s-a)*(s-b)*(s-c))

write(*,*)'Area = ',ar

stop

end