{Fíjate que tenemos solo 40 transportes que asignar cada uno es un numero. El menú te permitirá moverte por los datos pero al salir del programa todo se anula puesto
que estamos trabajando solo con registros en un array de 40 registros.}
program transpot;
uses
crt;
const
transportes = 40;
type
viajeros = record
nombre : string[60];
dni : longint;
trans : integer;
fecha : string[10];
end;
var
via, viajes : array[0..transportes] of viajeros;
f : file of viajeros;
datos : viajeros;
i : integer;
tecla : char;
function assignado(n : longint) : boolean;
var
p : integer;
begin
if i > 0 then
begin
assignado := false;
for p := 0 to i - 1 do
if viajes[p].dni = n then
assignado := true;
end;
end;
procedure assigna_transporte;
begin
clrscr;
writeln('*** Entrada viajeros ***'); writeln;
write(' Entre Nombre : '); readln(viajes[i].nombre);
write(' Entre DNI : '); readln(viajes[i].dni);
if assignado(viajes[i].dni) = true then
begin
writeln;
writeln(' :::::::: El Pasajero Esta Asignado Ya :::::::::'); writeln(' ******** Pulse Una Tecla *********'); readkey;
end
else
begin
write(' Entre Nm Transporte : '); readln(viajes[i].trans);
write(' Entre Fecha Dia/Mes/A¤o : '); readln(viajes[i].fecha);
i := i + 1;
if i > transportes then
i := transportes;
writeln;
writeln(' Desea Entrar Mas Pasajeros [S/N]'); repeat
tecla := upcase(readkey);
until tecla in['S','N'];
if tecla = 'S' then
begin
assigna_transporte;
end;
end;
end;
procedure verdatosentrados;
var
k : integer;
begin
clrscr;
if i > 0 then
begin
for k := 0 to i - 1 do
begin
writeln(' ',viajes[k].nombre,' | ',viajes[k].dni,' | ', viajes[k].trans,' | ',viajes[k].fecha);
end;
writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
end;
procedure localizarpasajero;
var
dn : longint;
p : integer;
encont : boolean;
begin
clrscr;
encont := false;
writeln(' **** Entre DNI Pasajero A Localizar ****'); writeln;
write(' Num. DNI : '); readln(dn);
for p := 0 to i - 1 do
begin
if viajes[p].dni = dn then
begin
encont := true;
break;
end;
end;
if encont = true then
begin
clrscr;
gotoxy(5,2);write('<<<< Datos Del Pasajero DNI ',dn,' >>>>'); gotoxy(5,4);write(' Nombre '); gotoxy(30,4);write('DNI'); gotoxy(40,4);write('Transporte'); gotoxy(60,4);write('Fecha'); gotoxy(5,5);write(viajes[p].nombre);
gotoxy(30,5);write(viajes[p].dni);
gotoxy(40,5);write(viajes[p].trans);
gotoxy(60,5);write(viajes[p].fecha);
gotoxy(25,7);write('Pulse Una Tecla'); end
else
begin
clrscr;
writeln('DNI Pasajero No Encontrado Pulse Una Tecla'); end;
readkey;
end;
procedure anulareserva;
var
dn : longint;
t, p, k : integer;
ted : char;
no : boolean;
begin
clrscr;
no := true;
writeln('**** Anulacion Reserva ****'); writeln;
write(' Entre DNI : '); readln(dn);
for k := 0 to i - 1 do
begin
if viajes[k].dni = dn then
begin
writeln(' **** La Reserva Del DNI : ',dn,' Se Anula [S/N] ****'); repeat
ted := upcase(readkey);
until ted in['S','N'];
if ted = 'S' then
begin
t := 0;
for p := 0 to i - 1 do
if p <> k then
begin
via[t] := viajes[p];
t := t + 1;
end;
i := i - 1;
for k := 0 to t do
viajes[k] := via[k];
end;
no := false;
break;
end;
end;
if no = true then
begin
writeln(' Numero DNI No Encontrado Pulse Una Tecla'); end;
end;
procedure modificaciondatos;
var
z : integer;
dn : longint;
enc : boolean;
te : char;
begin
clrscr;
enc := false;
writeln(' **** Modificacion Reserva ****'); writeln;
write(' Entre Num. DNI : '); readln(dn);
for z := 0 to i - 1 do
begin
if viajes[z].dni = dn then
begin
enc := true;
break;
end;
end;
if enc = true then
begin
clrscr;
writeln('*** Entrada viajeros ***'); writeln;
write(' Entre Nombre : '); readln(via[0].nombre);
write(' Entre DNI : '); readln(via[0].dni);
if assignado(via[0].dni) = true then
begin
writeln;
writeln(' :::::::: El Pasajero Esta Asignado Ya :::::::::'); writeln(' ******** Pulse Una Tecla *********'); readkey;
end
else
begin
write(' Entre Nm Transporte : '); readln(via[0].trans);
write(' Entre Fecha Dia/Mes/A¤o : '); readln(via[0].fecha);
writeln;
writeln(' <<<< Datos Correctos [S/N] >>>>'); repeat
te := upcase(readkey);
until te in['S','N'];
if te = 'S' then
begin
viajes[z] := via[0];
end;
end;
end
else
begin
writeln(' Num. DNI No Encontrado Pulse Una Tecla'); readkey;
end;
end;
procedure menu;
var
sal : boolean;
tec : char;
begin
sal := false;
repeat
clrscr;
writeln(' ****** Menu Jeneral ******'); writeln;
writeln(' 1 : Asignacion Transporte'); writeln(' 2 : Ver Estado Trasportes'); writeln(' 3 : Ver Estado Pasajero'); writeln(' 4 : Anular Asignacion Transporte'); writeln(' 5 : Modificar Asignacion Transporte'); writeln(' 6 : Salir'); writeln;
writeln(' <<<< Elija Opcion >>>>'); repeat
tec := readkey;
until tec in['1','2','3','4','5','6'];
clrscr;
case tec of
'1' : assigna_transporte;
'2' : verdatosentrados;
'3' : localizarpasajero;
'4' : anulareserva;
'5' : modificaciondatos;
'6' : sal := true;
end;
until sal = true;
end;
begin
i := 0;
menu;
end.
Crear cuenta