Advertisement
Guest User

Untitled

a guest
Jun 2nd, 2015
258
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.55 KB | None | 0 0
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %%%%%%%%%% listar_piloto_horas_dec_menu %%%%%%%%
  3. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  4.  
  5. listar_piloto_horas_dec_menu:-see('pilotos.txt'),listarpilotos(L),seen,read(_),tav.
  6.  
  7. listarpilotos(ListaPilotos):-read(X),listarpilotoshoras(X,ListaPilotos).
  8. listarpilotoshoras(end_of_file,ListaPilotos):-!,ordenar(ListaPilotos, ListaSorted),mostrarlista(ListaSorted).
  9. listarpilotoshoras(X,ListaPilotos):- add_inicio_lista(X,ListaPilotos,NovaLista),listarpilotos(NovaLista).
  10.  
  11.  
  12. ordenar([X],[X]):-!.
  13. ordenar([X|R],LO):-ordenar(R,RO),inserirordenado(X,RO,LO).
  14.  
  15. inserirordenado(X,[],[X]):-!.
  16. 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).
  17. inserirordenado(X,L,[X|L]).
  18.  
  19.  
  20. mostrarlista([]):-!.
  21. mostrarlista([piloto(A,B,C,D,data(E,F,G),H,I)|Cauda]):-
  22. write('*********************************************************************************************'),nl,
  23. write('ID do piloto:'),write(A),nl,
  24. write('Nome do piloto:'),write(B),nl,
  25. write('Categoria do piloto:'),write(C),nl,
  26. write('Nacionalidade do piloto:'),write(D),nl,
  27. write('Horas voo do piloto:'),write(H),nl,
  28. mostrarlista(Cauda).
  29.  
  30. add_inicio_lista(Elemtento,Lista,[Elemtento|Lista]).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement