Προγραμματισμός FORTRAN > Παραδείγματα > Εμβαδόν Τριγώνου

Να γραφεί πρόγραμμα που να υπολογίζει το Εμβαδόν E ενός τριγώνου από τις τρεις πλευρές του: a, b & c. Ο τύπος υπολογισμού είναι:

Κώδικας:

PROGRAM embadon_trigwnou
IMPLICIT NONE
 REAL:: a, b, c, t, E
 WRITE (*,*) 'Dwse Tis 3 Pleyres a, b, c:'
 READ (*,*) a, b, c
!
 t = (a+b+c)/2.0
 E = SQRT(t*(t-a)*(t-b)*(t-c))
!
 WRITE (*,*) 'To Embadon einai:', E
END

Εκτέλεση:

 Dwse Tis 3 Pleyres a, b, c:
3, 4, 5

 To Embadon einai: 6.000000