programa ejercicio

TIPOS ESTRUCTURADOS

película : record
  idPelicula: integer
  nombre: String [20]
  categoria: String [10]
  primerLetra:char
end.

vecInfantil[25]:pelicula
vecScifi[25]:pelicula
vecDrama[25]:pelicula
vecComedia[25]:pelicula
vecTerror[25]:película
end.

VAR
pelInf: vecInfantil
pelScifi: vecScifi
pelDram: vecDrama
pelCom: vecComedia
pelTer: vecTerror
cat: integer
rta,letra: char

//CARGA UN VECTOR RECIBIENDO UNA CATEGORIA Y UN VECTOR COMO PARAMETROS
Procedimiento cargar (REF unVector[25]:película; unaCategoria:String[10])
 VAR
  nom: string[20]
  primerLetra, rta: char
  idPelicula, aux: integer
HACER
aux:=0
Imprimir “Desea ingresar una película s/n”
leer (rta)
Repetir Mientras (rta=si) and (aux < 25)
    Imprimir “Ingrese el nombre de la película”
    leer (nom)
    Imprimir “Ingrese la primer letra del nombre”
    leer (primerLetra)
    Imprimir “Ingrese el código ID de la película”
    Leer (idPelicula)
unVector[aux].nombre:=nom
	unVector[aux].categoria:=unaCategoria
	unVector[aux].idPelicula:=idPelicula
	unVector[aux].primerLetra:=primerLetra
    aux:= aux+1
    Imprimir “Desea ingresar otra película s/n”
    leer (rta)
 FinRepetirMientras
FinProcedimiento



//INICIALIZAR VECTOR
Procedimiento inicializar(unVector[25]:película)
VAR
HACER
 For (int i=0,i<25,i++) Do
  unVector[i].nombre:=’nil’
  unVector[i].idPelicula:=0
  unVector[i].primerLetra:=’ ‘
  unVector[i].categoria:=’nil’
  end
finHacer
FinProcedimiento


//DEVUELVE CANTIDAD DE PELICULAS EN EL VECTOR
Función verCantidad (unVector[25]:película):integer
VAR
 fin: boolean
 i, cont: integer
HACER
     Cont:=0
     i:=0
     Repetir Mientras (fin=false) and (i<25)
          SI (unVector[i].nombre <> ‘nil’) ENTONCES
Cont:=cont+1
i:=i+1
           SINO
	fin:=true
           finSi
  finRepetirMientras
 verCantidad:=cont
FinFuncion

//MUESTRA ID Y NOMBRE DE LAS PELICULAS DEL VECTOR
Procedimiento mostrar (unVector[25]:película)
VAR
HACER
FOR (int i=0; i<25; i++) DO
  SI (unVector[i].nombre <> ‘nil) ENTONCES
	Imprimir “El nombre de la película es ”+unVector[i].nombre
	Imprimir “El código ID de la película es”+unVector[i].idPelicula
  FinSi
 end
finHacer
finProcedimiento





//MUESTRA TODAS LAS PELICULAS QUE EMPIEZAN CON DETERMINADA LETRA
Procedimiento mostrarPrimerletra (unVector[25]:película, unaLetra:char)
VAR
tope,aux :integer
HACER
aux:=0
tope:=verCantidad(unVector)
REPETIR MIENTRAS (AUX < TOPE)
  SI (unVector[aux].primerLetra = letra) ENTONCES
	Imprimir: “TITULO: “+unVector[aux].nombre
  finSI
  aux:=aux+1
FinRepetirMientras
FinHacer
FinProcedimiento


//CUERPO PRINCIPAL
HACER
Inicializar(pelInf)
Inicializar(pelScifi)
inicializar(pelDram)
inicializar(pelCom)
inicializar(pelTer)
//CARGA DE LOS VECTORES
Imprimir  ”Desea cargar películas s/n”
leer(rta)
RepetirMientras (rta=’s’)
Imprimir “Ingrese de que categoría desea cargar:”
Imprimir ”1)DRAMA  2)SCI-FI 3)TERROR 4)COMEDIA 5)INFANTIL”
leer (cat)
CASO (cat) HACER
 1: Hacer
      cargar (pelDram, ”drama”)
      finHacer
2: Hacer
      cargar (pelScifi, ”sci-fi”)
      finHacer
3: Hacer
      cargar (pelTer, ”terror”)
      finHacer
4: Hacer
      cargar (pelCom, ”comedia”)
      finHacer
5: Hacer
      cargar (pelInf, ”infantil”)
      finHacer
FinCaso
Imprimir “desea cargar otra categoría? s/n”
leer (rta)

FinRepMientras

//RESUELVO CANTIDAD DE PELICULAS POR CATEGORIA
Imprimir “Hay :”+verCantidad(pelDram)+” películas de drama”
Imprimir “Hay :”+verCantidad(pelCom)+” películas de comedia”
Imprimir “Hay :”+verCantidad(pelInf)+” películas de infantil”
Imprimir “Hay :”+verCantidad(pelScifi)+” películas de sci-fi”
Imprimir “Hay :”+verCantidad(pelter)+” películas de terror”

//MUETRO TODAS LAS PELICULAS DE LA CAT INFANITL
Imprimir “Se mostrarán las películas de categoría infantil”
mostrar (pelInf)

//MUESTRO TODAS LAS PELICULAS CUYO NOMBRE EMPIEZAN CON ‘LETRA’
Imprimir ”ingrese una letra para mostrar”
leer (letra)
mostrarPrimerletra (pelDram,letra)
mostrarPrimerletra (pelCom,letra)
mostrarPrimerletra (pelTer,letra)
mostrarPrimerletra (pelInf,letra)
mostrarPrimerletra (pelScifi,letra)



FINHACER