Ayuda ejercicio pascal. URGENTE

Hola tengo que realizar un ejercicio en pascal par mi bastante complejo, me urge.
Este es el enunciado del ejercicio:
El programa deberá permitir gestionar su biblioteca particular. Si desea, y tras consultarlo con su tutor, podría modificar este programa para gestionar su colección de compactos (CD's), o de discos, o..
El programa deberá almacenar la información de cada libro:
-Titulo
-Autor
-Tema
-Precio
-Prestado:
    --Nombre de la persona a la que ha prestado un libro.
    -- Dirección de correo electrónico
    -- Fecha del préstamo
Las operaciones sobre su biblioteca serán:
   - Dar de alta
   - Dar de baja
   - Introducir datos de un préstamo
   - Modificar datos
   - Presentar listados de su biblioteca:
         -- Listado de todos los libros
         -- Listado de los libros prestados
         -- Listado con precios máximos, mínimos, la media y el valor total de su colección.
Será necesario usar un fichero para almacenar los datos de su colección.
Si me le podrías acer te lo agradecería muchísimo porque yo llevo intentándolo durante 2 semanas y nada. Gracias
Respuesta
1
Tengo un problema y es que estoy muy limitado con el tiempo
Pásame todo lo que hayas hecho, así puedo seguir a partid de ahí.
Todo caso, mandamelo a gabarenas at hotmail dot com
Ok ya te agregare, agrégame tu también. Soy:
[email protected]
Aquí te envío el ejercicio que me has pedido.(La opción 2 de dar de alta no me lo guarda en el archivo). Si me lo podrías acer te lo agradecería mucho, lo tengo que entregar como muy tard el sábado. Las opciones que no están como dar de baja, etc. sk no me salen ni pa adelante ni patras. Gracias
Program Gestion_biblioteca;
const
TAMCOLECCION=10;
type
Tbiblioteca= record
titulo: string;
autor: string;
tema: string;
precio: integer;
nombre: string;
correo_electronico: string;
fecha: string;
end;
Tcoleccion= array[1..TAMCOLECCION] of Tbiblioteca;
Tfichero= file of Tbiblioteca;
var
coleccion1: Tcoleccion;
libros: string;
opc: integer;
biblioteca: Tbiblioteca;
Procedure lee_biblioteca(var biblioteca: Tbiblioteca);
begin
writeln('Introduzca titulo: ');
readln(biblioteca.titulo);
writeln('Introduzca autor: ');
readln(biblioteca.autor);
writeln('Introduzca tema: ');
readln(biblioteca.tema);
writeln('Introduzca precio: ');
readln(biblioteca.precio);
writeln('Introduzca nombre de la persona: ');
readln(biblioteca.nombre);
writeln('Introduzca correo electronico de la persona: ');
readln(biblioteca.correo_electronico);
writeln('Introduzca la fecha del prestamo: ');
readln(biblioteca.fecha);
end;
Procedure imprime_biblioteca(var biblioteca: Tbiblioteca);
begin
writeln('Titulo: ', biblioteca.titulo);
writeln('Autor: ', biblioteca.autor);
writeln('Tema: ', biblioteca.tema);
writeln('Precio: ', biblioteca.precio);
writeln('Nombre de la persona: ', biblioteca.nombre);
writeln('correo electronico de la persona: ', biblioteca.correo_electronico);
writeln('la fecha del prestamo: ', biblioteca.fecha);
writeln('---------------');
end;
Procedure lee_coleccion(var coleccion: Tcoleccion;tam: integer);
var
i: integer;
begin
for i:= 1 to 3 do
lee_biblioteca(coleccion);
end;
Procedure imprime_coleccion(var coleccion: Tcoleccion;tam: integer);
var
i: integer;
begin
for i:= 1 to 3 do
imprime_biblioteca(coleccion);
end;
Procedure lee_fichero (libros: string;coleccion: Tcoleccion;tam: integer);
var
i: integer;
fichero: Tfichero;
begin
i:= 0;
assign(fichero, 'libros.txt');
reset(fichero);
while ( not(eof(fichero)) AND (i<tam) ) do begin
i := i+1;
read(fichero, coleccion1);
end;
close(fichero);
end;
Procedure graba_fichero (libros: string;coleccion: Tcoleccion;tam: integer);
var
i: integer;
fichero: Tfichero;
begin
assign(fichero, 'libros.txt');
rewrite(fichero);
for i:= 1 to tam do
write(fichero, coleccion1);
close(fichero);
end;
Function Menu: Integer;
Var
opc: integer;
Begin
repeat
writeln('Centro de control de prestamos');
writeln('-----------------------------------------');
writeln;
writeln(' 1. Lectura de datos por teclado y guardar la tabla en un fichero');
writeln(' 2. Dar de alta un prestamo y guardar la tabla en un fichero');
writeln(' 3. Dar de baja un prestamo y guardar la tabla en un fichero');
writeln(' 4. Introducir un nuevo prestamo y guardar la tabla en un fichero');
writeln(' 5. modificar datos de un prestamo y guardar la tabla en un fichero');
writeln(' 6. Guardar en un fichero');
writeln(' 7. Presentacion de los datos de la tabla leida del fichero');
writeln(' 8. Salir del programa');
readln(opc);
until (((opc>=1) and (opc <=7)) or (opc=8));
Menu := opc;
End;
begin
repeat
opc := Menu;
case opc of
1: begin
writeln('>Datos de la coleccion de libros');
lee_coleccion(coleccion1, TAMCOLECCION);
write('Introduca el nombre del fichero de datos: ');
readln(libros);
graba_fichero('libros.txt',coleccion1,TAMCOLECCION);
end;
2: begin
writeln('-----Prestamo a dar de alta----' );
writeln('Introduzca titulo: ');
readln(biblioteca.titulo);
writeln('Introduzca autor: ');
readln(biblioteca.autor);
writeln('Introduzca tema: ');
readln(biblioteca.tema);
writeln('Introduzca precio: ');
readln(biblioteca.precio);
writeln('Introduzca nombre de la persona: ');
readln(biblioteca.nombre);
writeln('Introduzca correo electronico de la persona: ');
readln(biblioteca.correo_electronico);
writeln('Introduzca la fecha del prestamo: ');
readln(biblioteca.fecha);
write('Introduca el nombre del fichero de datos: ');
readln(libros);
graba_fichero('libros.txt',coleccion1,TAMCOLECCION);
end;
3:begin
erase(
write('Introduca el nombre del fichero de datos: ');
readln(libros);
graba_fichero('libros.txt',coleccion1,TAMCOLECCION);
end;
7: begin
lee_fichero('libros.txt',coleccion1,TAMCOLECCION);
writeln('>Datos de la coleccon de libros');
imprime_coleccion(coleccion1, TAMCOLECCION);
end;
end;
until (opc=8);
end.
Program Gestion_biblioteca;
const
TAMCOLECCION=10;
type
Tbiblioteca= record
titulo: string;
autor: string;
tema: string;
precio: integer;
nombre: string;
correo_electronico: string;
fecha: string;
end;
Tcoleccion= array[1..TAMCOLECCION] of Tbiblioteca;
Tfichero= file of Tbiblioteca;
var
coleccion1: Tcoleccion;
libros: string;
opc: integer;
{ biblioteca: Tbiblioteca; }
Procedure lee_biblioteca(var biblioteca: Tcoleccion; var tam:Integer);
begin
inc(tam);
if ( tam > TAMCOLECCION )
Then Begin
WriteLn('Ha llegado al limite de almacenamiento.');
End
Else Begin
writeln('Introduzca titulo: ');
readln(biblioteca[tam].titulo);
writeln('Introduzca autor: ');
readln(biblioteca[tam].autor);
writeln('Introduzca tema: ');
readln(biblioteca[tam].tema);
writeln('Introduzca precio: ');
readln(biblioteca[tam].precio);
biblioteca[tam].nombre:='';
biblioteca[tam].correo_electronico := '';
biblioteca[tam].fecha := '';
{
writeln('Introduzca nombre de la persona: ');
readln(biblioteca[tam].nombre);
writeln('Introduzca correo electronico de la persona: ');
readln(biblioteca[tam].correo_electronico);
writeln('Introduzca la fecha del prestamo: ');
readln(biblioteca[tam].fecha);
}
end;
end;
Procedure prestar(var biblioteca:Tbiblioteca);
Begin
WriteLn('Prestando LIBRO:');
writeln('Titulo: ', biblioteca.titulo);
writeln('Autor: ', biblioteca.autor);
writeln('Tema: ', biblioteca.tema);
writeln('Precio: ', biblioteca.precio);
write('Nombre de la persona: ');
readLn(biblioteca.nombre);
write('correo electronico de la persona: ');
readln(biblioteca.correo_electronico);
write('Fecha: ');
readln(biblioteca.fecha);
End;
Procedure ModificarLibro(var biblioteca:Tbiblioteca);
Begin
writeln('Valores actuales');
writeln();
writeln('Titulo: ', biblioteca.titulo);
writeln('Autor: ', biblioteca.autor);
writeln('Tema: ', biblioteca.tema);
writeln('Precio: ', biblioteca.precio);
writeln('Nombre de la persona: ', biblioteca.nombre);
writeln('correo electronico de la persona: ', biblioteca.correo_electronico);
writeln('la fecha del prestamo: ', biblioteca.fecha);
writeln('---------------');
writeln();
writeln('Ingrese los nuevos valores');
writeln();
writeln('Introduzca titulo: ');
readln(biblioteca.titulo);
writeln('Introduzca autor: ');
readln(biblioteca.autor);
writeln('Introduzca tema: ');
readln(biblioteca.tema);
writeln('Introduzca precio: ');
readln(biblioteca.precio);
writeln('Introduzca nombre de la persona: ');
readln(biblioteca.nombre);
writeln('Introduzca correo electronico de la persona: ');
readln(biblioteca.correo_electronico);
writeln('Introduzca la fecha del prestamo: ');
readln(biblioteca.fecha);
End;
Procedure imprime_biblioteca(var biblioteca: Tbiblioteca);
begin
writeln('Titulo: ', biblioteca.titulo);
writeln('Autor: ', biblioteca.autor);
writeln('Tema: ', biblioteca.tema);
writeln('Precio: ', biblioteca.precio);
if (biblioteca.nombre <> '')
Then Begin
writeln('Nombre de la persona: ', biblioteca.nombre);
writeln('correo electronico de la persona: ', biblioteca.correo_electronico);
writeln('la fecha del prestamo: ', biblioteca.fecha);
End;
writeln('---------------');
end;
Procedure listado(var coleccion: Tcoleccion;tam: integer; prestados:boolean);
var
i: integer;
begin
for i:= 1 to tam do
if (prestados)
then if (coleccion.nombre <> '')
then imprime_biblioteca(coleccion)
else
else imprime_biblioteca(coleccion)
end;
procedure estadistica(coleccion: Tcoleccion;tam: integer);
Var
i:Integer;
max, min, total:Real;
Begin
max:=coleccion[1].precio;
min:=max;
total:=0;
for i:=1 to tam do
Begin
if ( coleccion.precio > max ) then max:=coleccion.precio;
if ( coleccion.precio < min ) then min:=coleccion.precio;
total:=total + coleccion.precio;
End;
WriteLn('Valores estadisticos:');
WriteLn('El mayor valor es de : ' , max:5:2);
WriteLn('El menor valor es de : ' , min:5:2);
WriteLn('El valor medio es de : ' , (total / tam):5:2);
WriteLn('El valor total de la coleccion es de : ' , total:5:2);
End;

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como utilizar lenguaje ensamblador con pascal

Quisiera saber sobre programación híbrida. Como utilizar lenguaje ensamblador con pascal. Y como utilizar macros en lenguaje ensamblador. Si alguien sabe. Por favor díganme, necesito saber sobre este tema
2 respuestas

Establecer varios máximos o mínimos en Pascal

Estoy en mi primer año de Ingeniería Informática y necesito ayuda para identificar y comparar máximos y mínimos (más de uno). Por ejemplo, me dan una lista (es decir, dispongo de ella) con distintos valores (enteros, reales, lo que fuera) y creo un...
1 respuesta

Eliminar repetidos secuenciales en un array

Quería saber como podría solucionar el siguiente programita: Como eliminar de un arreglo de enteros los elementos que aparezcan repetidos secuencialmente, dejando solo los primeros de la secuencia A1=111 2 1 5 66 Aresultante = 1 2 1 5 6 Me gustaría...
1 respuesta

¿Alguien me podría ayudar con pascal?

Tengo un problema con un ejercicio de pascal, no lo entiendo y no se como sacar lo que me pide. Desearía un poco de ayuda por parte de los expertos, en fin el ejercicio dice así: ""Diseñar un algoritmo que lea un arreglo bidimensional de datos...
1 respuesta

Estoy aprendiendo a programar en Pascal y me he encontrado con un pequeño problema

Quizá este muy usada la frese, pero estoy aprendiendo a usar pascal y me he encontrado con un pequeño problema, ojala me ayudes a resolverlo. Deseo convertir grados Celsius a Fahrenheit y viceversa mediante un programa, he realizado este código pero...
1 respuesta

Ayuda pascal

¿Una preguntica tu de casualidad has llegado a programar un sudoku en pascal?
1 respuesta

Duda pascal... Carga de archivo

Otra vez... Mira esta vez vengo a preguntarte si yo hago un block de notas y lo cargo a pascal (por la carga de archivo)... Pascal me imprime por pantalla lo que yo tengo en el block Ejemplo ¿Tengo en el block de notas la palabra HOLA... Y lo...
1 respuesta

Una duda con las matrices en pascal

Mi problema esta en como puedo hacer para que un usuario me pida una matriz NxM y el programa me la llene automáticamente... También puede ser que el usuario la llene pero me interesa más que la llene el programa por si solo Osea cual es la...
2 respuestas

Otra duda con las matrices

Otra vez con otra duda con las matrices de pascal esta vez necesito saber como recorrer una matriz... Pero solamente las columnas impares... Partiendo de un punto que el usuario ingresa por pantalla A los números que introduce el usuario los llame...
1 respuesta

Árbol binario en pascal

Como estas, soy nuevo acá, me cree la cuenta ayer así que no se bien como es esto pero bueno, pasemos al pedido. Necesitaría hacer una unidad en pascal de un árbol binario con sus funciones y procedimientos como insertar, ver (preorden, inorden,...
1 respuesta