Рассчёт индекса массы тела (ИМТ)

[Anton]

Индекс массы тела (англ. body mass index (BMI), ИМТ) — величина, позволяющая оценить степень соответствия массы человека и его роста и, тем самым, косвенно оценить, является ли масса недостаточной, нормальной или избыточной. Важен при определении показаний для необходимости лечения. Индекс массы тела следует применять с осторожностью, исключительно для ориентировочной оценки — например, попытка оценить с его помощью телосложение профессиональных спортсменов может дать неверный результат (высокое значение индекса в этом случае объясняется развитой мускулатурой).

Алгоритм расчета
ИМТ = Масса тела / (Рост/100)², где Масса тела в кг, рост в см

Источник: https://forum.nutritiologists.ru/viewtopic.php?t=718

Код: Выделить всё

// 
// Рассчёт индекса массы тела (ИМТ)
// 

height = 178 // Рост в см
weight = 70 // Масса тела в кг

bmi = weight / (height / 100) ^ 2 // Рассчёт ИМТ
bmi = round(bmi * 100) / 100 // Округляем до сотых

// Расшифровываем результаты ИМТ
 
if (bmi < 16) then 				bmi_txt$ = "Выраженный дефицит массы тела"
	elsif (bmi <= 16 and bmi < 18.5)	bmi_txt$ = "Недостаточная (дефицит) масса тела"
	elsif (bmi >= 18.5 and bmi < 25)	bmi_txt$ = "Норма"
	elsif (bmi >= 25 and bmi < 30)		bmi_txt$ = "Избыточная масса тела (предожирение)"
	elsif (bmi >= 30 and bmi < 35)		bmi_txt$ = "Ожирение первой степени"
	elsif (bmi >= 35 and bmi < 40)		bmi_txt$ = "Ожирение второй степени"
	elsif (bmi >= 40)			bmi_txt$ = "Ожирение третьей степени (морбидное)"
endif

print "ИМТ:", bmi , " (кг/м²)", " " , bmi_txt$ 	// выводим значение и результаты ИМТ

end