Clase numero 15

El instructor decidió revisar la calculadora hecha con subprocesos, pero a nadie le quedo bien, por lo tanto el instructor nos hizo un repaso de subprocesos y nos ayudo con la elaboración de la calculadora, también se desarrollo el algoritmo del juego pokemon.

ejemplo

SubProceso result<-suma(nu1,nu2)
    result<-(nu1+nu2)

FinSubProceso

SubProceso result<-resta(nu1,nu2)
     result<-(nu1-nu2)
FinSubProceso

SubProceso result<-multiplicacion(nu1,nu2)
     result<-(nu1*nu2)
FinSubProceso

SubProceso result<-division(nu1,nu2)

    Si (nu2)<>(0) Entonces
        result <- (nu1/nu2)
    Sino
        Escribir 'No se puede dividir por 0, intente otro valor'
        result<-(nu1)
    FinSi
FinSubProceso

Proceso  calculadora
    Escribir "................................................."
    Escribir ". BIENVENIDOS A LA CALCULADORA   ."
    Escribir "................................................."
    Escribir " Ingrese el primer numero"
    Leer nu1
    Repetir
    Escribir " El acumulado es " nu1
        Escribir " Que operacion desea "
        Escribir " 1 = suma "
        Escribir " 2 = resta "
        Escribir " 3 = multiplicacion"
        Escribir " 4 = division "
        Escribir " 5 = borrar datos "
        leer numero_1
        si numero_1<>5 entonces
            Escribir "ingrese el segundo numero"
            Leer nu2
        FinSi
        Segun numero_1 Hacer
            1:
                nu1<-suma(nu1,nu2)
                Escribir "El resultado es ", nu1
            2:
                nu1<-resta(nu1,nu2)
                Escribir "El resultado es ", nu1
            3:
                nu1<-multiplicacion(nu1,nu2)
                Escribir "El resultado es ", nu1
            4:
                nu1<-division(nu1,nu2)
                Escribir "El resultado es ", nu1
            5:
                escribir " se borraron los datos "
                Escribir " Ingrese el primer numero"
                Leer nu1
            Fin Segun
            Escribir "  quiere apagar la calculadora ? "
            Escribir "  1 - Si "
            Escribir "  cualquier numero - No "
            leer fin_1
            borrarpantalla
        Hasta Que fin_1 = 1
    FinProceso