Расчёт рационального питания пожилых людей
Главная / ЭКВМ / Программы для ЭКВМ / БРП-4

Людям старше 60 лет, не занятых физическим трудом, суточную калорийность питания можно определить из расчета 38 ккал на 1 кг нормальной массы тела при соотношении белков, жиров и углеводов 1: 0,8:3. Нормальную массу тела в килограммах вычисляют по формуле Брока М=L-100 (L - рост человека, см).

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

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

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

Q → П9, M → П8, Б → П4, Ж → П5, У → П6.

Для контроля L величина L автоматически заносится в ячейку П7.

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

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

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

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

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

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

Результаты: М = 77 кг, Q = 2926 ккал, Б = 154 г, Ж = 52 г, У = 492 г.

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

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

Файл brp4-3.mkp (КС 12864/62)

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

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

Файл brp4-3.mkl

.CHARSET 1251
; БРП-4

; 3. Расчёт рационального питания пожилых людей 
; (1 - 1037856)
.ORG 0

A0:	 ; с адреса 48
	M 7
	2 F 10^X -
	M 8
	38 *
	M 9
	21 * 400 /
	2 F 1/X	M 1
	+
	K INT
	M 4
	RM 9
	16 * 900 /
	RM 1
	+
	K INT
	M 5
	RM 9
	63 * 375 /
	RM 1
	+
	K INT
	M 6
	RM 9
	R/S
	GOTO A0
	000000
.END

Примечание. Считывание программ из БРП в МК-52 производилось блоками по 7 байт. Неиспользуемые команды в конце программы оставлены для совместимости и используются при подсчёте контрольной суммы.
НПП "СЕМИКО" (383) 271-01-25 (многоканальный)