Расчет рационального питания людей, занятых в сфере производства

По современным представлениям суточная потребность человека в основных питательных веществах (белках, жирах, углеводах) зависит от общей калорийности рациона. Так, на долю жиров должно приходиться 30% общей калорийности, на долю белков - 14% и на долю углеводов - 56%. При калорийности больше 4000 ккал содержание белка должно снижаться на 1%, а содержание углеводов - повышаться на 1% на каждые 1000 ккал.

Общая калорийность определяется энергозатратами (Э) человека, которые зависят от его нормальной массы (М) и вида физической нагрузки (группы труда). Нормальную массу тела в килограммах вычисляют по формуле Брока М=L-100 (L - рост человека, см).

Различают следующие группы труда (Т):

• 1) работа, не связанная с физическим трудом (врачи, служащие);
• 2) механизированный труд (токари, аппаратчики);
• 3) частично механизированный труд (слесари, строители);
• 4) тяжёлый физический труд (шахтеры, лесорубы).

Программа вычисляет необходимые и допустимые энергозатраты (Эн,Эд) при повышенной суточной калорийности, а также необходимые и допустимые затраты белков (Бн, Бд), жиров (Жн,Жд), углеводов (Ун,Уд) в граммах, что позволяет каждому человеку организовать научно обоснованное (рациональное) питание.

Исходные данные заносятся в ячейки памяти:

L → П9, Т → П6.

Результаты вычислений записываются в ячейки памяти:

Эн → П7, Бн → П4, Жн → П1, Ун → П0, М → ПВ, Эд → П8, Бд → П5, Жд → П2, Уд → ПА.

Инструкция по пользованию программой для МК-52 с БРП-4

• 1. Наберите адрес 1000091 и введите программу, нажав клавиши А↑, ↑↓.
• 2. Введите исходные данные.
• 3. Включите счет, нажав клавиши В/0, С/П. Время вычисления около 44 с. После окончания счета дисплей отобразит величины Эн и Эд в виде восьмизначного числа (первые четыре цифры – Эн, последние - Эд).
• 4. Считайте результаты.
• 5. Для повторного запуска программы повторите пп.2-4.

Инструкция по пользованию программой для ЭКВМ

• 1. Загрузите программу с нулевого адреса.
• 2. Введите исходные данные в регистры R9 и R6.
• 3. Включите счет, нажав клавиши В/0, С/П. После окончания счета в RX - величины Эн и Эд в виде восьмизначного числа (первые четыре цифры – Эн, последние - Эд).
• 4. Считайте результаты.
• 5. Для повторного запуска программы повторите пп.2-4.

Тестовый пример

Исходные данные: L = 177 см, Т = 1.

Результат: Эн = 3080 ккал, Бн = 108 г, Жн = 103 г, Ун = 460 г, Эд = 3850 ккал, Бд = 135 г, Жд = 128 г, Уд = 575 г, М = 77 кг.

Программа "Расчет рационального питания людей, занятых в сфере производства"

Программа 1 из блока расширения памяти БРП-4, переключатель "1/2" блока в положении "1", адрес 1000091.

Файл brp4-1.mkp (КС 6347/143)

Исходный текст для кросс-компилятора

Файл brp4-1.mkl

.CHARSET 1251
; БРП-4
; 1. Расчёт рационального питания людей, занятых в сфере производства 
; (1 - 1000091)
.ORG 0

A0:	 ; с адреса 37
	CX

A1:	 ; с адреса 45
	M C
	RM 9
	2 F 10^X -
	M B
	5 *
	RM 6
	7 + *
	M 7 M 8
	GSB A39
	RM 5 M 4
	RM 2 M 1
	RM A M 0
	RM 8 RM B
	EE 1 +
	M 8
	GSB A39
	RM 7
	EE 4
	RM 8 +
	R/S
	GOTO A0

A39:	 ; с адреса 15, 29
	RM 8
	4 EE 3 -
	F X>=0 A51
	1 EE 3 /
	M C

A51:	 ; с адреса 44
	RM 8
	14
	RM C
	-
	*
	400 /
	2 F 1/X	M D
	+
	K INT 
	M 5
	RM 8
	30 /
	RM D
	+
	K INT
	M 2
	RM 8
	56
	RM C
	+
	*
	375 /
	RM D
	+
	K INT
	M A
	RTN
	0
.END 

Примечание. Считывание программ из БРП в МК-52 производилось блоками по 7 байт. Неиспользуемые команды в конце программы оставлены для совместимости и используются при подсчёте контрольной суммы.