16 - lista 01 - maior de tres numeros

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

maior():-
	write('digite o primeiro numero: '),nl,
	read(N1),
	write('digite o segundo numero: '),nl,
	read(N2),
	write('digite o terceiro numero: '),nl,
	read(N3),
	compara(N1,N2,N3).
compara(N1,N2,N3):-
	N1 > N2,
	N2 > N3,
	write('maior numero eh = ':N1),!.
compara(N1,N2,N3):-
	N1 > N2,
	N2 < N3,
	N1 > N3,
	write('maior numero eh = ':N1),!.
compara(N1,N2,N3):-
	N1 < N2,
	N2 > N3,
	N1 > N3,
	write('maior numero eh = ':N2),!.
compara(N1,N2,N3):-
	N1 < N2,
	N2 > N3,
	N1 < N3,
	write('maior numero eh = ':N2),!.
compara(N1,N2,N3):-
	N1 < N2,
	N2 < N3,
	N1 < N3,
	write('maior numero eh = ':N3),!.
compara(N1,N2,N3):-
	N1 > N2,
	N2 < N3,
	N1 < N3,
	write('maior numero eh = ':N3).