Tuesday, March 31, 2015

Write a Fortran program & Find the area of the triangle 


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
!Author:Md. Abde Mannaf
!The program finds area of the triangle read side
program area_triangle
    implicit none
    integer::a,b,c
    real::area,s,sqrt
    print*,'enter the value of three sides of triangle  a,b,c'
    read*,a,b,c
    if(a+b>c .and. b+c>a .and. c+a>b) then
        s=(a+b+c)/2
        area=sqrt(s*(s-a)*(s-b)*(s-c))
        print*,'area of triangle =',area
    else
        print*,'input value is not valid'
    end if
end program area_triangle
Posted by at

6 comments:

  1. UnknownNovember 15, 2016 at 8:25 PM

    Very informative article.Thank you author for posting this kind of article .

    http://www.wikitechy.com/view-article/write-a-c-program-to-find-area-of-triangle-with-example-and-explanation


    Both are really good,
    Cheers,
    Venkat

    ReplyDelete
  2. oluAugust 21, 2017 at 4:45 AM

    Nice post.... Fantastico

    ReplyDelete
  3. Omale IdrisOctober 28, 2020 at 1:22 PM

    I think I solve writing similar program.
    Great!

    ReplyDelete
  4. UnknownMarch 4, 2021 at 1:00 AM

    I was running it with my system and they are telling me that non-numeric character in statement label at (1)

    ReplyDelete
  5. UnknownMarch 4, 2021 at 1:01 AM

    they are telling me that non-numeric character in statement label at (1)

    ReplyDelete
  6. vidoJanuary 29, 2023 at 3:17 AM

    What of using the formula A=1/2 bh

    ReplyDelete

Subscribe to: Post Comments (Atom)