Определение числа "счастливых" билетов и их номеров
Главная / ЭКВМ / Программы для ЭКВМ / БРП-4

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

Счастливыми считаются билеты, в номерах которых сумма трех левых цифр равна сумме трех правых. Например, в последовательности с номерами от N1 = 123105 до N2 = 123155 шесть счастливых билетов: 123105, 123114, 123123, 123132, 123141, 123150. По заданным значениям N1, N2 и служебному числу Z программа определяет при Z = 42 номер N счастливого билета, а при Z = 43 число n счастливых билетов в последовательности.

Исходные данные заносятся в ячейки памяти:

N1 → П4, N2 → П7, Z → П8.

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

N → П4, n → П9.

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

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

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

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

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

N1 = 123105, N2 = 123155

Z = 42

N = 123105

N = 123114

N = 123123

N = 123132

N = 123141

N = 123150

Z = 43

n = 6

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

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

Файл brp4-38.mkp (КС 7274/104)

  0 1 2 3 4 5 6 7 8 9
00 Cx П 9 ИП 7 ИП 4 - 1 + П 0 ИП 4 1
10 0 П 1 B↑ F x2 П 2 × П 3 ÷ K [x] П A
20 ПП 69 П B ИП 4 ИП 3 ИП A × - ПП 69
30 ИП B ПП 86 - F x=0 43 ИП 9 1 + П 9
40 ИП 4 K БП 8 С/П F L0 47 ИП 9 С/П K ИП 4 K ИП 6 ИП 6
50 ПП 92 П 6 K ИП 5 ИП 5 ПП 92 П 5 ИП C 1
60 + П C ПП 92 ИП A 1 + БП 19 B↑
70 ИП 2 ÷ K [x] П C ИП 2 × - B↑ ИП 1 ÷
80 K [x] П 5 ИП 1 × - П 6 ИП C ИП 5 + ИП 6
90 + В/О ИП 1 - F x≥0 30 Cx В/О    

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

Файл brp4-38.mkl

.CHARSET 1251

; БРП-4
; 38. Определение числа "счастливых" билетов и их номеров (2 - 1110698)

.ORG 0
	CX
	M 9
	RM 7
	RM 4
	-
	1
	+
	M 0
	RM 4
	1
	0
	M 1
	ENT
	F X^2
	M 2
	*
	M 3
	/
	K INT

A19:	 ; с адреса 67
	M A
	GSB A69
	M B
	RM 4
	RM 3
	RM A
	*
	-
	GSB A69

A30:	 ; с адреса 94
	RM B
	GSB A86
	-
	F X=0 A43
	RM 9
	1
	+
	M 9
	RM 4
	K GOTO 8
	R/S

A43:	 ; с адреса 34
	F L0 A47
	RM 9
	R/S

A47:	 ; с адреса 43
	K RM 4
	K RM 6
	RM 6
	GSB A92
	M 6
	K RM 5
	RM 5
	GSB A92
	M 5
	RM C
	1
	+
	M C
	GSB A92
	RM A
	1
	+
	GOTO A19

A69:	 ; с адреса 20, 28
	ENT
	RM 2
	/
	K INT
	M C
	RM 2
	*
	-
	ENT
	RM 1
	/
	K INT
	M 5
	RM 1
	*
	-
	M 6

A86:	 ; с адреса 31
	RM C
	RM 5
	+
	RM 6
	+
	RTN

A92:	 ; с адреса 50, 55, 62
	RM 1
	-
	F X>=0 A30
	CX
	RTN
.END

НПП "СЕМИКО" (383) 271-01-25 (многоканальный)