• 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
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