Saludos, estoy desarrollando un programa de una estación de trenes.
Me piden una aplicación que gestione dicha estación de tren así como avisar de los posibles retrasos.El programa tiene que guardar de cada tren su numero identificador, la fecha de llegada,hora de llegada real,hora prevista de llegada y estación de destino.
Empezé a desarrollarlo pero me ha dadociertos errores.
Por favor si alguien me los puede solucionar estaré eternamente agradecido
Un saludo.
Cita:
program estacion_tren;
{$APPTYPE CONSOLE}
uses
SysUtils;
Const
Nmax=50;
Type
t_fecha=record
dia:1..31;
mes:1..12;
ano:1900..2100;
t_hour=record
hora:0..23;
minuto:0..59;
segundo:0..59;
t_tren:record
codigo:string[6];
estacion_destino:string[25];
fecha_llegada:t_data;
puntualidad:boolean;
hora_llegada_est:t_hour;
hora_llegada_real:t_hour;
end;
t_indice:array[1..Nmax];
t_estacion : Array[t_index] of t_tren;
var
i:integer;
begin
write('Escribe el Codigo del tren: ');
readln(tren[i].codigo);
write('Escribe la estacion de destino: ');
readln (tren[i].estacion_destino);
write('Escribe la fecha real de llegada: ');
readln (tren[i].fecha_entrada_real);
write('Escribe la hora real de entrada: ');
readln (tren[i].hora_llegada_real);
write('Escribe la hora estimada de llegada: ');
readln (tren[i].hora_llegada_est);
readln;
end.
|