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

@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.

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

Новые блоги и статьи Все статьи Все блоги /
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА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

ФедосеевПавел Модератор 8667 / 4504 / 1670 Регистрация: 01.02.2015 Сообщений: 13,934 Записей в блоге: 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