ПомогитеееееБригаде строителей поручили уложить квадратной плиткой пол на кухне в виде
Помогитеееее
Бригаде строителей поручили уложить квадратной плиткой пол на кухне в
виде шахматного узора. Но строители работали не очень слаженно, и когда
весь пол теснее был уложен, оказалось, что в неких местах плитки
схожего цвета граничат друг с приятелем.
По данному замощению определите, какое малое число строителей могло укладывать плитку.
Входные данные
Входной файл INPUT.TXT содержит восемь строк, состоящих из восьми
знаков W и B приобретенное замощение. Знак W означает плитку белоснежного
цвета, а знак B чёрную.
Выходные данные
В выходной файл OUTPUT.TXT необходимо вывести одно число - искомое число строителей.
Образцы
INPUT.TXTOUTPUT.TXT
1WBWBWBBW
BWBBWBWB
WBWWBWBW
WBWWBWWB
BWBBWBWB
WBWBWWBW
BWBWBBWB
WBWBWWBW4
i, j, k : integer;
a : array [0..9,0..9] of char;
procedure U(i,j:integer);
var c : char;
begin
c:=a[i,j]; a[i,j]:=' ';
if (c='W')and(a[i+1,j]='B') then U(i+1,j);
if (c='B')and(a[i+1,j]='W') then U(i+1,j);
if (c='W')and(a[i-1,j]='B') then U(i-1,j);
if (c='B')and(a[i-1,j]='W') then U(i-1,j);
if (c='W')and(a[i,j+1]='B') then U(i,j+1);
if (c='B')and(a[i,j+1]='W') then U(i,j+1);
if (c='W')and(a[i,j-1]='B') then U(i,j-1);
if (c='B')and(a[i,j-1]='W') then U(i,j-1);
end;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
for i:=1 to 8 do begin for j:=1 to 8 do
read(a[i,j]);
readln
end;
for i:=1 to 8 do
begin
a[0,i]:=' '; a[9,i]:=' '; a[i,0]:=' '; a[i,9]:=' '
end;
k:=0;
for i:=1 to 8 do
for j:=1 to 8 do
if a[i,j]lt;gt;' ' then
begin
k:=k+1; U(i,j)
end;
write(k);
close(output)
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.