Расчет суточной потребности человека в основных минеральных веществах |
Главная / ЭКВМ / Программы для ЭКВМ / БРП-4 |
Минеральные вещества, входящие в состав организма человека, непрерывно расходуются, причем размеры затрат этих веществ зависят от ряда причин: от вида деятельности, условий работы, состояния организма и т.п. Если пища человека разнообразна, то содержащихся в ней минеральных веществ достаточно для восстановления их балланса в организме. Программа вычисляет суточную потребность взрослого человека в основных минеральных веществах: поваренной соли (NaCl), кальции (Ca), калии (К), магнии (Mg), фосфоре (Р), сере (S), железе (Fe), йоде (I). Потребность в минеральных веществах определяется в зависимости от нормальной массы тела, вычисляемой в килограммах по формуле Брока М=L-100 (L - рост человека, см). Исходное данное L набирается на клавиатуре. Результаты вычислений записываются в ячейки памяти: M → П3, Ca(г) → П7, К(г) → П8, Mg(г) → П9, Р(г) → П4, NaCl(г) → П5, S(г) → П6, Fe(мг) → П1, I(мг) → П2. Для контроля величина L автоматически заносится в ячейку П0. Инструкция по пользованию программой для МК-52 с БРП-4
Инструкция по пользованию программой для ЭКВМ
Тестовый примерИсходные данные: L = 177 см. Результаты (из РЭ БРП-4, округлённо): Ca = 0,88 г/день, К = 3,3 г/день, Mg = 0,539 г/день, Р = 1,76 г/день, NaCl = 15,4 г/день, S = 1,1 г/день, Fe = 16,5 мг/день, I = 0,165 мг/день. Результаты (точно): Ca = 0,88011 г/день, К = 3,30022 г/день, Mg = 0,539 г/день, Р = 1,76022 г/день, NaCl = 15,4 г/день, S = 1,1 г/день, Fe = 16,5011 мг/день, I = 0,165011 мг/день. М = 77 кг. Программа "Расчет суточной потребности человека в основных минеральных веществах"Программа 5 из блока расширения памяти БРП-4, переключатель "1/2" блока в положении "1", адрес 1060263. Файл brp4-5.mkp (КС 11218/236)
Исходный текст для кросс-компилятораФайл brp4-5.mkl .CHARSET 1251 ; БРП-4 ; 5. Расчёт суточной потребности человека в основных минеральных веществах (1 - 1060263) .ORG 0 A0: ; с адреса 58 M 0 2 F 10^X - M 3 0,01143 * M 7 2 * M 4 RM 3 0,04286 * M 8 RM 3 7 * 3 F 10^X / M 9 RM 3 5 / M 5 RM 3 70 / M 6 RM 3 0,2143 * M 1 2 F 10^X / M 2 RM 3 R/S GOTO A0 000 .END Примечание. Считывание программ из БРП в МК-52 производилось блоками по 7 байт. Неиспользуемые команды в конце программы оставлены для совместимости и используются при подсчёте контрольной суммы. |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
НПП "СЕМИКО" (383) 271-01-25 (многоканальный) |