Перевод метрических единиц площади в неметрические старые русские единицы и наоборот

Программа переводит метрические единицы площади (квадратные метр, сантиметр, дециметр, километр, а также ар и гектар) в неметрические старые русские единицы (квадратную версту, квадратную сажень, десятину) и наоборот.

Исходное данное (значение площади) набирается на клавиатуре.

Результаты вычислений записываются в ячейки памяти: площадь, выраженная в десятинах, - в ячейку ПА и отображается на дисплее, в квадратных саженях - в ячейку ПС, в квадратных верстах - в ячейку ПВ, в квадратных метрах - в ячейку П7, в квадратных дециметрах - в ячейку П8, в квадратных сантиметрах - в ячейку П9, в арах - ячейку П4, в гектарах - в ячейку П5, в квадратных километрах – в ячейку П6.

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

• 1. Наберите адрес 1336070 и введите программу, нажав клавиши А↑, ↑↓.
• 2. Введите исходное данное.
• 3. Включите счет, нажав для перевода в другие единицы площади, выраженной:
  • - в квадратных метрах, клавиши В/0, С/П. Время вычисления около 10 с;
  • - в квадратных саженях, клавиши БП, 4, 0, С/П. Время вычисления около 9 с;
  • - в десятинах, клавиши БП, 4, 6, С/П. Время вычисления около 12 с;
  • - в квадратных верстах, клавиши БП, 5, 5, С/П. Время вычисления около 13 с.

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

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

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

1. 10⁶ м² = 91,534858 десятины = 0,87873462 кв.версты.

2. 100 десятин = 0,96 кв. версты = 1,09248 км² = 109,248 га.

Программа "Перевод метрических единиц площади в неметрические старые русские единицы и наоборот"

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

Файл brp4-26.mkp (КС 9587/41)

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

Файл brp4-26.mkl

.CHARSET 1251

; БРП-4
; 26. Перевод метрических единиц площади 
; в неметрические старые русские единицы и наоборот 
; (1 - 1336070)
.ORG 0

A0:	 ; с адреса 64
	M 7
	100
	M 0
	*
	M 8
	RM 0
	*
	M 9
	RM 7
	RM 0
	/
	M 4
	RM 0
	/
	M 5
	RM 0
	/
	M 6
	1,138 /
	M B
	25 EE 4 *
	M C
	2400 /
	M D
	R/S
	M C
	2400 /
	M D
	250 /
	2,4 *
	M B
	1,138 EE 6 *
	GOTO A0
	0000
.END 

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