Proceso fiesta
    Escribir 'Se asume que si usted está utilizando esta aplicación es porque usted va a ir a la fiesta';
    Definir edad,cont,contf,acumf,contm,acumm, edadM,i como real;
    Definir sexo como caracter;
    cont<-0;
    contf<-0;
    acumf<-0;
    contm<-0;
    acumm<-0;
    contF<-0;
    i <-0;
        Repetir
            Repetir
                Escribir "Recuerde que para poder ingresar a la fiesta más loca del mundo usted debe ser mayor de 18 ";
                Escribir 'Por favor ingrese su edad';
                Leer edad;
            Hasta Que edad >= 18 O edad = 0
            si edad <> 0 entonces
                cont<-cont+1;
                Mientras i = 0 Hacer
                    edadm <-edad;
                    i <- i + 1;
                FinMientras
                si edad<edadm Entonces
                    edadm <-edad;
                FinSi
                    Repetir
                    Escribir "Por favor ingrese su sexo, recuerde que sólo se acepta M o F";
                    Leer sexo;
                    Hasta Que sexo = "F" o sexo = "M"
                        Si sexo = "F" Entonces
                        contF <- contF+1;
                        acumF <- acumF+edad;
                        Sino
                        contM <- contM+1;
                        acumM <- acumM+edad;
                        FinSi
            FinSi                
    Hasta que edad =0
    escribir "la cantidad de personas que asistió fue: ",cont;
    escribir "la cantidad de mujeres que asistió fue: ",contF;
    escribir "la cantidad de Hombres que asistió fue: ",contm;
    Escribir "El promedio de edades de los hombres es: ",acumM/contM;
    Escribir "El promedio de edades de los mujeres es: ",acumF/contF;
    Escribir "La edad de la persona más joven que ingreso a la fiesta fue: ",edadm;
FinProceso

 
No Sirve Que VAAAA
ResponderEliminar