Calculadora con funciones

[Auguto Viegas]

Necesito ayuda para hacer una calculadora con funciones en PSEINT

[alejandrocaro35]

Proceso Calculadora
    Definir num1, num2 Como Real;
    Definir opcion Como Entero;
    Escribir "Ingrese el primer número:";
    Leer num1;
    Escribir "Ingrese el segundo número:";
    Leer num2;

    Mientras Verdadero Hacer
        Escribir "Seleccione una opción:";
        Escribir "1. Sumar";
        Escribir "2. Restar";
        Escribir "3. Multiplicar";
        Escribir "4. Dividir";
        Escribir "5. Salir";
        Leer opcion;

        Segun opcion Hacer
            1:
                Escribir "El resultado de la suma es: ", Sumar(num1, num2);
            2:
                Escribir "El resultado de la resta es: ", Restar(num1, num2);
            3:
                Escribir "El resultado de la multiplicación es: ", Multiplicar(num1, num2);
            4:
                Escribir "El resultado de la división es: ", Dividir(num1, num2);
            De Otro Modo:
                Escribir "Opción no válida. Por favor, elija nuevamente.";
        FinSegun
    FinMientras
FinProceso

Funcion Retorno <- Sumar(a,b)
    Definir Retorno Como Real;
    Retorno <- a + b;
Fin Funcion

Funcion Retorno <- Restar(a, b)
    Definir Retorno Como Real;
    Retorno <- a - b;
Fin Funcion

Funcion Retorno <- Multiplicar(a, b)
    Definir Retorno Como Real;
    Retorno <- a * b;
Fin Funcion

Funcion Retorno <- Dividir(a, b)
    Definir Retorno Como Real;
    Si b = 0 Entonces
        Escribir "Error: División por cero";
        Retorno <- 0;
    Sino
        Retorno <- a / b;
    FinSi
FinFuncion

[Anonymous]