Programa de Encuesta

Vista previa del material en texto

Proceso Mientras1 
 definir edad, opcion, cont, acum, contMy, contMn Como Entero; 
 cont=0; 
 acum=0; 
 contMy=0; 
 contMn=0; 
 escribir "PROGRAMA DE ENCUESTA"; 
 Escribir "¿Desea continuar? 1 para si 0 para no"; 
 leer opcion; 
 Mientras opcion=1 hacer 
 Escribir "dijite su edad"; 
 leer edad; 
 si edad>=18 entonces 
 Escribir "es mayor de edad"; 
 contMy=cont; 
 Sino 
 escribir "es menor de edad"; 
 contMn=contMn+1; 
 finsi 
 cont=cont+1; 
 acum=acum+edad; 
 Escribir "encuestado #", cont; 
 Escribir "¿Desea continuar? 1 para si 0 para no"; 
 leer opcion; 
 FinMientras 
 Escribir "se hicieron", cont, "encuestas"; 
 Escribir "la suma de las edades es", acum; 
 Escribir "el promedio de la edades es", acum/cont; 
 Escribir "el numero de personas mayores de edad es", contMy; 
 Escribir "el numero de personas mayores de edad es", contMn; 
 
FinProceso