Написать программу, 25 в офисе, где работает программист петр, установили кондиционер нового типа. этот кондиционер отличается особой простотой в . у кондиционера есть всего лишь два параметра: желаемая температура и режим работы. кондиционер может работать в следующих четырех режимах: 1 – «freeze» — охлаждение. в этом режиме кондиционер может только уменьшать температуру. если температура в комнате и так не больше желаемой, то он выключается. 2 – «heat» — нагрев. в этом режиме кондиционер может только увеличивать температуру. если температура в комнате и так не меньше желаемой, то он выключается. 3 – «auto» — автоматический режим. в этом режиме кондиционер может как увеличивать, так и уменьшать температуру в комнате до желаемой. 4 – «fan» — вентиляция. в этом режиме кондиционер осуществляет только вентиляцию воздуха и не изменяет температуру в комнате. кондиционер достаточно мощный, поэтому при настройке на правильный режим работы он за час доводит температуру в комнате до желаемой. требуется написать программу, которая по заданной температуре в комнате t-room, установленным на кондиционере желаемой температуре t-cond и номеру режима работы определяет температуру, которая установится в комнате через час
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]<>' ' then
begin
k:=k+1; U(i,j)
end;
write(k);
close(output)
end.
Объяснение:
использовать Робот
алг
нач
вниз
вниз
вниз
вниз
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вправо
вверх
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вправо
вверх
вверх
вверх
закрасить
вправо
закрасить
вправо
закрасить
вправо
закрасить
вправо
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
влево
закрасить
вверх
закрасить
вверх
вверх
вверх
вверх
вверх
влево
влево
влево
влево
влево
влево
влево
влево
влево
кон
Прикладываю файл для Кумира с алгоритмом, Ключ.txt но его надо будет переименовать в Ключ.kum