Ejercicio Nº 3

·        Programa que permite obtener el promedio de estatura de todos aquellos que alumnos que superan  el 1.70 mts de un curso de n alumnos, donde n se le consulta al usuario

Proceso calculo

|     est<-0;

|     n<-0;

|     s<-0;

|     ct<-0;

|     prom<-0;

|     ctmay170<-0;

|     Escribir "cuantos alumnos tiene el curso";

|     Leer n;

|     Mientras ct<n Hacer

|     |             Escribir "ingrese la estatura ";

|     |             Leer est ;

|     |             SI est>170 Entonces

|     |             |             s<-s+est

|     |             |             ctmay170<-ctmay170+1

|     |             FinSi

|     |             ct<-ct+1;

|     FinMientras

|     prom<-s/ctmay170;

|     Escribir "el promedio de estatura mayor a 170 es " prom;

FinProceso

 ·      Se desea saber la estatura media por separado de hombres y de mujeres de un colegio para ello se tiene el sig. listado

      Nombre:

      Estatura

      Sexo: Hombre: 1

                Mujer: 2

                Fin: 3

Proceso clasifica

|     est<-0;

|     s1<-0;

|     s2<-0;

|     ct1<-0;

|     ct2<-0;

|     prom1<-0;

|     prom2<-0;

|     nom<- " ";

|     sexo<-0;

|     Escribir "ingrese sexo 1 hombre 2 mujer 3 fin";

|     Leer sexo;

|     Mientras sexo<>3 Hacer

|     |             Escribir "ingrese nombre";

|     |             Leer nom;

|     |             Escribir "ingrse estatura";

|     |             Leer est;

|     |             Si sexo=1 Entonces

|     |             |             s1<-s1+est;

|     |             |             ct1<-ct1+1;

|     |             FinSi

|     |             Si sexo=2 Entonces

|     |             |             s2<-s2+est;

|     |             |             ct2<-ct2+1;

|     |             FinSi

|     |             Escribir "ingrese sexo 1 hombre 2 mujer 3 fin";

|     |             Leer sexo;

|     FinMientras

|     prom1<-s1/ct1;

|     prom2<-s2/ct2;

|     Escribir "la estatura media de hombre es " prom1;

|     Escribir "la estatura media de mujer es " prom2;

FinProceso