Угадывание числа, "задуманного" калькулятором

Калькулятор "задумывает" некоторое целое числов интервале от 10 до 99, которое Вы должны отгадать за возможно меньшее число попыток. При каждой попытке Вы набираете число на клавиатуре, калькулятор сравнивает его с задуманным и при несовпадении чисел показывает новый более узкий интервал, в котором находится задуманное число. Калькулятор может помочь Вам и предложить вполне удачное число из "своих запасов". Если число угадано, на дисплее появляется оценка Вашей сообразительности:

5,5555555 - число угадано не более чем за пять попыток;

4,4444444 - число угадано не более чем за шесть попыток;

3,3333333 - число угадано не более чем за семь попыток;

2,2222222 - число угадано не менее чем за восемь попыток.

Исходное данное (любое число Х0 в интервале 0 < X0 < 1) заносится в ячейку памяти П7.

Результаты игры отображаются на дисплее, а число попыток n записывается в ячейку П4.

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

• 1. Наберите адрес 1077091 и введите программу, нажав клавиши А↑, ↑↓.
• 2. Введите исходное данное.
• 3. Включите счет, нажав клавиши В/0, С/П. Время вычисления около 8 с.
• 4. Считайте результат. После окончания счета дисплей покажет исходный интервал в виде числа 1099.
• 5. Выберите наиболее удачное число, проверив два варианта: наберите предложенное Вами число на клавиатуре и нажмите клавишу С/П. "узнайте" удачное число у калькулятора, нажав клавиши Сх, С/П. Время вычисления около 4 с.
• 6. Сделайте попытку угадывания, нажав клавишу С/П. Время вычисления около 5 с. Если число не угадано, дисплей покажет новый более узкий интервал (в виде четырехзначного числа), в котором находится задуманное число. В этом случае повторите п.5. Если число угадано, на дисплее появится оценка.
• 7. Для повторения игры с новым задуманным числом повторите пп. 2-5.

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

• 1. Загрузите программу с нулевого адреса.
• 2. Введите исходные данные.
• 3. Включите счет, нажав клавиши В/0, С/П.
• 4. Считайте результат. После окончания счета дисплей покажет исходный интервал в виде числа 1099.
• 5. Выберите наиболее удачное число, проверив два варианта: наберите предложенное Вами число на клавиатуре и нажмите клавишу С/П. "узнайте" удачное число у ЭКВМ, нажав клавиши Сх, С/П.
• 6. Сделайте попытку угадывания, нажав клавишу С/П. Если число не угадано, дисплей покажет новый более узкий интервал (в виде четырехзначного числа), в котором находится задуманное число. В этом случае повторите п.5. Если число угадано, на дисплее появится оценка.
• 7. Для повторения игры с новым задуманным числом повторите пп. 2-5.

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

Х0 = 0,2 → П7 ("задумано" число 68)

Программа "Угадывание числа, задуманного калькулятором"

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

Файл brp4-36.mkp (КС 7455/247)

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

Файл brp4-36.mkl

.CHARSET 1251

; БРП-4
; 36. Угадывание числа "задуманного" калькулятором (2 - 1077091)

.ORG 0
	RM 7
	F PI
	+
	F X^2
	F X^2
	K FRAC
	M 7
	10
	M 8
	F 1/X
	-
	F X<0 A15
	RM 7

A15:	 ; с адреса 12
	F ANS
	+
	RM 8
	F X^2
	M 6
	*
	K INT
	M 5
	CX
	M 4
	99

A27:	 ; с адреса 50
	M 9

A28:	 ; с адреса 47
	RM 8
	RM 6
	*
	RM 9
	+

A33:	 ; с адреса 87
	R/S
	F X!=0 A77
	M 1
	K RM 4
	<->
	RM 5
	-
	F X!=0 A52
	F X<0 A49
	RM 1
	M 8
	GOTO A28

A49:	 ; с адреса 43
	RM 1
	GOTO A27

A52:	 ; с адреса 41
	3
	M 0
	5
	M 1
	RM 4
	-
	F X>=0 A67

A60:	 ; с адреса 71, 75
	RM 1
	10 *
	9 /
	R/S

A67:	 ; с адреса 58
	K RM 1
	<->
	1 +
	F X!=0 A60
	FL0 A67
	GOTO A60

A77:	 ; с адреса 34
	RM 9
	RM 8
	-
	2,6 /
	K INT
	RM 8
	+
	GOTO A33
	00
.END 

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