Расчёт суточной калорийности
Главная / ЭКВМ / Программы для ЭКВМ / БРП-4

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

Программа вычисляет суточную калорийность Q и производит раскладку пищевых веществ для четырехразового питания (в граммах): Б1, Ж1, У1 - завтрак; Б2, Ж2, У2 - обед; Б3, Ж3, У3 - ужин, Б4, Ж4, У4 - за 1-1,5 ч до сна.

Исходное данное L набирается на клавитатуре.

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

Q → ПС, Б1 → П7, Ж1 → П8, У1 → П9, Б2 → П4, Ж2 → П5, У2 → П6, Б3 → П1, Ж3 → П2, У3 → П3, Б4 → П0, Ж4 → ПА, У4 → ПВ, М → ПD.

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

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

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

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

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

Исходное данное: L = 177 см.

Результаты:

Б1 = 54,6 г, Ж1 = 24,3 г, У1 = 117 г.

Б2 = 72,8 г, Ж2 = 32,4 г, У2 = 156 г.

Б3 = 36,4 г, Ж3 = 16,2 г, У3 = 78 г.

Б4 = 18, 2 г, Ж4 = 8,1 г, У4 = 39 г.

M = 77 кг. Q = 2926 ккал.

Программа "Расчёт суточной калорийности"

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

Файл brp4-6.mkp (КС 11218/236)

  0 1 2 3 4 5 6 7 8 9
10 6 ÷ K [x] 0 , 4 × П 4 2 ÷
20 П 1 2 ÷ П 0 ИП 1 + П 7 ИП C 3 6
30 ÷ K [x] 0 , 4 × П 5 2 ÷ П 2
40 2 ÷ П A ИП 2 + П 8 ИП C 7 , 5
50 ÷ K [x] 0 , 4 × П 6 2 ÷ П 3
60 2 ÷ П B ИП 3 + П 9 ИП C С/П БП 00

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

Файл brp4-6.mkl

.CHARSET 1251

; БРП-4
; 6. Расчёт суточной калорийности (1 - 1072870)

.ORG 0

A0:	 ; с адреса 68
	M E
	2 F 10^X -
	M D
	38 *
	M C
	16 /
	K INT
	0,4 *
	M 4
	2 /
	M 1
	2 /
	M 0
	RM 1
	+
	M 7
	RM C
	36 /
	K INT
	0,4 *
	M 5
	2 /
	M 2
	2 /
	M A
	RM 2
	+
	M 8
	RM C
	7,5 /
	K INT
	0,4 *
	M 6
	2 /
	M 3
	2 /
	M B
	RM 3
	+
	M 9
	RM C
	R/S
	GOTO A0
.END

НПП "СЕМИКО" (383) 271-01-25 (многоканальный)