Tipo Prueba

Proceso sin_titulo
    Definir opcion,paracetamol,tapsin,mentholatum,Bucogerm,numClientes Como Entero;
	Definir mujeres,hombres,edad,clientes,contador,sexo,hmas65,mmas65,saveEhm65,saveEmmas65 como entero;
	Definir dia Como Caracter;
	contador = 0;	hombres = 0;	mujeres = 0;	hmas65 = 0; mmas65 = 0;	saveEhm65 = 0;	saveEmmas65 = 0;
    paracetamol = azar(100);	tapsin = azar(100);	mentholatum = azar(100);	Bucogerm = azar(100);
	Escribir "Ingrese Opción.";
    Escribir "1) Venta Medicamentos";
    Escribir "2) Ventas Clientes";
    Escribir "Seleccione 3 o otro numero para finalizar..";
    Leer opcion;
	Limpiar Pantalla;
    Segun opcion Hacer
        1:
			Escribir "Ventas de medicamentos...";
			dia = "";
            Mientras dia != "lunes" && dia != "martes" && dia != "miercoles" && dia != "jueves" && dia != "viernes" && dia != "sabado" && dia != "domingo" hacer
				Escribir "Ingrese el dia de la semana, por ejemplo: lunes (sin tildes)";
				Leer dia;
				dia = minusculas(dia);
				Si dia == "lunes" || dia == "martes" entonces
					Escribir "Día: ",dia;
					Escribir "Total de medicamentos vendidos: $", paracetamol+tapsin+mentholatum+Bucogerm;
					Escribir "Paracetamol: ",paracetamol," ,ganancia total: $",1192*paracetamol;
					Escribir "Tapsin: ",tapsin," ,ganancia total: $",1672*tapsin;
					Escribir "Mentholatum: ",mentholatum," ,ganancia total: $",712*mentholatum;
					Escribir "Bucogerm: ",Bucogerm," ,ganancia total: $",1352*Bucogerm;
					Escribir "Ganancias totales: $",(1352*Bucogerm)+(712*mentholatum)+(1672*tapsin)+(1192*paracetamol);
				FinSi
				Si dia == "miercoles" || dia == "jueves" || dia == "viernes" || dia == "sabado" || dia == "domingo" entonces
					Escribir "Día: ",dia;
					Escribir "Total de medicamentos vendidos: ", paracetamol+tapsin+mentholatum+Bucogerm;
					Escribir "Paracetamol: ",paracetamol," ,ganancia total: $",1490*paracetamol;
					Escribir "Tapsin: ",tapsin," ,ganancia total: $",2090*tapsin;
					Escribir "Mentholatum: ",mentholatum," ,ganancia total: $",890*mentholatum;
					Escribir "Bucogerm: ",Bucogerm," ,ganancia total: $",1690*Bucogerm;
					Escribir "Ganacias totales: $",(1690*Bucogerm)+(890*mentholatum)+(2090*tapsin)+(1490*paracetamol);
				FinSi
			finMientras
        2:
			Escribir "Ventas Clientes...";
			Escribir "Ingrese un numero de clientes.";
			Leer clientes;
			Mientras contador <> clientes hacer
				edad = azar(82)+18;
				sexo = azar(2);
				Si sexo == 0 entonces
					mujeres = mujeres + 1;
				FinSi
				Si sexo == 1 Entonces
					hombres = hombres + 1;
				FinSi
				Si hombres >= 1 && edad > 65 entonces
					hmas65 = hmas65 + 1;
					saveEhm65 = edad + saveEhm65;
				FinSi
				Si mujeres >= 1 && edad > 65 Entonces
					mmas65 = mmas65 + 1;
					saveEmmas65 = edad + saveEmmas65;
				FinSi
				contador = contador + 1;
			FinMientras
			Escribir "Hombres Atendidos: ",hombres;
			Escribir "Mujeres Atendidos: ",mujeres;
			Escribir "Hombres de mas de 65 años: ",hmas65;
			Escribir "Mujeres de mas de 65 años: ",mmas65;
			si saveEhm65 >= 1 && saveEmmas65 >= 1 && hmas65 >= 1 && mmas65 >= 1 entonces
				Escribir "Edad promedio de personas con mas de 65 años: ",redon((saveEhm65+saveEmmas65)/(hmas65+mmas65));
			Sino
				Escribir "No se cumple el minimo de adultos mayores de 65, para realizar la operacion.";
			FinSi
        3:
            Escribir "Saliendo...";
			Escribir "Ja Ne!...";

        De Otro Modo:
            Escribir "Ja Ne!...";
    FinSegun
FinProceso