Mattoru-un

Caso de prueba 1: Arreglos En la biblioteca de la facultad de ingeniería, se quiere almacenar en un vector de 10 elementos 8 grandes áreas o disciplinas, en orden alfabético, para ello se requiere construir un programa que permita insertar las áreas y además los libros que pertenezcan a cada una de ellas para el año 2014. El algoritmo debe presentar la cantidad de libros en cada una de las áreas, además de un rango entre las cantidades mínimas y máximas adquiridas durante el año 2014 en cada disciplina. Los contenidos sucesivos del vector son los siguientes: Adicional se requiere insertar en una nueva posición otra área entre la posición 4 y 5, es decir entre cálculo y programación estructurada, insertar el área Estadística, entonces se deberán desplazar hacia abajo, el algoritmo debe permitir que se puedan insertar n elementos, a esa posición a la que se inserte un nuevo elemento la llamaremos I. De igual manera como se inserta elementos en el vector, también debe permitir borrar alguno de sus elementos. Arreglo[20] de Cadena[30] area Entero i,j,cant,h,pos,f,ele,uc,uc2,posEli Cadena[30] aux,opc,opc2,libro,aux2,aux3,aux4,aux5,aux6,aux7,aux8,aux9,aux10,opc3 Procedimiento ingresar_libros Inicio cant<-0 uc<-0 uc2<-0 Escriba "Desea Ingresar un libro ( si / no ): " Lea opc2 Mientras opc2 <> "no" Haga Escriba "Ingrese nombre del libro : " Lea libro cant<-cant+1 Escriba "Desea Ingresar un nuevo libro ( si / no ): " Lea opc2 Fin Mientras Escriba "La cantidad de libros en esta area es:",cant Llamar Nueva_Linea cant<-0 Fin Inicio Escriba "Digite Cantidad de elementos : " Lea ele Para i<-1 Hasta ele Haga Llamar Nueva_Linea Escriba "Ingrese area [",i,"] : " Lea area Llamar ingresar_libros opc2<-"SI" Fin Para Para i<-1 Hasta ele Haga Para j<-i+1 Hasta ele Haga Si area > area[j] Entonces aux<-area area<-area[j] area[j]<-aux Fin si Fin Para Fin Para Llamar Nueva_Linea Para i<-1 Hasta ele Haga Escriba i,". ",area Llamar Nueva_Linea Fin Para Llamar Nueva_Linea Escriba "Desea agregar una nueva area ( si / no ) : " Lea opc Mientras opc <> "no" Haga ele<-ele+1 Escriba "Que posicion desea Ingresar : " Lea pos Escriba "Ingrese nueva area : " Lea area aux<-area[pos] aux2<-area[pos+1] aux3<-area[pos+2] aux4<-area[pos+3] aux5<-area[pos+4] aux6<-area[pos+5] aux7<-area[pos+6] aux8<-area[pos+7] aux9<-area[pos+8] area[pos]<-area area[pos+1]<-aux area[pos+2]<-aux2 area[pos+3]<-aux3 area[pos+4]<-aux4 area[pos+5]<-aux5 area[pos+6]<-aux6 area[pos+7]<-aux7 area[pos+8]<-aux8 area[pos+9]<-aux9 Llamar ingresar_libros Para i<-1 Hasta ele Haga Escriba i,". ",area Llamar Nueva_Linea Fin Para Escriba "Desea agregar una nueva area ( si / no ) : " Lea opc Fin Mientras Escriba "Desea eliminar un area ( si / no ):" Lea opc3 Mientras opc3 <> "no" Haga Escriba "Digite la posicion del area que desea ELIMINAR : " Lea posEli area[posEli]<-area[posEli+1] area[posEli+1]<-area[posEli+2] area[posEli+2]<-area[posEli+3] area[posEli+3]<-area[posEli+4] area[posEli+4]<-area[posEli+5] area[posEli+5]<-area[posEli+6] area[posEli+6]<-area[posEli+7] area[posEli+7]<-area[posEli+8] area[posEli+8]<-area[posEli+9] area[posEli+9]<-area[posEli+10] area[posEli+10]<-area[posEli+11] ele<-ele-1 opc3<-"no" Fin Mientras Para i<-1 Hasta ele Haga Escriba i,". ",area Llamar Nueva_Linea Fin Para Fin