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

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

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

Результаты вычислений записываются в ячейки памяти: длина, выраженная в вершках, - в ячейку ПВ, в аршинах - в ячейку ПА, в верстах - в ячейку П0, в саженях - в ячейку ПС, в метрах - в ячейку П7, в сантиметрах - в ячейку П8, в километрах - в ячейку П9.

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

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

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

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

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

1. 100 м = 2249,2971 вершка = 140,58107 аршина = = 46,860366 сажени = 0,093720712 версты.

2. 3 вершка = 13,3375 см.

3. 2 сажени = 96 вершкам = 6 аршинам = 4,268 м.

4. 1 верста = 1,067 км.

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

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

Файл brp4-25.mkp (КС 12540/40)

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

Файл brp4-25.mkl

.CHARSET 1251

; БРП-4
; 25. Перевод метрических единиц длины 
; в неметрические старые русские единицы и наоборот 
; (1 - 1324856)

.ORG 0

A0:	 ; с адреса 49
	M 7
	100 *
	M 8
	1 EE 5 /
	M 9
	RM 7
	1067 /
	M 0
	500 *
	M C
	3 *
	M A
	16 *
	M B
	R/S
	M B
	16 /
	M A
	3 /
	M C
	500 /
	M 0
	1067 *
	GOTO A0
	00000
.END 

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