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

Программа переводит неметрические единицы длины англоязычных стран (американскую законную милю, ярд, фут, дюйм, морскую милю) в метрические (метр) и наоборот.

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

Результаты вычислений записываются в ячейки памяти: длина, выраженная в метрах, - в ячейку П0, в морских милях - в ячейку П1, в американских законных милях – в ячейку П3, в ярдах - в ячейку П4, в футах - в ячейку П5, в дюймах - в ячейку П6.

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

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

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

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

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

1. 1000 м = 0,5396654 морск. мили = 0,621504 амер. аконной мили = 1093,847 ярда = 3281,541 фута = 39378,492 дюйма.

2. 1 амер. законная миля = 1609 м = 1760 ярдам = 5280 футам = 63360 дюймам = 0,86832164 морск. мили.

3. 3 дюйма = 0,07618371 м.

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

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

Файл brp4-28.mkp (КС 12370/56)

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

Файл brp4-28.mkl

.CHARSET 1251

; БРП-4
; 28. Перевод неметрических единиц длины англоязычных стран
; в метрические единицы и наоборот (1 - 1364056)
.ORG 0

A0:	 ; с адреса 51
	M 0
	1853 /
	M 1
	1853 *
	4827 /
	M 2
	3 *
	M 3
	1760 *
	M 4
	3 *
	M 5
	12 *
	M 6
	2,539457 *
	M 7
	100 /
	M 0
	R/S
	RM 0
	GOTO A0
	000
.END 

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