Stabilirea tipului de triunghi

Dacă se dau numerele a,b și c trebuie văzut dacă acestea:

- sunt laturile unui triunghi;

- dacă este vorba de triunghi dreptunghic;

- dacă este vorba de triunghi isoscel;

- dacă este vorba de triunghi echilateral;

- dacă este vorba de triunghi oarecare.

Variabila IK=0 dacă a,b,b nu formează laturile unui triunghi, IK=1 dacă este vorba de un triunghi echilateral, IK=2 dacă este vprba de un triunghi dreptunghic oarecare, IK=3 dacă este un triunghi isoscel, IK=4 dacă este un triunghioarecare. IK=5 pentru variabile neinițializate corect.

Subprogramul este:

         SUBROUTINE COMPAR (A,B,C,IK)

         IF(A*B*C.LE.0) GO TO 5
         IK=0

         IF(((A+B).LT.C).OR.((A+C).LT.B).OR.((B+C).LT.A)) GO TO 10

         IK=1

         IF((A.EQ.B).AND.(A.EQ.C).AND.(B.EQ.C)) GO TO 10

         IK=2

         IF(((A*A+B*B).EQ.(C*C)).OR.((A*A+C*C).EQ.(B*B)).OR.((C*C+B*B).EQ.(A*A))) GO TO 10

         IK=3

         IF((A.EQ.B).OR.(A.EQ.C).OR.(B.EQ.C)) GO TO 10

         IK=4

         IF((A+B).GT.C).OR.((A+C).GR.B).OR.((B+C).GR.A)) GO TO 10

5       IK=5

10     CONTINUE

         RETURN
         END

(26 decembrie 2017)