-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Pide 2 variables por usuario y muestra las operaciones: ángulo, hipotenusa, cateto opuesto y adyacente.
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
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
Proceso OperacionesConElTeoremaDePitagoras
Escribir Sin Saltar "Ingresa el valor de a:";
Leer a;
Escribir Sin Saltar "Ingresa el valor de b:";
Leer b;
Escribir "Selecciona el valor de operacion.";
Escribir " 1.- Ángulo";
Escribir " 2.- Hipotenusa";
Escribir " 3.- Cateto opuesto";
Escribir " 4.- Cateto adyacente";
Escribir Sin Saltar " :";
Repetir
Leer operacion;
Si operacion<1 O operacion>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que operacion>=1 Y operacion<=4;
resultado <- 0;
Si operacion = 1 Y b <> 0 Entonces
resultado <- ATAN(a/b)*180.0/PI;
FinSi
Si operacion = 1 Y b = 0 Entonces
Escribir "Error";
FinSi
Si operacion = 2 Entonces
resultado <- RC(a*a+b*b);
FinSi
Si operacion = 3 Y a>=b Entonces
resultado <- RC(a*a-b*b);
FinSi
Si operacion = 3 Y a<b Entonces
Escribir "Error";
FinSi
Si operacion = 4 Y b>=a Entonces
resultado <- RC(b*b-a*a);
FinSi
Si operacion = 4 Y b<a Entonces
Escribir "Error";
FinSi
Escribir "Valor de resultado: ", resultado;
FinProceso
Escribir Sin Saltar "Ingresa el valor de a:";
Leer a;
Escribir Sin Saltar "Ingresa el valor de b:";
Leer b;
Escribir "Selecciona el valor de operacion.";
Escribir " 1.- Ángulo";
Escribir " 2.- Hipotenusa";
Escribir " 3.- Cateto opuesto";
Escribir " 4.- Cateto adyacente";
Escribir Sin Saltar " :";
Repetir
Leer operacion;
Si operacion<1 O operacion>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que operacion>=1 Y operacion<=4;
resultado <- 0;
Si operacion = 1 Y b <> 0 Entonces
resultado <- ATAN(a/b)*180.0/PI;
FinSi
Si operacion = 1 Y b = 0 Entonces
Escribir "Error";
FinSi
Si operacion = 2 Entonces
resultado <- RC(a*a+b*b);
FinSi
Si operacion = 3 Y a>=b Entonces
resultado <- RC(a*a-b*b);
FinSi
Si operacion = 3 Y a<b Entonces
Escribir "Error";
FinSi
Si operacion = 4 Y b>=a Entonces
resultado <- RC(b*b-a*a);
FinSi
Si operacion = 4 Y b<a Entonces
Escribir "Error";
FinSi
Escribir "Valor de resultado: ", resultado;
FinProceso