GRUPO BARBIEGIRLS
MARIA BUSTAMANTE C.I.29.940.593
GABRIEL BARRIOS C.I 31.420.570
CARLOS BAPTISTA C.I 31835406
ISSABELLA CASTILLO C.I 31.424.098
ROIKER GONZÁLEZ C.I. 30.596.310
YHERMAN GUTIÉRREZ C.I.31.321.545
ALGORITMO_COLEGIO
INICIO
VAR: NOMBRES[200]:CADENA, EDADES[200],FISICA[200],INGLES[200],MATE[200],
CASTELLANO[200],CONTABILIDAD[200],EDADESCOP[200],I,MAYORE,MENORE:ENTER
O,PROM[200],PROMAY=0:REAL,FP:BOOLEANA;
LLENADO (NOMBRES[200], EDADES[200],FISICA[200],INGLES[200],MATE[200],
CASTELLANO[200],CONTABILIDAD[200],EDADESCOP[200],I,MAYORE,MENORE,PROM
[200],PROMAY);
MOSTRAR<<LLENADO;
REPETIR
MENU(OP);
MOSTRAR<<MENU;
EN CASO (OP>0) SEA;
CASO (OP=1);
BUSQUEDA(NOMBRES[200], I, EDAD[200], PROM[200]);
MOSTRAR<<BUSQUEDA;
CASO (OP=2);
MAYORES(MAYORE,MENORE);
MOSTRAR<<MAYORES;
CASO (OP=3);
PROMEDIOMA (NOMBRES [200], PROM [200], PROMAY,I);
MOSTRAR<<PROMEDIOMA;
CASO (OP=4);
COPIA (EDADESCOP[200],I);
VECTORES (EDADES [200], EDADESCOP[200], I);
MOSTRAR<<VECTORES;
CASO(OP=5);
FINAL (NOMBRES[200],EDADES[200],I,PROM[200])
MOSTRAR<<FINAL;
FIN CASO
MOSTRAR<< “DESEA REALIZAR OTRA OPERACION EN EL PROGRAMA O DESEA
SALIR?1:SI 0:NO”;
LEER>>FP;
HASTA (FP=0);
FINREPETIR
FIN
PROCEDIMIENTO LLENADO
(E/S:NOMBRES[200]:CADENA,EDADES[200],FISICA[200],INGLES[200],MATE[200],
CASTELLANO[200],CONTABILIDAD[200],EDADESCOP[200],I,MAYORE,MENORE:EN
TERO,PROM[200],PROMAY:REAL)
INICIO
VAR: NOMBRESEST: CADENA, ING, MAT, FIS, EDAD, CAST, CONT:
ENTERO,PROMEDIO,AUX:REAL;
PARA (I=1 HASTA I=200) HACER;
MOSTRAR<< “INGRESE SU NOMBRE”;
LEER>>NAME;
MOSTRAR<< “INGRESE SU EDAD”;
LEER>>EDAD;
MIENTRAS (EDAD<12 OR EDAD>18) HACER;
MOSTRAR<< “EDAD NO ADMITIDA.INGRESA DE NUEVO”;
LEER>>EDAD;
MOSTRAR<< “INGRESE SU NOTA DE FISICA”;
LEER>>FIS;
MIENTRAS (FIS<1 OR FIS>10) HACER;
MOSTRAR<< “SOLO SE ACEPTAN NUMEROS DE 1 AL 10”;
LEER>>FIS;
FIN MIENTRAS
MOSTRAR<< “INGRESE SU NOTA DE INGLES”;
LEER>>ING;
MIENTRAS (ING<1 OR ING>10) HACER;
MOSTRAR<< “SOLO SE ACEPTAN NUMEROS DE 1 AL 10”;
LEER>>ING;
FIN MIENTRAS
MOSTRAR<< “INGRESE SU NOTA DE MATEMATICA”;
LEER>>MAT;
MIENTRAS (FIS<1 OR FIS>10) HACER;
MOSTRAR<< “SOLO SE ACEPTAN NUMEROS DE 1 AL 10”;
LEER>>MAT;
FIN MIENTRAS
MOSTRAR<< “INGRESE SU NOTA DE CASTELLANO”;
LEER>>CAST;
MIENTRAS (CAST<1 OR CAST>10) HACER;
MOSTRAR<< “SOLO SE ACEPTAN NUMEROS DE 1 AL 10”;
LEER>>CAST;
FIN MIENTRAS
MOSTRAR<< “INGRESE SU NOTA DE CONTABILIDAD”;
LEER>>CONT;
MIENTRAS (CONT<1 OR CONT>10) HACER;
MOSTRAR<< “SOLO SE ACEPTAN NUMEROS DE 1 AL 10”;
LEER>>CONT;
FIN MIENTRAS
PROMEDIO=(FIS+ING+MAT+CAST+CONT) / 5;
PROM[I]=PROMEDIO;
AUX=PROMEDIO;
NOMBRES[I]=NAME;
EDADES[I]=EDAD;
EDADESCOP[I]=EDAD;
SI (EDAD>17) ENTONCES;
MAYORE=MAYORE+1
SINO
MENORE=MENORE+1;
FIN SI
SI (AUX>PROMAY) ENTONCES;
PROMAY=AUX;
FIN SI
FINPARA
FINPROCEDIMIENTO
PROCEDIMIENTO MENU(E/S:OP:ENTERO)
INICIO
MOSTRAR<< “ELIJA QUE ACCION DESEA TOMAR EN LA BASE DEE DATOS:”;
MOSTRAR<< “1. BUSCAR ESTUDIANTE POR SU NOMBRE Y SUS DATOS”;
MOSTRAR<< “2. VER CANTIDAD DE ESTUDIANTES MAYORES Y MENORES DE EDAD”;
MOSTRAR<< “3. VER EL PROMEDIO MAYOR DENTRO DE LA DATA”;
MOSTRAR<< “4. COPIAR EL VECTOR, ORDENAR DE MENOR A MAYOR LA COPIA E
IMPRIMIR AMBAS POR PANTALLA”;
MOSTRAR<< “5. IMPRIMIR TODOS LOS VECTORES”;
LEER>>OP;
MIENTRAS (OP<1 OR OP>5) HACER;
MOSTRAR<< “NO EXISTE TAL OPCION INGRESA OTRA”;
LEER>>OP;
FIN MIENTRAS
FIN PROCEDIMIENTO
PROCEDIMIENTO BUSQUEDA (E/S: NOMBRES[200]: CADENA, I, EDAD[200]:
ENTERO, PROM[200]: REAL)
INICIO
VAR: NOM: CADENA, FB: BOOLEANA;
REPETIR
MOSTRAR<< “INGRESE EL NOMBRE DEL ESTUDIANTE QUE DESEA BUSCAR”;
LEER<<NOM;
PARA (I=1 HASTA I=200) HACER;
SI (NOMBRES[I]=NOM) ENTONCES;
MOSTRAR<< ‘NOM’, “SE ENCUENTRA EN LA BASE DE DATOS, SE ENCUENTA EN
LA POSICION:”,I,”CON UN PROMEDIO DE:”,PROM[I], “Y CON UNA EDAD DE:”,
EDADES[I];
SI NO
MOSTRAR<< “ESTUDIANTE NO SE ENCUENTRA EN LA BASE DE DATOS”;
FINPARA
MOSTRAR<< “DESEA BUSCAR OTRO ESTUDIANTE? (1:SI 0:NO)”;
LEER>>FB;
HASTA (FB=0)
FINREPETIR
FINPROCEDIMIENTO
PROCEDIMIENTO MAYORES (E/S: MAYORE, MENORE:ENTERO)
INICIO
MOSTRAR<< “LA CANTIDAD DE ESTUDIANTES MAYORES DE EDAD EN LA DATA ES:”,
MENORE, “Y LOS LA DE MAYORES DE EDAD ES DE:”MAYORE;
FINPROCEDIMIENTO
PROCEDIMIENTO PROMEDIOMA (E/S: NOMBRES [200]: CADENA, PROM [200],
PROMAY: REAL,I:ENTERO)
INICIO
PARA (I=1 HASTA I=200) HACER;
SI (PROM[I]=PROMAY) ENTONCES;
MOSTRAR<< “EL ESTUDIANTE CON MAYOR PROMEDIO EN LA DATA ES:”,
‘NOMBRES[I]’, “CON UN PROMEDIO DE:”,PROMAY;
FIN SI
FIN PARA
FIN PROCEDIMIENTO
PROCEDIMIENTO COPIA (E/S:EDADESCOP[200],I:ENTERO)
INICIO
VAR:TOPE=ENTERO;
TOPE=200;
MIENTRAS (TOPE≠0) HACER
PARA (I=1 HASTA I=200) HACER;
SI (EDADESCOP[I]>EDADESCOP[I+1]) ENTONCES;
TEMP=EDADESCOP[I];
EDADESCOP[I]=EDADESCOP[I+1];
EDADES[I+1]=TEMP;
TOPE=TOPE-1;
FIN SI
FIN PARA
FIN PROCEDIMIENTO
PROCEDIMIENTO VECTORES (EDADES[200],EDADESCOP[200],I:ENTERO)
INICIO
PARA (I=1 HASTA I=200) HACER
MOSTRAR<< “AQUI SE TE MUESTRA EL VECTOR ORIGINAL:”, EDADES[I];
FIN PARA
PARA (I=1 HASTA I=200) HACER;
MOSTRAR<< “ Y AHORA EL VECTOR ORDENADO DE MENOR A
MAYOR:”,EDADESCOP[I];
FIN PARA
FINPROCEDIMIENTO
PROCEDIMIENTO FINAL (E/S: NOMBRES[200]: CADENA, EDADES[200], I: ENTEROS,
PROM[200]: REAL)
INICIO
PARA (I=1 HASTA I=200) HACER;
MOSTRAR<< “RESULTADOS FINALES:”;
MOSTRAR<< “NOMBRE:”, ‘NOMBRES[I]’;
MOSTRAR<< “EDAD:”,EDADES[I];
MOSTRAR<< “CON UN PROMEDIO DE:”,PROM[I];
FINPARA
FIN PROCEDIMIENTO
