Caso de prueba 1: Arreglos

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