17 - lista 01 - imc

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

main:-
	write('Digite o Peso: '),
	read(P),
	write('Digite a Altura: '),
	read(A),
	imc(P,A,IMC),
	write('IMC = '),
	write(IMC),
	verifica(IMC).
imc(P,A, IMC):-
	IMC is P / (A * A).
verifica(IMC):-
	IMC >= 20,
	IMC <25,
	write(' Normal'),!.
verifica(IMC):-
	IMC >= 25,
	IMC < 30,
	write(' obesidade grau 1'),!.
verifica(IMC):-
	IMC >= 30,
	IMC < 40,
	write(' obesidade grau 2'),!.
verifica(IMC):-
	IMC > 40,
	write(' obesidade grau 3'),!.
verifica(_):-
	write(' Abaixo do peso').