clear all;
clc;
global A B C
A=input('Ingrese el primer lado del triángulo: ');
B=input('Ingrese el segundo lado del triángulo: ');
C=input('Ingrese el tercer lado del triángulo: ');
if (A<B+C)&&(B<A+C)&&(C<A+B)
if (A==B)&&(B==C)
fprintf('El triángulo es equilatero\n');
fprintf('Los angulos internos son 60° cada uno\n');
elseif (A==B)||(B==C)
ang1=(acos((A^2-B^2-C^2)/(2*B*C)))*180/pi;
if ang1>90
ang1=180-ang1;
end
ang2=(acos((B^2-A^2-C^2)/(2*A*C)))*180/pi;
if ang2>90
ang2=180-ang2;
end
ang3=(acos((C^2-A^2-B^2)/(2*A*B)))*180/pi;
if ang3>90
ang3=180-ang3;
end
fprintf('El triángulo es isósceles\n');
fprintf('El primer ángulo es: %2.2f\n',ang1);
fprintf('El segundo ángulo es: %2.2f\n',ang2);
fprintf('El tercer ángulo es: %2.2f\n',ang3);
else
ang1=(acos((A^2-B^2-C^2)/(2*B*C)))*180/pi;
if ang1>90
ang1=180-ang1;
end
ang2=(acos((B^2-A^2-C^2)/(2*A*C)))*180/pi;
if ang2>90
ang2=180-ang2;
end
ang3=(acos((C^2-A^2-B^2)/(2*A*B)))*180/pi;
if ang3>90
ang3=180-ang3;
end
fprintf('El triángulo es escaleno\n');
fprintf('El primer ángulo es: %2.2f\n',ang1);
fprintf('El segundo ángulo es: %2.2f\n',ang2);
fprintf('El tercer ángulo es: %2.2f\n',ang3);
end
else
fprintf('El triángulo no existe\n');
end
Comentarios sobre la versión: R2013a (0)
No hay comentarios