Área y perimetro triángulo

  Área y perímetro de triángulos es un pequeño algoritmo que plantea la identificación de que tipo de triangulo es, mediante la comparación de sus lados y arrojando como resultado el a´rea y perímetro cualquier comentario error favor dejarlo comentado o enviarme mensaje por todo gracias.

Algoritmo:

Proceso triángulos

                definir perimetro,A,B,C Como Entero;

                definir h,sP,area Como Real;

                definir respuesta como Caracter;

               

                repetir

                               Limpiar Pantalla;

                               Escribir "LADO A: ";

                               leer A;

                               Escribir "LADO B: ";

                               leer B;

                               Escribir "LADO C: ";

                               leer C;

                               perimetro=A+B+C;

                               Si ( A==B Y C==A) Entonces

                                               area=(raiz(3)/4)*A^2;

                                               Escribir "TRIANGULO EQUILATERO ";

                                               Escribir "PERIMETRO = ",A," + ",B," + ",C," = ",perimetro," unidades lineales";

                                               Escribir "AREA = ",area," unidades cuadradas";

                               Fin Si

                              

                               Si ((B==C Y(A<>B Y A<>C))o(A==C Y(B<>A Y B<>C))o(A==B Y(C<>A Y C<>B))) Entonces

                                               si(B==C)

                                                               SI(((B^2)-(A)^2)>0)

                                                                              h=raiz((B^2)-(A)^2);

                                                                              area=A*h/2;

                                                                              Escribir "TRIANGULO ISOCELES";

                                                                              Escribir "PERIMETRO = ",A," + ",B," + ",C," = ",perimetro," unidades lineales";

                                                                              Escribir "AREA = ",area," unidades cuadradas";

                                                               Sino

                                                                              Escribir "LADOS INCONGRUENTES";

                                                               FinSi

                                               FinSi

                                               si(A==C)

                                                               SI(((A^2)-(B)^2)>0)

                                                                              h=raiz((A^2)-(B)^2);

                                                                              area=B*h/2;

                                                                              Escribir "TRIANGULO ISOCELES";

                                                                              Escribir "PERIMETRO = ",A," + ",B," + ",C," = ",perimetro," unidades lineales";

                                                                              Escribir "AREA = ",area," unidades cuadradas";

                                                               Sino

                                                                              Escribir "LADOS INCONGRUENTES";

                                                               FinSi

                                                              

                                               FinSi

                                               si(A==B)

                                                               SI(((A^2)-(C)^2)>0)

                                                                              h=raiz((A^2)-(C)^2);

                                                                              area=C*h/2;

                                                                              Escribir "TRIANGULO ISOCELES";

                                                                              Escribir "PERIMETRO = ",A," + ",B," + ",C," = ",perimetro," unidades lineales";

                                                                              Escribir "AREA = ",area," unidades cuadradas";

                                                               Sino

                                                                              Escribir "LADOS INCONGRUENTES";

                                                               FinSi

                                               FinSi

                               Fin Si

                              

                               Si (A<>B Y C<>A Y B<>C ) Entonces

                                               sP=perimetro/2;

                                               area=raiz(sP*(sP-A)*(sP-B)*(sP-C));

                                               Escribir "TRIANGULO ESCALENO ";

                                               Escribir "PERIMETRO = ",A," + ",B," + ",C," = ",perimetro," unidades lineales";

                                               Escribir "AREA = ",area," unidades cuadradas";

                               Fin Si

                               Escribir "DESEAS SEGUIR...? n=NO";

                               leer respuesta;

                Hasta Que (respuesta=='N' o respuesta=='n')

FinProceso