Problema con programa en Pascal
Publicado por Ixix (1 intervención) el 07/09/2005 18:36:36
Tengo esta practica de pascal atravesada y necesitaría de la sapiencia de alguien, para resolver el apartado C. Esque está muy mal redactada.
Es lo siguiente:
Type
Tcad15=packed array[1..15]of char;
Tvector=Array[1..20] of Tcad15;
Tlinea=Record
NumEstac:2..20;
Estaciones:TVector;
End;
(*NUmEstac contiene la cantidad de componentes almacenados es Estaciones. Estaciones contiene el nombre de las distitnas estaciones de una linea de metro*)
TMetro=ARRAY[1..18]of Tlinea;
(*almacena los datos de las 18 lineas de metro de una ciudad*)
TRCamino=Record
Principio,Final:Tcad15;
NLinea1,NLinea2:0..18 (* almacena el número de una línea de metro*)
end; (*0 representa una linea sin utilizar*)
TFCamino=File of TRCamino;
Y dado el siguiente subprograma(este procedimiento se podrá utilizar pero no hay que codificarlo):
Procedure LeerPalabra(Var F.textm,Var Pal:Tcad15);
(*lee del fichero de texto F una palabra y la almacena en Pal. Las características del fichero de texto se describen en el apartado d*)
Escribir en Pascal los siguientes subprogramas (leer nota del final):
a) FUncion que determine si un valor del tipo Tcad15 es una estación de una línea del metro, es decir, está representado en un componente del campo Estaciones de un registro del tipo Tlinea.
b)Procedimiento que determine si dos lineas L1 y L2 (registros del tipo Tlinea) tienen alguna estación en común. Deberá finalizar el recorrido del vector estaciones
al encontrarse la primera estación común).
c) Subprograma que determine si un valor del tipo TRCamino es correcto, es decir, se puede ir de Principio a FInal utilizando o sólo la Nlinea1, o primero la Nlinea1 y después la
NLinea2. Si una linea de metro no se utiliza contiene el valor cero.
d)Subprograma que lea un fichero de texto con los datos de distintos caminos y genere un fichero binario, de tipo TFCamino, con los caminos correctos
(definidos en el apartado c). En cada linea del fichero de texto están grabados los datos de un camino, cada línea tiene uno de los dos siguientes
formatos:
palabra palabra numero numero
palabra palabra numero
(espacio en blanco entre cada palabra).
NOTA IMPORTANTE: para cada apartado y siemper que sea posible, se tendrán que utilizar los subprogramas definidos en los apartados anteriores.
Es lo siguiente:
Type
Tcad15=packed array[1..15]of char;
Tvector=Array[1..20] of Tcad15;
Tlinea=Record
NumEstac:2..20;
Estaciones:TVector;
End;
(*NUmEstac contiene la cantidad de componentes almacenados es Estaciones. Estaciones contiene el nombre de las distitnas estaciones de una linea de metro*)
TMetro=ARRAY[1..18]of Tlinea;
(*almacena los datos de las 18 lineas de metro de una ciudad*)
TRCamino=Record
Principio,Final:Tcad15;
NLinea1,NLinea2:0..18 (* almacena el número de una línea de metro*)
end; (*0 representa una linea sin utilizar*)
TFCamino=File of TRCamino;
Y dado el siguiente subprograma(este procedimiento se podrá utilizar pero no hay que codificarlo):
Procedure LeerPalabra(Var F.textm,Var Pal:Tcad15);
(*lee del fichero de texto F una palabra y la almacena en Pal. Las características del fichero de texto se describen en el apartado d*)
Escribir en Pascal los siguientes subprogramas (leer nota del final):
a) FUncion que determine si un valor del tipo Tcad15 es una estación de una línea del metro, es decir, está representado en un componente del campo Estaciones de un registro del tipo Tlinea.
b)Procedimiento que determine si dos lineas L1 y L2 (registros del tipo Tlinea) tienen alguna estación en común. Deberá finalizar el recorrido del vector estaciones
al encontrarse la primera estación común).
c) Subprograma que determine si un valor del tipo TRCamino es correcto, es decir, se puede ir de Principio a FInal utilizando o sólo la Nlinea1, o primero la Nlinea1 y después la
NLinea2. Si una linea de metro no se utiliza contiene el valor cero.
d)Subprograma que lea un fichero de texto con los datos de distintos caminos y genere un fichero binario, de tipo TFCamino, con los caminos correctos
(definidos en el apartado c). En cada linea del fichero de texto están grabados los datos de un camino, cada línea tiene uno de los dos siguientes
formatos:
palabra palabra numero numero
palabra palabra numero
(espacio en blanco entre cada palabra).
NOTA IMPORTANTE: para cada apartado y siemper que sea posible, se tendrán que utilizar los subprogramas definidos en los apartados anteriores.
Valora esta pregunta
0