Algoritmo tasa_metabólica_basal
	// Diseñar un programa que calcule su tasa metabólica basal, y luego respescto a esta y a su actividad fisica, calcular la cantidad de calorias que usted necesita para mantener su peso actual.
	
	Definir sexo Como Cadena;
	Definir edad Como Entero;
	Definir peso, altura, TMB, res1, res2, res3, res4, res5 Como Real;
	edad=0
	peso=0
	altura=0
	TMB=0
	res1=0
	res2=0
	res3=0
	res4=0
	res=5
	
	Escribir "Bienvenido a su calculadora de tasa metabólica basal";
	Escribir " ";
	Escribir "Es la encargada de proporcionar la energía para mantener la temperatura corporal, el latido del corazón, el funcionamiento del hígado, riñones";
	Escribir " ";
	Escribir "Ingrese su sexo (hombre o mujer)";
	Leer sexo;
	Escribir "Ingrese su edad";
	Leer edad;
	Escribir "Ingrese su peso en kg";
	Leer peso;
	Escribir "Ingrese su altura en cm";
	Leer altura;
	
	Si sexo="hombre" Entonces
		TMB<-66.5+(13.8*peso)+(5*altura)-(6.8*edad)
		Escribir " ";
		Escribir "Su tasa metabolica basal es de ", TMB;
	SiNo
		TMB<-655+(9.6*peso)+(1.85*altura)-(4.7*edad)
		Escribir " ";
		Escribir "Su tasa metabolica basal es de ", TMB;
	Fin Si
	 Escribir " ";
	Escribir "Esta se puede ajustar según el nivel de actividad física de la persona";
	Escribir "1. Sedentario";
	Escribir "2. Levemente activo";
	Escribir "3. Moderadamente activo";
	Escribir "4. Muy activo";
	Escribir "5. Extra activo";
	Leer act;
	
	Escribir " ";
	Si act="1" Entonces
		res1<-TMB*1.2
		Escribir "La cantidad de calorias que usted necesita para mantener su peso actual es de ", res1; 
	SiNo
		Si act="2" Entonces
			res2<-TMB*1.375
			Escribir "La cantidad de calorias que usted necesita para mantener su peso actual es de ", res2;
		SiNo
			Si act="3" Entonces
				res3<-TMB*1.55
				Escribir "La cantidad de calorias que usted necesita para mantener su peso actual es de ", res3;
			SiNo
				Si act="4" Entonces
					res4<-TMB*1.725
					Escribir "La cantidad de calorias que usted necesita para mantener su peso actual es de ", res4;
				SiNo
					res5<-TMB*1.9
					Escribir "La cantidad de calorias que usted necesita para mantener su peso actual es de ", res5;
					Escribir " ";
				Fin Si
			Fin Si
		Fin Si
	Fin Si
	
FinAlgoritmo