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

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

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

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

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

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

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

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

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

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

D = 4.

N1 = 11; N2 = 29; N3 = 17; N4 = 9; N5 = 23; N6 = 15.

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

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

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

Файл brp4-40.mkp (КС 12600/178)

  0 1 2 3 4 5 6 7 8 9
00 П A 4 5 П B 5 П 0 1 П 1 9 П 2
10 + П 3 П E ПП 55 П 9 ПП 55 ИП C K ИП 3
20 - F x≠0 49 F L1 18 ИП C K П 2 ИП E П 3 ИП 2
30 - П 1 П D F L0 16 С/П ИП 9 С/П ИП 8 С/П
40 ИП 7 С/П ИП 6 С/П ИП 5 С/П ИП 4 С/П K БП 0 ИП E
50 П 3 ИП D П 1 БП 16 ИП A F π + F x2 F x2
60 K {x} П A ИП B × 1 + K [x] П C ИП C В/О

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

Файл brp4-40.mkl

.CHARSET 1251

; БРП-4
; 40. Вычисление выигрышных номеров спортлото "6 из 45" (2 - 1145670)

.ORG 0
	M A
	45
	M B
	5
	M 0
	1
	M 1
	9
	M 2
	+
	M 3
	M E
	GSB A55
	M 9

A16:	 ; с адреса 33, 53
	GSB A55

A18:	 ; с адреса 23
	RM C
	K RM 3
	-
	F X!=0 A49
	F L1 A18
	RM C
	K M 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
	RM 4
	R/S
	K GOTO 0

A49:	 ; с адреса 21
	RM E
	M 3
	RM D
	M 1
	GOTO A16

A55:	 ; с адреса 13, 16
	RM A
	F PI
	+
	F X^2
	F X^2
	K FRAC
	M A
	RM B
	*
	1
	+
	K INT
	M C
	RM C
	RTN
.END

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