Calculadora

 Calculadora Científica 

//Elaborado: Steven Valarezo Flores

Algoritmo CalCienti

    Definir op, num, resul, radianes, grados Como Real

    Escribir "Calculadora Científica"

    Escribir "1. Suma"

    Escribir "2. Resta"

    Escribir "3. Multiplicación"

    Escribir "4. División"

    Escribir "5. Seno"

    Escribir "6. Coseno"

    Escribir "7. Tangente"

    Escribir "8. Logaritmo Natural"

    Escribir "9. Raíz Cuadrada"

    Escribir "Elija una opción: "

    Leer op

    Segun op Hacer

        1:

            Escribir "Ingrese el primer número: "

            Leer num

            Escribir "Ingrese el segundo número: "

            Leer num2

            resul <- num + num2

            Escribir "Resultado: ", resul

        2:

            Escribir "Ingrese el primer número: "

            Leer num

            Escribir "Ingrese el segundo número: "

            Leer num2

            resul <- num - num2

            Escribir "Resultado: ", resul

        3:

            Escribir "Ingrese el primer número: "

            Leer num

            Escribir "Ingrese el segundo número: "

            Leer num2

            resul <- num * num2

            Escribir "Resultado: ", resul

        4:

            Escribir "Ingrese el primer número: "

            Leer num

            Escribir "Ingrese el segundo número: "

            Leer num2

si num2=0 Entonces

Escribir "No se pueden hacer divisiones para 0"

SiNo

resultado <- num / num2

Escribir "Resultado: ", resultado

FinSi

        5:

            Escribir "Ingrese el ángulo en grados: "

            Leer grados

            radianes <- grados * (3.14159265359 / 180) 

            resul <- sen(radianes)

            Escribir "Resultado del Seno: ", resul

        6:

            Escribir "Ingrese el ángulo en grados: "

            Leer grados

            radianes <- grados * (3.14159265359 / 180)

            resul <- cos(radianes)

            Escribir "Resultado del Coseno: ", resul

        7:

            Escribir "Ingrese el ángulo en grados: "

            Leer grados

            radianes <- grados * (3.14159265359 / 180) 

            resultado <- tan(radianes)

            Escribir "Resultado de la Tangente: ", resul

        8:

            Escribir "Ingrese el número para calcular el logaritmo natural: "

            Leer num

si num<=0 Entonces

Escribir "No existen en los números Reales logaritmos naturales de 0, ni de números negativos"

SiNo

resul <- ln(num)

Escribir "Resultado del Logaritmo Natural: ", resul

FinSi

        9:

            Escribir "Ingrese el número para calcular la raíz cuadrada: "

            Leer num

si num<0 Entonces

Escribir "No se puede sacar raices cuadradas de números negativos"

SiNo

resul <- rc(num)

Escribir "Resultado de la Raíz Cuadrada: ", resul

FinSi

        De Otro Modo:

            Escribir "Opción no válida"

    Fin Segun

FinAlgoritmo