Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%% listar_piloto_horas_dec_menu %%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- listar_piloto_horas_dec_menu:-see('pilotos.txt'),listarpilotos(L),seen,read(_),tav.
- listarpilotos(ListaPilotos):-read(X),listarpilotoshoras(X,ListaPilotos).
- listarpilotoshoras(end_of_file,ListaPilotos):-!,ordenar(ListaPilotos, ListaSorted),mostrarlista(ListaSorted).
- listarpilotoshoras(X,ListaPilotos):- add_inicio_lista(X,ListaPilotos,NovaLista),listarpilotos(NovaLista).
- ordenar([X],[X]):-!.
- ordenar([X|R],LO):-ordenar(R,RO),inserirordenado(X,RO,LO).
- inserirordenado(X,[],[X]):-!.
- inserirordenado(piloto(P,Nome,Categoria,Nacionalidade,data(Datadia,Datames,Dataano),Horasvoo,Histvoo),[piloto(P1,Nome1,Categoria1,Nacionalidade1,data(Datadia1,Datames1,Dataano1),Horasvoo1,Histvoo1)|R],[piloto(P1,Nome1,Categoria1,Nacionalidade1,data(Datadia1,Datames1,Dataano1),Horasvoo1,Histvoo1)|RO]):-Horasvoo<Horasvoo1,!,inserirordenado(piloto(P,Nome,Categoria,Nacionalidade,data(Datadia,Datames,Dataano),Horasvoo,Histvoo),R,RO).
- inserirordenado(X,L,[X|L]).
- mostrarlista([]):-!.
- mostrarlista([piloto(A,B,C,D,data(E,F,G),H,I)|Cauda]):-
- write('*********************************************************************************************'),nl,
- write('ID do piloto:'),write(A),nl,
- write('Nome do piloto:'),write(B),nl,
- write('Categoria do piloto:'),write(C),nl,
- write('Nacionalidade do piloto:'),write(D),nl,
- write('Horas voo do piloto:'),write(H),nl,
- mostrarlista(Cauda).
- add_inicio_lista(Elemtento,Lista,[Elemtento|Lista]).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement