Исчисление подоходного налога с заработной платы рабочих и служащих

Эта программа входит в блок расширения памяти БРП-4 советского микрокалькулятора МК-52 и составлена на основе законодательства СССР.

Программа исчисляет подоходный налог с заработной платы по месту основной работы рабочих и служащих и приравненных к ним по обложению подоходным налогом граждан.

Исчисление налога производится с месячного заработка (М3) в соответствии с действующим законодательством. Месячный заработок M3 ≥ 77 для исчисления налога определяется в полных рублях (копейки отбрасываются).

Исходное данное (М3 в полных рублях) набирается на клавиатуре.

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

1. Подоходный налог (ПН1) в рублях и копейках (целая часть - рубли, дробная - копейки) записывается в ячейку П8 (ПН1 → П8) и отображается на дисплее.

2. Заработная плата (ЗП = М3 - ПН1) в рублях и копейках (целая часть - рубли, дробная - копейки) записывается в ячейку П9 (М3 → П9).

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

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

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

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

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

Программа "Исчисление подоходного налога с заработной платы рабочих и служащих"

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

Файл brp4-15.mkp (КС 14336/248)

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

Файл brp4-15.mkl

.CHARSET 1251

; БРП-4
; 15. Исчисление подоходного налога с заработной платы рабочих и служащих
; (1 - 1204449)

.ORG 0

A0:	 ; с адреса 26
	M 7
	9
	RM 7
	10 /
	-
	F X>=0 A28
	34
	*
	+/-
	68,1

A17:	 ; с адреса 38
	+
	10 /
	M 8
	-
	M 9
	RM 8
	R/S
	GOTO A0

A28:	 ; с адреса 7
	+/-
	1 -
	F X<0 A40
	12

A35:	 ; с адреса 42
	*
	82
	GOTO A17

A40:	 ; с адреса 31
	13
	GOTO A35
	00000
.END 

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