Il Linguaggio Fortran 90/95

5.3 Procedure Interne 225
! Scopo: Calcolare l’area di un triangolo nota la lunghezza
! dei suoi lati
IMPLICIT NONE
REAL :: a, b, c, TriangleArea
DO
WRITE(*,*) "Inserire le lunghezze dei lati: "
READ(*,*) a, b, c
WRITE(*,*) "I dati inseriti sono: ", a, b, c
IF (TriangleTest(a,b,c)) THEN
EXIT
ELSE
WRITE(*,*) "Attenzione: il triangolo e’ degenere"
WRITE(*,*) "Reinserire i dati:"
END IF
END DO
TriangleArea = Area()
WRITE(*,*) "L’area del triangolo e’:", TriangleArea
CONTAINS
! ------------------------------------------------------------
! LOGICAL FUNCTION TriangleTest(a,b,c) :
! Queste funzione riceve, attraverso i suoi parametri formali,
! tre valori reali e verifica se questi possono essere lati di
! un triangolo. In particolare controlla se:
! (1) tutti gli argomenti sono positivi
! (2) la somma di due lati e’ sempre maggiore del terzo
! Se il test e’ superato questa funzione restituisce .TRUE.,
! altrimenti restituisce .FALSE.
! ------------------------------------------------------------
LOGICAL FUNCTION TriangleTest(a,b,c)
IMPLICIT NONE
REAL, INTENT(IN) :: a, b, c
LOGICAL :: test1, test2
test1 = (a>0.0).AND.(b >0.0).AND.(c>0.0)
test2 = (a+b>c).AND.(a+c>b).AND.(b+c>a)
TriangleTest = test1.AND.test2 ! NB: Entrambe le condizioni
! devono essere verificate
END FUNCTION TriangleTest
! ---------------------------------------------------------------
! REAL FUNCTION Area() :
! Questa funzione calcola l’area di un triangolo a mezzo della
! formula di Erone. Le lunghezze a, b e c dei lati del triangolo
! sono mutuate per associazione di host.
! ---------------------------------------------------------------