Proceso probando

    Repetir

    Escribir "Determinar el numero de metros cuadrados a enfriar considerando la siguiente tabla";
    Escribir "14 Metros Cuadrados 5200 BTUs";
    Escribir "19 Metros Cuadrados 6000 BTUs";
    Escribir "28 Metros Cuadrados 7500 BTUs";
    Escribir "32 Metros Cuadrados 8000 BTUs";
    Escribir "42 Metros Cuadrados 10000 BTUs";
    Escribir "51 Metros Cuadrados 12000 BTUs";
    Escribir "65 Metros Cuadrados 14000 BTUs";
    Escribir "74 Metros Cuadrados 15000 BTUs";
    Escribir "79 Metros Cuadrados 16000 BTUs";
    Escribir "93 Metros Cuadrados 18000 BTUs";
    Escribir "102 Metros Cuadrados 20000 BTUs";
    Escribir "130 Metros Cuadrados 24000 BTUs";
    Escribir "140 Metros Cuadrados 28000 BTUs";
    Escribir "149 Metros Cuadrados 32000 BTUs";

    leer v1;
    si v1=14 o v1=19 o v1=28 o v1=32 o v1=42 o v1=51 o v1=65 o v1=74 o v1=79 o v1=93 o v1=102 o v1=130 o v1=140 o v1=149  Entonces
        Escribir "";
    Sino
    Escribir "";
    Escribir "";
    Escribir "OPCION INCORRECTA";
    Escribir "";
    Escribir "";

    FinSi
    Hasta Que v1=14 o v1=19 o v1=28 o v1=32 o v1=42 o v1=51 o v1=65 o v1=74 o v1=79 o v1=93 o v1=102 o v1=130 o v1=140 o v1=149

    si v1=14 Entonces
        vitronic<-5200;
        Escribir "los BTUs usados son ",vitronic;

    Sino
        si v1=19 Entonces
            vitronic<-6000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

        si v1=28 Entonces
            vitronic<-7500;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=32 Entonces
            vitronic<-8000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=42 Entonces
            vitronic<-1000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=51 Entonces
            vitronic<-12000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=55 Entonces
            vitronic<-14000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=74 Entonces
            vitronic<-15000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=79 Entonces
            vitronic<-16000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=93 Entonces
            vitronic<-18000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=102 Entonces
            vitronic<-20000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=130 Entonces
            vitronic<-24000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=140 Entonces
            vitronic<-28000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

            si v1=149 Entonces
            vitronic<-32000;
            Escribir "los BTUs usados son ",vitronic;
        FinSi

    FinSi




    v1<-0;
        Escribir "ingrese el numero de personas en la habitacion";
        Leer v1;

        Si v1=1 Entonces

            vitronic2<-600;
            Escribir "los BTUs usados son ",vitronic2;
        Sino
            si v1=0 Entonces
                Escribir "continuando";
            FinSi

        FinSi

        Si v1=2 Entonces
            vitronic2<-1200;
            Escribir "los BTUs usados son ",vitronic2;
        Sino
            si v1=0 Entonces
                Escribir "continuando";
            FinSi

        FinSi
        v1<-0;

                Escribir "ingrese los metros de ventanas expuestas al sol";
        Leer v1;

        Si v1=1 Entonces
            vitronic3<-714;
            Escribir "los metros de ventanas expuestos son ",vitronic3;
        Sino
            si v1=0 Entonces
                Escribir "continuando";
            FinSi

        FinSi

        Si v1=2 Entonces
            vitronic3<-1429;
            Escribir "los metros de ventanas expuestos son ",vitronic3;
        Sino
            si v1=0 Entonces
                Escribir "continuando";
            FinSi

        FinSi

        v1<-0;

        Escribir "Cuantos Watts son generados por equipos electrodomesticos";
        Leer v1;

        Si v1=1000 Entonces
            vitronic4<-3414;
            Escribir "Lo Watts geneardos son ",vitronic4;
        Sino
            si v1=1000 Entonces
                Escribir "continuando";
            FinSi

        FinSi

        Si v1=2000 Entonces
                vitronic4<-6828;
            Escribir "Lo Watts geneardos son ",vitronic4;
        Sino
            si v1=0 Entonces
                Escribir "continuando";
            FinSi

        FinSi

        v1<-0;

        Escribir "Cuantos metros de cocina tiene tu casa";
        Leer v1;

        si v1=10 Entonces
            vitronic5<-4000;
            Escribir "Los BTUs generados son ",vitronic5;
        FinSi

        si v1=15 Entonces
            vitronic5<-6000;
            Escribir "Los BTUs generados son ",vitronic5;
        FinSi


        //s1<-0
        v1<-0;

        total1<-vitronic+vitronic2+vitronic3+vitronic4+vitronic5;
        porc<-total1/10;

        //n10<-s
        //n11<-n

        Escribir "el 10% de ", total1, " es ", porc;
        Escribir "";
        Escribir "";

        Escribir "los BTUs usados son ",vitronic;
        Escribir "los BTUs usados son ",vitronic2;
        Escribir "los metros de ventanas ",vitronic3;
        Escribir "Lo Watts geneardos son ",vitronic4;
        Escribir "Los BTUs generados son ",vitronic5;
        Escribir "";
        Escribir "";

        Escribir "Estas expuesto al sol, responde si o no ";
        Leer v2;



        Escribir "";
        Escribir "";
        Escribir "";

        si v2="si" Entonces
            suma<-total1+porc;
            Escribir "";
            Escribir "el total total mas el 10% es ",suma/1200;
        FinSi

        si v2="no" Entonces
            resta<-total1-porc;
            Escribir "";
            Escribir "el total menos el 10% es ",resta/1200;
        FinSi








    FinProceso