Título: Problema con menu de Pascal Publicado por: manu3742 en 14 Abril 2011, 13:58 pm Código Hola de nuevo amigo, al compilar el programa me da dos errores en el menú. Os cuento... tengo un menu para un programa y un submenu que quiero enlazar si es que se puede. He puesto donde me da error cual sería la solución? gracias y saludos BEGIN repeat opc:= Menu; case opc of 1: lee_libro(libro); 2: busca_datos(biblioteca, TAMBIBLIOTECA, buscado); 3: lee_prestamos(prestado); 4: busca_datos(biblioteca, TAMBIBLIOTECA, buscado); 5: begin writeln('Introduzca el nombre del fichero de datos: '); readln(nombre); graba_fichero(nombre, biblioteca, TAMBIBLIOTECA); end; 6: begin writeln('Introduzca el nombre del fichero: '); readln(nombre); lee_fichero(nombre, biblioteca, TAMBIBLIOTECA); end; 7: opc1; (* ME DA ERROR *) end; until(opc=8); repeat opc1:= Submenu; case opc1 of 9: imprime_libros(biblioteca, TAMBIBLIOTECA); 10: imprime_prestados(prestado, TAMBIBLIOTECA); 11: begin writeln('--------------------------------------------------------------'); writeln('LISTADO DE PRECIOS MAXIMOS, MINIMOS, LA MEDIA Y EL VALOR TOTAL'); writeln('--------------------------------------------------------------'); writeln('Valor máximo: '); maximo(biblioteca, TAMBIBLIOTECA); writeln('Valor mínimo: '); minimo(biblioteca, TAMBIBLIOTECA); writeln('Valor medio: '); media(biblioteca, TAMBIBLIOTECA); writeln('Valor total Biblioteca'); suma_coleccion(biblioteca, TAMBIBLIOTECA); end; 12: opc; (* ME DA ERROR *) end; until(opc1=12); END. Título: Re: Problema con menu de Pascal Publicado por: Khronos14 en 14 Abril 2011, 16:11 pm Empieza por declarar las variables... además utiliza GeSHi para resaltar el código en tus mensajes.
Saludos. |