Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program grandt;
- uses AyPDT, CRT;
- const
- FECHAS_TORNEO = 19;
- EQUIPOS = 20;
- JUGADORES = 623;
- MAX_USUARIOS = 10;
- PRESUPUESTO = 60000000;
- SEPARADORH = '--------------------------------------------------------------------------------';
- var
- jugadoress:tListaJugadores;
- jugador:tJugador;
- posicion:tPosicion;
- seleccion:byte;
- i:integer;
- function OrdenarSecuencial(mayoramenor:boolean;eleccion:string):tListaJugadores;
- //Ordena la Lista de Jugadores segun un parametro, 0 en el argumento1 "de menor a mayor, 1 en el argumento1 "de mayor a menor".
- var
- aux : tJugador;
- i,j : integer;
- begin
- if eleccion='precio' then
- for i:=1 to JUGADORES-1 do
- for j:=i+1 to JUGADORES do
- if mayoramenor then
- begin
- if jugadoress[i].precio<jugadoress[j].precio then
- begin
- aux:=jugadoress[i];
- jugadoress[i]:=jugadoress[j];
- jugadoress[j]:=aux;
- end;
- end
- else
- begin
- if jugadoress[i].precio>jugadoress[j].precio then
- begin
- aux:=jugadoress[i];
- jugadoress[i]:=jugadoress[j];
- jugadoress[j]:=aux;
- end;
- end;
- if eleccion='id' then
- for i:=1 to JUGADORES-1 do
- for j:=i+1 to JUGADORES do
- if mayoramenor then
- begin
- if jugadoress[i].precio<jugadoress[j].ID then
- begin
- aux:=jugadoress[i];
- jugadoress[i]:=jugadoress[j];
- jugadoress[j]:=aux;
- end;
- end
- else
- begin
- if jugadoress[i].precio>jugadoress[j].ID then
- begin
- aux:=jugadoress[i];
- jugadoress[i]:=jugadoress[j];
- jugadoress[j]:=aux;
- end;
- end;
- OrdenarSecuencial:=jugadoress;
- end;
- procedure Imprimir_Todos_Los_Jugadores();
- var
- i,j : integer;
- salir : string;
- begin
- clrscr();
- i:=1;
- salir:='';
- while (salir<>'q') do
- begin
- clrscr();
- writeln(SEPARADORH);
- writeln('ID':3,' ','APELLIDO Y NOMBRE':28,' ','PRECIO':8,' ','EQUIPO':14,' ','POSICION');
- writeln(SEPARADORH);
- j:=1;
- while (j<=18) do
- begin
- if i<=JUGADORES then
- writeln(jugadoress[i].id:3,' ',jugadoress[i].nombre:28,' ',(jugadoress[i].precio/1000000):8:1,'M ',jugadoress[i].equipo_real:14,' ',jugadoress[i].posicion:15)
- else
- writeln('');
- inc(i);
- inc(j);
- end;
- writeln(SEPARADORH);
- readln(salir);
- if (i>JUGADORES) then
- i:=1;
- end;
- end;
- procedure Imprimir_Jugadores_De_Posicion(posicion:tPosicion);
- var
- i,j : integer;
- salir : string;
- begin
- clrscr();
- i:=1;
- salir:='';
- while (salir<>'q') do
- begin
- clrscr();
- writeln('ID':3,' ','APELLIDO Y NOMBRE':28,' ','PRECIO':8,' ','EQUIPO':14,' ','POSICION');
- writeln(SEPARADORH);
- j:=1;
- while (j<=18) do
- begin
- if i<=JUGADORES then
- begin
- if jugadoress[i].posicion=posicion then
- begin
- writeln(jugadoress[i].id:3,' ',jugadoress[i].nombre:28,' ',(jugadoress[i].precio/1000000):8:1,'M ',jugadoress[i].equipo_real:14,' ',jugadoress[i].posicion:15);
- inc(j);
- end;
- end
- else
- begin
- writeln('');
- inc(j);
- end;
- inc(i);
- end;
- if (i>JUGADORES) then
- begin
- //writeln('dfdfsdfsdfsdfsdfsdf',i);
- i:=1;
- end;
- writeln(SEPARADORH);
- readln(salir);
- end;
- end;
- begin
- for i:=1 to JUGADORES do
- begin
- obtenerJugador(i, jugador);
- jugadoress[i]:=jugador;
- end;
- writeln('Eliga el numero de lista');
- writeln('1- Todos los jugadores ordenados por equipo');
- writeln('2- Todos los jugadores ordenados por precio');
- writeln('3- Jugadores de una Posicion ordenados por equipo');
- writeln('4- Jugadores de una Posicion ordenados por precio');
- readln(seleccion);
- case(seleccion) of
- 1:
- begin
- OrdenarSecuencial(true,'id');
- Imprimir_Todos_Los_Jugadores();
- end;
- 2:
- begin
- OrdenarSecuencial(true,'precio');
- Imprimir_Todos_Los_Jugadores();
- end;
- 3:
- begin
- writeln('Ingrese ARQUERO DEFENSOR MEDIOCAMPISTA o DELANTERO');
- OrdenarSecuencial(true,'id');
- readln(posicion);
- Imprimir_Jugadores_De_Posicion(posicion);
- end;
- 4:
- begin
- writeln('Ingrese ARQUERO DEFENSOR MEDIOCAMPISTA o DELANTERO');
- OrdenarSecuencial(true,'precio');
- readln(posicion);
- Imprimir_Jugadores_De_Posicion(posicion);
- end;
- end
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement