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

Программа вычисляет выигрышные номера шаров спортлото "5 из 36", используя в качестве исходных данных дату Вашего дня рождения (число) или другого счастливого дня в Вашей жизни.

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

Результаты вычислений (номера шаров Nn) записываются в ячейки памяти:

N1 → П9, N2 → П8, N3 → П7, N4 → П6, N5 → П5.

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

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

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

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

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

D = 4.

N1 = 9; N2 = 24; N3 = 14; N4 = 7; N5 = 19.

Примечание. Указанные в тесте номера шаров в производимых ранее лотореях выиграли 6180 руб.

Программа "Вычисление выигрышных номеров спортлото "5 из 36"

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

Файл brp4-39.mkp (КС 11205/123)

  0 1 2 3 4 5 6 7 8 9
00 П A 3 6 П B 4 П 0 ÷ П 2 1 П 1
10 + П 3 П E ПП 53 П 9 ПП 53 ИП C K ИП 3
20 - F x≠0 47 F L1 18 ИП C KП2 ИП E П 3 ИП 2
30 - П 1 П D F L0 16 С/П ИП 9 С/П ИП 8 С/П
40 ИП 7 С/П ИП 6 С/П ИП 5 С/П K БП 0 ИП E П 3 ИП D
50 П 1 БП 16 ИП A F π + F x2 F x2 П A K ИП A
60 F O ИП A - П A ИП B × 1 + П C K ИП C
70 ИП C В/О 0 0 0 0 0      

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

Файл brp4-39.mkl

.CHARSET 1251

; БРП-4
; 39. Вычисление выигрышных номеров спортлото "5 из 36" (2 - 1130277)

.ORG 0
	M A
	36
	M B
	4
	M 0
	/
	M 2
	1
	M 1
	+
	M 3
	M E
	GSB A53
	M 9

A16:	 ; с адреса 33, 51
	GSB A53

A18:	 ; с адреса 23
	RM C
	K RM 3
	-
	F X!=0 A47
	F L1 A18
	RM C
	KM 2
	RM E
	M 3
	RM 2
	-
	M 1
	M D
	F L0 A16
	R/S
	RM 9
	R/S
	RM 8
	R/S
	RM 7
	R/S
	RM 6
	R/S
	RM 5
	R/S
	K GOTO 0

A47:	 ; с адреса 21
	RM E
	M 3

A49:	 ; с адреса 14
	RM D
	M 1
	GOTO A16

A53:	 ; с адреса 13, 16
	RM A
	F PI
	+
	F X^2
	F X^2
	M A
	K RM A
	F R
	RM A
	-
	M A
	RM B
	*
	1
	+
	M C
	K RM C
	RM C
	RTN

	00000
.END

Примечание. Считывание программ из БРП в МК-52 производилось блоками по 7 байт. Неиспользуемые команды в конце программы оставлены для совместимости и используются при подсчёте контрольной суммы.
НПП "СЕМИКО" (383) 271-01-25 (многоканальный)