Algoritmo club de video

Resolución ejercicio club de video

Algoritmo club de video
Declaración de tipos de datos
Película= registro de
Nombre, Genero: cadena
Año: entero
Fin registro
Alquiler= registro deNompeli, Nomcliente: cadena
Fecha: arreglo[3] de entero
Fin registro
Archivo_pelicula= archivo de Pelicula
Archivo_alquiler= archivo de Alquiler

Declaración de variables
Opc: entero
archiP:Archivo_pelicula
archiA: Archivo_alquiler
inicio
asociar (archiP, “Peliculas.dat”)
asociar (archiA, “Alquiladas.dat”)
si (existe_archivo (“Peliculas.dat”)=falso) entonces
crear (archiP)fin si
si (existe_archivo (“Alquiladas.dat”)=falso) entonces
crear (archiA)
fin si
repetir
escribir “MENU”
escribir “1. Registrar película”
escribir “2. Alquilar película”
escribir“3. Mostrar películas disponibles”
escribir “4. Mostrar películas alquiladas”
escribir “5. Eliminar película”
escribir “6. Devolver película”
escribir “7. Salir”
escribir “Ingrese opción:“
leer opc
caso opc sea
1: Ingresar (archiP)
2: Alquilar (archiP, archiA)
3: Listado_disponibles (ArchiP, archiA)
4: Listado_alquiladas (ArchiA)
5: Eliminar_pelicula(ArchiP,archiA)
6: Devolver_pelicula(ArchiA)
hasta (opc=7)
escribir “Gracias! Hasta luego!)
FIN

Procedimiento Ingresar (archiP: Archivo_pelicula)
Declaración de variables
Peli: PeliculaInicio
Abrir (archiP)
Mientras (FDA(archiP)=falso) hacer
Leer (Peli, archiP)
Fin mientras
Escribir “Ingrese nombre de la peli”
Leer Peli.Nombre
Escribir “Ingrese genero de la peli”
LeerPeli.Genero
Escribir “Ingrese año de la peli”
Leer Peli.Año
Grabar (Peli, archiP)
Cerrar (archiP)
Fin procedimiento

Procedimiento alquilar (archiP: Archivo_pelicula, archiA:Archivo_alquiler)
Declaración de variables
Peli: Pelicula
Alqui: Alquiler
Disponible:booleano
Existe:booleano
NPel:cadena
Inicio
Abrir (archiP)
Abrir(archiA)
Disponibleverdadero
Existefalso...