Обсуждение:197 (игра) - История изменений

Гроссмейстер Проф: Отмена правки 122349, сделанной участником Гроссмейстер Проф (обс.)

2023-11-03T19:08:56Z

Отмена правки 122349, сделанной участником Гроссмейстер Проф (обс.)

Гроссмейстер Проф: /* Прога для варианта игры с добавлением 1 или 2 квадратов с лимитом сверху */

2023-11-03T18:41:20Z

‎Прога для варианта игры с добавлением 1 или 2 квадратов с лимитом сверху

Гроссмейстер Проф: /* Прога для варианта игры с добавлением 1 или 2 квадратов с лимитом сверху */

2023-10-21T15:31:55Z

‎Прога для варианта игры с добавлением 1 или 2 квадратов с лимитом сверху

Гроссмейстер Проф: /* Прога для варианта игры с добавлением 1 или 2 квадратов */

2023-10-21T15:27:00Z

‎Прога для варианта игры с добавлением 1 или 2 квадратов

Гроссмейстер Проф: /* Прога для варианта игры с добавлением 1 или 2 квадратов */

2023-10-21T14:50:45Z

‎Прога для варианта игры с добавлением 1 или 2 квадратов

Гроссмейстер Проф: /* Прога для варианта игры с добавлением 1 или 2 квадратов */

2023-10-21T14:42:56Z

‎Прога для варианта игры с добавлением 1 или 2 квадратов

Гроссмейстер Проф: /* Прога для варианта игры с добавлением 1 или 2 квадратов */

2023-10-21T14:39:36Z

‎Прога для варианта игры с добавлением 1 или 2 квадратов

Гроссмейстер Проф в 14:36, 21 октября 2023

2023-10-21T14:36:42Z

Гроссмейстер Проф: /* Прога для общего случая */ -лишнее

2023-10-19T10:52:42Z

‎Прога для общего случая: -лишнее

Гроссмейстер Проф: /* Прога для общего случая */

2023-10-18T18:32:33Z

‎Прога для общего случая

@@ Строка 195: / Строка 195: @@
 writeln('Сасай, лалка!');
 readln;
 END.
 </poem>

@@ Строка 195: / Строка 195: @@
 writeln('Сасай, лалка!');
 readln;
 END.
 </poem>

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

@@ Строка 91: / Строка 91: @@
 </poem>
-== Прога для варианта игры с добавлением 1 или 2 квадратов ==
+== Прога для варианта игры с добавлением 1 или 2 квадратов с лимитом сверху ==
 <poem>
 Program WisestProf;
-var N, x, y, i, k, l, ww, diff, fs, first, h, S, ii, hod: integer;
+var lim, N, x, y, i, k, l, ww, diff, fs, first, h, S, ii, hod: integer;
 W: array[1..10000] of integer;
-label Net, No, Nicht;
+label Ni, Net, No, Nicht;
 BEGIN
 writeln('Добро пожаловать в "Просто добавь 1 или 2 квадрата"! Вводить можно только квадраты натуральных чисел. Выиграет тот, кто составит сумму, равную победному числу. Составлять сумму, превышающую это число, запрещено.');
   Net:
-  write('Назови победное число (НЕ квадрат натурального и НЕ сумму квадратов): ');
+  write('Назови победное число (которого нельзя достичь за 1 ход): ');
   readln(N);
-  for x:=1 to trunc(sqrt(N) do
+  for x:=1 to round(sqrt(lim)) do
-  for y:=0 to x do if x*x+y*y=N then
+  for y:=0 to x do if (x*x+y*y=N) or (N<lim) then
   begin
   writeln('Давай по новой, Миша, число хуйня');
@@ Строка 121: / Строка 131: @@
   l:=1;
    repeat
-   for x:=1 to trunc(sqrt(N)) do
+   for x:=1 to round(sqrt(lim)) do
    for y:=0 to x do if x*x+y*y=W[l]-ww then diff:=1;
    l:=l+1;
@@ Строка 137: / Строка 147: @@
 repeat
-for x:=1 to trunc(sqrt(N)) do
+for x:=1 to round(sqrt(lim)) do
 for y:=0 to x do if x*x+y*y=W[fs] then if first=0 then
   begin
@@ Строка 173: / Строка 183: @@
   repeat
-  for x:=1 to trunc(sqrt(N)) do
+  for x:=1 to round(sqrt(lim)) do
   for y:=0 to x do if S+x*x+y*y=W[ii] then if hod=0 then
    begin

@@ Строка 174: / Строка 174: @@
   repeat
   for x:=1 to trunc(sqrt(N)) do
-  for y:=0 to x do if S+x*x+y*y=W[ii] then if S<>W[ii] then if hod=0
+  for y:=0 to x do if S+x*x+y*y=W[ii] then if hod=0 then
    begin
    writeln( 'Ход компьютера: ', S, '+',  x*x, '+', y*y, '=', W[ii]);
    S:=W[ii];
    end;
   ii:=ii+1;

@@ Строка 22: / Строка 22: @@
 BEGIN
 writeln('Добро пожаловать в "Просто добавь квадрат"! Прибавлять можно только квадраты натуральных чисел и писать сразу сумму (на первом ходу это просто квадрат). Выиграет тот, кто составит сумму, равную победному числу. Составлять сумму, превышающую это число, запрещено.');
   Net:
   write('Назови победное число (НЕ квадрат натурального): ');
@@ Строка 31: / Строка 30: @@
   goto Net;
   end;
 S:=0;

@@ Строка 35: / Строка 35: @@
 S:=0;
 i:=1;
 for k:=1 to N-1 do
   begin
   diff:=0;
-  ww:=N-1;
+  ww:=ww-1;
   l:=1;
    repeat