Ayuda para un programa que gestione los vehículos de un parking privado
Publicado por ivan (1 intervención) el 18/12/2016 12:27:58
Buenas. Es una practica que necesito para aprobar. El problema es que no se como hacerla. Ademas mi compañero de grupo me ha dejado tirado con todo el trabajo a mi. No me gusta recurrir a pedir trabajos hechos, pero la falta de tiempo y las circunstancias no me dejan otra salida. Lo ideal seria que me explicaseis como hacerlo, pero si podeis hacer los dos primeros apartados con una breve explicacion me seria de gran ayuda para intentar hacer yo el resto.
Adjunto las imagenes
(He censurado la parte de datos personales)
Ademas pide lo siguiente:
Es OBLIGATORIO utilizar estos tipos de datos en el programa
–no pueden ser modificados ni añadir tipos nuevos bajo ningún
concepto, -:
Si alguien pudiera ayudarme se lo agradeceria de todo corazon. Si no me temo que tendre que esperar un año mas a cambiarme de carrera.
Muchas gracias por leerlo ^^
Adjunto las imagenes
(He censurado la parte de datos personales)
Ademas pide lo siguiente:
Es OBLIGATORIO utilizar estos tipos de datos en el programa
–no pueden ser modificados ni añadir tipos nuevos bajo ningún
concepto, -:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
CONST
LONGMATRICULA = 7; {longitud matricula}
NUMCARMARCA = 15; {numero caracteres campo marca}
NUMCARCOLOR = 20; {numero caracteres campo color}
LONGTELEFONO = 9; {longitud teléfono}
LONGDNI = 9; {longitud dni}
MAXVEHICULOS = 100; {número máximo de vehiculos}
MAXCONDUCTORES = 100; {número máximo de conductores}
TYPE
tMatricula = string[LONGMATRICULA];
tMarca = string[NUMCARMARCA];
tColor = string[NUMCARCOLOR];
tDni = string[LONGDNI];
tTelefono = string[LONGDNI];
{tipo vehículo}
tVehiculo = RECORD matricula : tMatricula; marca : tMarca; color : tColor; dni : TDni;END;
{tipo conductor}
tConductor = RECORDnombreApellidos, email : string;
telefono : tTelefono; dni : TDni;END;
{tipo lista de vehículos}
tIndiceVehiculos = 1..MAXVEHICULOS;
tListaVehiculos = ARRAY [tIndiceVehiculos] OF tVehiculo;
{Array parcialmente lleno para vehículos autorizados y para vehículos aparcados} tVehiculosRegistrados = RECORDvehiculos: tListaVehiculos;tope : integer;END;
{tipo lista de conductores}
tIndiceConductores = 1..MAXCONDUCTORES;
tListaConductores= ARRAY [tIndiceConductores] OF tConductor;
{Array parcialmente lleno para conductores autorizados}
tConductoresRegistrados = RECORDconductores: tListaConductores;tope : integer;END;
{tipo archivo binario}
tArchivoVehiculos = FILE OF tVehiculo;tArchivoConductores = FILE OF tConductor;Si alguien pudiera ayudarme se lo agradeceria de todo corazon. Si no me temo que tendre que esperar un año mas a cambiarme de carrera.
Muchas gracias por leerlo ^^
Valora esta pregunta
0