197 (игра) - История изменений

Гроссмейстер Проф: /* Игра с компьютером */

2023-10-18T14:09:59Z

‎Игра с компьютером

Гроссмейстер Проф: /* Игра с компьютером */

2023-10-18T14:08:51Z

‎Игра с компьютером

Гроссмейстер Проф: /* Игра с компьютером */

2023-10-18T14:08:27Z

‎Игра с компьютером

Гроссмейстер Проф: /* Игра с компьютером */ комп меньше 125 не ходит

2023-10-18T14:06:38Z

‎Игра с компьютером: комп меньше 125 не ходит

Гроссмейстер Проф: /* Игра с компьютером */ на случай, если напишешь меньшее число, чем было

2023-10-18T13:46:04Z

‎Игра с компьютером: на случай, если напишешь меньшее число, чем было

Проф: /* Версия игры «Маятник Профа» */

2016-04-10T06:31:13Z

‎Версия игры «Маятник Профа»

Проф: больше квадратов и 197, хороших и разных

2016-03-20T17:05:04Z

больше квадратов и 197, хороших и разных

Проф в 16:46, 18 марта 2016

2016-03-18T16:46:00Z

Проф: не ситкомом единым

2016-03-15T14:22:38Z

не ситкомом единым

Новая страница

'''197''' — гениальнейшая игра, придуманная не менее гениальным [[Участник:Проф|Профом]]. Играют двое. Первый называет квадрат какого-либо натурального числа, второй добавляет к нему ещё один квадрат натурального числа и называет сумму, и т. д. по очереди. У кого получится число 197 — тот и побеждает. Называть число, большее 197, запрещено.

== Анализ ==
При кажущейся простоте игра изобилует множеством вариантов, поэтому просчитать в уме все ходы наперёд могут только люди с IQ=197 и выше. Однако известно, что при наилучшей игре обоих игроков всегда победит второй, поскольку среди множества чисел, ведущих шаг за шагом к победе, нет ни одного квадрата. Например, последние 3 «победных» числа — это 190, 192 и 195. Назвавший одно из них или другое такое число гарантирует себе победу вне зависимости от того, как будет ходить его противник:
* …''190'' → 191 → ''195'' → 196 → '''197'''
* …''190'' → 194 → ''195'' → 196 → '''197'''

Для пущего интереса можно усложнить игру, запретив, например, называть два одинаковых квадрата подряд. В любом случае играть в «197» — одно удовольствие для истинных интеллектуалов.

[[Категория:Игры]]

@@ Строка 27: / Строка 27: @@
     goto No;
     end;
-   i:=38;
+   i:=20;
     repeat
     i:=i-1;

@@ Строка 10: / Строка 10: @@
 == Игра с компьютером ==
 Мудрейшему Профу удалось написать сильнейшую компьютерную программу для этой игры. Для игры достаточно установить Паскаль и вбить следующий код:
-  var h, S, i, c: integer; W: array[1..37] of integer;
+  var h, S, i, c: integer; W: array[1..19] of integer;
   label No;
   begin

@@ Строка 15: / Строка 15: @@
   writeln('Добро пожаловать в "197"! Первым ходом пишешь квадрат натурального числа, потом сразу сумму.');
   S:=0;
-  W[1]:=125; W[2]:=130; W[3]:=132;
+  W[1]:=125; W[2]:=130; W[3]:=132; W[4]:=135; W[5]:=140; W[6]:=145; W[7]:=153;
- W[4]:=135; W[5]:=140; W[6]:=145; W[7]:=153; W[8]:=158; W[9]:=163;
+ W[8]:=158; W[9]:=163; W[10]:=175; W[11]:=177; W[12]:=180; W[13]:=182; W[14]:=185;
- W[10]:=175; W[11]:=177; W[12]:=180; W[13]:=182; W[14]:=185; W[15]:=187;
+ W[15]:=187; W[16]:=190; W[17]:=192; W[18]:=195; W[19]:=197;
- W[16]:=190; W[17]:=192; W[18]:=195; W[19]:=197;
    repeat
    No:

@@ Строка 15: / Строка 15: @@
   writeln('Добро пожаловать в "197"! Первым ходом пишешь квадрат натурального числа, потом сразу сумму.');
   S:=0;
-  W[1]:=5; W[2]:=10; W[3]:=15; W[4]:=17; W[5]:=20; W[6]:=27; W[7]:=47; W[8]:=50;
+  W[1]:=125; W[2]:=130; W[3]:=132;
- W[9]:=55; W[10]:=60; W[11]:=65; W[12]:=67; W[13]:=70; W[14]:=73; W[15]:=78;
+  W[4]:=135; W[5]:=140; W[6]:=145; W[7]:=153; W[8]:=158; W[9]:=163;
- W[16]:=88; W[17]:=102; W[18]:=112; W[19]:=125; W[20]:=130; W[21]:=132;
+  W[10]:=175; W[11]:=177; W[12]:=180; W[13]:=182; W[14]:=185; W[15]:=187;
-  W[22]:=135; W[23]:=140; W[24]:=145; W[25]:=153; W[26]:=158; W[27]:=163;
+  W[16]:=190; W[17]:=192; W[18]:=195; W[19]:=197;
-  W[28]:=175; W[29]:=177; W[30]:=180; W[31]:=182; W[32]:=185; W[33]:=187;
-  W[34]:=190; W[35]:=192; W[36]:=195; W[37]:=197;
    repeat
    No:

@@ Строка 25: / Строка 25: @@
    write('Твой ход: ');
    readln(h);
-   if (round(sqrt(h-S))=sqrt(h-S)) and (h<197) then S:=h else
+   if (h>S) and (round(sqrt(abs(h-S)))=sqrt(abs(h-S))) and (h<197) then S:=h else
     begin
     writeln('Ты неправильно походил, мудила!');

← Предыдущая		Версия 06:31, 10 апреля 2016
Строка 82:		Строка 82:

	[[Категория:Игры]]		[[Категория:Игры]]
		+	[[Категория:Проф одобряет]]

@@ Строка 40: / Строка 40: @@
     until S=W[i];
    until S=197;
   writeln('Сасай, лалка!');
   readln;

← Предыдущая		Версия 16:46, 18 марта 2016
Строка 7:		Строка 7:

	Для пущего интереса можно усложнить игру, запретив, например, называть два одинаковых квадрата подряд. В любом случае играть в «197» — одно удовольствие для истинных интеллектуалов.		Для пущего интереса можно усложнить игру, запретив, например, называть два одинаковых квадрата подряд. В любом случае играть в «197» — одно удовольствие для истинных интеллектуалов.
		+
		+	== Игра с компьютером ==
		+	Мудрейшему Профу удалось написать сильнейшую компьютерную программу для этой игры. Для игры достаточно установить Паскаль и вбить следующий код:
		+	var h, S, i, c: integer; W: array[1..37] of integer;
		+	label No;
		+	begin
		+	writeln('Добро пожаловать в "197"! Первым ходом пишешь квадрат натурального числа, потом сразу сумму.');
		+	S:=0;
		+	W[1]:=5; W[2]:=10; W[3]:=15; W[4]:=17; W[5]:=20; W[6]:=27; W[7]:=47; W[8]:=50;
		+	W[9]:=55; W[10]:=60; W[11]:=65; W[12]:=67; W[13]:=70; W[14]:=73; W[15]:=78;
		+	W[16]:=88; W[17]:=102; W[18]:=112; W[19]:=125; W[20]:=130; W[21]:=132;
		+	W[22]:=135; W[23]:=140; W[24]:=145; W[25]:=153; W[26]:=158; W[27]:=163;
		+	W[28]:=175; W[29]:=177; W[30]:=180; W[31]:=182; W[32]:=185; W[33]:=187;
		+	W[34]:=190; W[35]:=192; W[36]:=195; W[37]:=197;
		+	repeat
		+	No:
		+	write('Твой ход: ');
		+	readln(h);
		+	if (round(sqrt(h-S))=sqrt(h-S)) and (h<197) then S:=h else
		+	begin
		+	writeln('Ты неправильно походил, мудила!');
		+	goto No;
		+	end;
		+	i:=38;
		+	repeat
		+	i:=i-1;
		+	for c:=1 to 14 do if S+c*c=W[i] then
		+	begin
		+	S:=W[i];
		+	writeln('Ход компьютера: ', S);
		+	end;
		+	until S=W[i];
		+	until S=197;
		+	writeln('Сасай, лалка!');
		+	readln;
		+	end.

	[[Категория:Игры]]		[[Категория:Игры]]