Шахматы - Посчитать количество пустых клеток

@xzplay · Регистрация: 30.12.2015

Студворк — интернет-сервис помощи студентам

На доске стоит несколько офицеров и ладей. Требуется посчитать количество свободных клеток, которые не находятся под боем ни одной из фигур. Доска 8х8.
В первых восьми строках входного файла описывается доска. Первые восемь символов каждой из этих строк описывают состояние соответствующей горизонтали: символ B (заглавная латинская буква) означает, что в клетке стоит офицер, символ R — ладья, символ * — что клетка пуста. Итак, а теперь некоторые нюансы. Если вдруг ладья уперлась в офицера или наоборот, то дальше мы не заполняем строчки. Примечание: Ладья ходит на этой доске - вверх, вниз, вправо, влево. Офицер - по диагонали (левая, правая). Требуется посчитать количество пустых клеток - *.
input
********
*RB*****
********
********
********
********
********
********
output 47
input
RRRRRRRR
BBBBBBBB
RRRRRRRR
BBBBBBBB
RRRRRRRR
BBBBBBBB
RRRRRRRR
BBBBBBB*
output 0

Вот мой код, давайте попробуем исправить в нём ошибки

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
program uzas;
 
var
  c: array [0..7] of array [0..7] of char;
  b: array [0..7] of array [0..7] of boolean;
  z, i, j, k: integer;
begin
  Assign(input, 'input.txt');
  Assign(output, 'output.txt');
  reset(input);
  rewrite(output);
  for i := 0 to 7 do
  begin
    for j := 0 to 7 do
    begin
      Read(c[i, j]);
    end;
    readln;
  end;
  for i := 0 to 7 do
  begin
    for j := 0 to 7 do
    begin
      if c[i][j] = 'R' then
      begin
        for k := i + 1 to 7 do
          if c[k][j] = '*' then
            b[k][j] := True
          else
            break;
        for k := i - 1 downto 0 do
          if c[j][k] = '*' then
            b[j][k] := True
          else
            break;
        for k := j - 1 to 7 do
          if c[k][j] = '*' then
            b[k][j] := True
          else
            break;
        for k := j + 1 to 7 do
          if c[k][j] = '*' then
            b[k][j] := True
          else
            break;
      end;
    end;
  end;
  for i := 0 to 7 do
  begin
    for j := 0 to 7 do
    begin
      if c[i][j] = 'B' then
      begin
        b[i][j] := True;
        for k := 0 to 7 do
          if b[i][j] = True then
            break
          else
          begin
            b[i + k][j + k] := True;
          end;
        for k := 0 to 7 do
          b[i + k][j + k] := True;
        for k := 0 to 7 do
          b[i + k][j - k] := True;
        for k := 0 to 7 do
          b[i - k][j + k] := True;
        for k := 0 to 7 do
          b[i - k][j - k] := True;
      end;
    end;
  end;
  for i := 0 to 7 do
  begin
  for j := 0 to 7 do
  begin
  if c[i][j] = 'B' then
      begin
        b[i][j] := True;
 
      end;
  end;
  END;
 
 
    for i := 0 to 7 do
  begin
  for j := 0 to 7 do
  begin
  if c[i][j] = 'R' then
      begin
        b[i][j] := True;
  end;
  end;
  end;
  for i := 0 to 7 do
  begin
    for j := 0 to 7 do
    begin
      if b[i][j] = False then
        z := z + 1;
    end;
  end;
  Write(z);
  Close(input);
  Close(output);
end.

@bormant · 01.01.2016, 15:32

xzplay,
нет, с этим вы не разобрались.
Кроме того, вывод ваш тоже неверен, от 0 до 7 как раз 8 чисел, для числа строк диапазона 0..7 достаточно, зачем же для диапазона символов строки потребовалось 0..8, как думаете?

@Hikari · 01.01.2016, 16:05

Сообщение от bormant

подобную логику проще писать в таком духе:

Не спорю. Просто это первое, что пришло мне в голову. Впрочем для проверки удара по диагонали вроде как теоремой пифагора можно воспользоваться, только не помню точно как...

ФедосеевПавел · 01.01.2016, 16:26

Hikari, для проверки удара по диагонали или складывают или вычитают i и j.
Например, пусть слон в [0,0], он держит под боем все клетки, у которых i-j=0, т.е. [1,1], [2,2]...[7,7].
А для диагонали в другом направлении нужно складывать i и j. Например, слон в [7,0] держит под боем [6,1], [5,2]...[0,7], т.е. i+j=7.
Аналогично и для других диагоналей не из угловых клеток.

@Hikari · 01.01.2016, 17:55

Сообщение от ФедосеевПавел

для проверки удара по диагонали или складывают или вычитают i и j.

А-а-а, ну да... Теперь припоминаю что-то подобное.
уж годка два эту задачку не видела, вот и забылось все.

Новые блоги и статьи Все статьи Все блоги /
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026
Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .

@bormant Модератор 7818 / 4637 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	01.01.2016, 15:32
	xzplay, нет, с этим вы не разобрались. Кроме того, вывод ваш тоже неверен, от 0 до 7 как раз 8 чисел, для числа строк диапазона 0..7 достаточно, зачем же для диапазона символов строки потребовалось 0..8, как думаете? 0

ФедосеевПавел Модератор 8675 / 4512 / 1670 Регистрация: 01.02.2015 Сообщений: 13,946 Записей в блоге: 13
	01.01.2016, 16:26
	Hikari, для проверки удара по диагонали или складывают или вычитают i и j. Например, пусть слон в [0,0], он держит под боем все клетки, у которых i-j=0, т.е. [1,1], [2,2]...[7,7]. А для диагонали в другом направлении нужно складывать i и j. Например, слон в [7,0] держит под боем [6,1], [5,2]...[0,7], т.е. i+j=7. Аналогично и для других диагоналей не из угловых клеток. 0