Código de Matlab - TRIÁNGULO

Imágen de perfil

TRIÁNGULOgráfica de visualizaciones


Matlab

Publicado el 19 de Noviembre del 2014 por GILMER
1.439 visualizaciones desde el 19 de Noviembre del 2014. Una media de 14 por semana
Programa que pida la longitud de los lados de un triángulo, compruebe si los datos son
correctos, muestre si es equilátero, isósceles o escaleno, y el valor de sus ángulos en grados.

R2013a

Publicado el 19 de Noviembre del 2014gráfica de visualizaciones de la versión: R2013a
1.440 visualizaciones desde el 19 de Noviembre del 2014. Una media de 14 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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
 

Comentar la versión: R2013a

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s2863