Concentraciones Pseint

Algoritmo calcular_concentracion_pseint
    Funcion real calcular_concentracion(temp Como Entero, ph Como Real, conc Como Real)
        Si temp > 30 Y ph > 7 Y conc > 1.0 Entonces
            Retornar conc * 2.5
        SiNo
            Retornar conc
        FinSi
    FinFuncion

    Funcion logico checkear_temp(temp Como Entero)
        Si temp >= 20 Y temp <= 37 Entonces
            Retornar Verdadero
        SiNo
            Retornar Falso
        FinSi
    FinFuncion

    Funcion logico checkear_ph(ph Como Real)
        Si ph >= 6.5 Y ph <= 7.5 Entonces
            Retornar Verdadero
        SiNo
            Retornar Falso
        FinSi
    FinFuncion

    Funcion logico checkear_concentracion(conc Como Real)
        Si conc >= 0.95 Y conc <= 1.05 Entonces
            Retornar Verdadero
        SiNo
            Retornar Falso
        FinSi
    FinFuncion

    Definir temp Como Entero
    Definir ph Como Real
    Definir conc Como Real

    Escribir "temperatura:"
    Leer temp
    Escribir "ph:"
    Leer ph
    Escribir "conc:"
    Leer conc

    Si checkear_temp(temp) = Verdadero Y checkear_ph(ph) = Verdadero Y checkear_concentracion(conc) = Verdadero Entonces
        Escribir "Valor de la concentracion ", calcular_concentracion(temp, ph, conc)
    SiNo
        Escribir "error"
    FinSi
FinAlgoritmo