Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%% mediahoras_aviao_menu %%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- mediahoras_aviao_menu:-findall(avioes(A,B,C,data(D,E,F),G,H,I,J),avioes(A,B,C,data(D,E,F),G,H,I,J),L),calcularmediahoras(L),write('PRESSIONE UMA TECLA PARA CONTINUAR!'),nl, read(_), menutav.
- calcularmediahoras([]):-!.
- calcularmediahoras([avioes(A,B,C,data(D,E,F),G,H,I,J)|Cauda]):-mediahoras(G,J,HorasMedias,N),mostraraviao(avioes(A,B,C,data(D,E,F),G,H,I,J),HorasMedias,N),calcularmediahoras(Cauda).
- mediahoras(_,[],_):-!.
- mediahoras(HorasAcumuladas,Listavoos,HorasMedias,N):-contarelementoslista(Listavoos,N),HorasMedias is HorasAcumuladas / N.
- mostraraviao(avioes(A,B,C,data(D,E,F),G,H,I,J),HorasMedias,N):-
- write('ID Aviao:'),write(A),nl,
- write('Marca:'),write(B),nl,
- write('Horas Acumuladas:'),write(G),nl,
- write('Numero de Voos:'),write(N),nl,
- write('Horas Medias:'),write(HorasMedias),nl,nl.
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%% aviao_mais_velho_menu %%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- aviao_mais_velho_menu:-findall(avioes(A,B,C,data(D,E,F),G,H,I,J),avioes(A,B,C,data(D,E,F),G,H,I,J),L),X is 99, Y is 99, Z is 9999,
- datavelho(L,[],data(X,Y,Z)), write('PRESSIONE UMA TECLA PARA CONTINUAR!'),nl, read(_), menutav.
- datavelho([],L2,data(X,Y,Z)):-!,apresentar_avioes(L2).
- datavelho([avioes(A,B,C,data(D,E,F),G,H,I,J)|Cauda],L2,data(X,Y,Z)):-compara(data(D,E,F),data(X,Y,Z)),!,X1 is D, Y1 is E, Z1 is F,datavelho(Cauda,[avioes(A,B,C,data(D,E,F),G,H,I,J)],data(X1,Y1,Z1)).
- datavelho([avioes(A,B,C,data(D,E,F),G,H,I,J)|Cauda],L2,data(X,Y,Z)):-datavelho(Cauda,L2,data(X,Y,Z)).
- compara(data(D,M,A),data(D2,M2,A2)):- A<A2,!.
- compara(data(D,M,A),data(D2,M2,A2)):- A=:=A2,M<M2,!.
- compara(data(D,M,A),data(D2,M2,A2)):- A=:=A2,M=:=M2,D<D2,!.
- compara(_,_):-fail.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement