В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Zulik007
Zulik007
24.03.2020 10:05 •  Информатика

Написать программу, 25 в офисе, где работает программист петр, установили кондиционер нового типа. этот кондиционер отличается особой простотой в . у кондиционера есть всего лишь два параметра: желаемая температура и режим работы. кондиционер может работать в следующих четырех режимах: 1 – «freeze» — охлаждение. в этом режиме кондиционер может только уменьшать температуру. если температура в комнате и так не больше желаемой, то он выключается. 2 – «heat» — нагрев. в этом режиме кондиционер может только увеличивать температуру. если температура в комнате и так не меньше желаемой, то он выключается. 3 – «auto» — автоматический режим. в этом режиме кондиционер может как увеличивать, так и уменьшать температуру в комнате до желаемой. 4 – «fan» — вентиляция. в этом режиме кондиционер осуществляет только вентиляцию воздуха и не изменяет температуру в комнате. кондиционер достаточно мощный, поэтому при настройке на правильный режим работы он за час доводит температуру в комнате до желаемой. требуется написать программу, которая по заданной температуре в комнате t-room, установленным на кондиционере желаемой температуре t-cond и номеру режима работы определяет температуру, которая установится в комнате через час

Показать ответ
Ответ:
lyubasorokina1
lyubasorokina1
14.04.2023 10:45
Var  
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. 
0,0(0 оценок)
Ответ:
Victoria119900
Victoria119900
21.08.2022 09:17

Объяснение:

использовать Робот

алг

нач

вниз

вниз

вниз

вниз

вправо

закрасить

вправо

закрасить

вниз

закрасить

вниз

закрасить

вниз

закрасить

вправо

вверх

закрасить

вверх

закрасить

вверх

закрасить

вправо

закрасить

вниз

закрасить

вниз

закрасить

вниз

закрасить

вправо

вверх

вверх

вверх

закрасить

вправо

закрасить

вправо

закрасить

вправо

закрасить

вправо

закрасить

вверх

закрасить

вверх

закрасить

вправо

закрасить

вправо

закрасить

вниз

закрасить

вниз

закрасить

вниз

закрасить

вниз

закрасить

влево

закрасить

влево

закрасить

вверх

закрасить

вверх

вверх

вверх

вверх

вверх

влево

влево

влево

влево

влево

влево

влево

влево

влево

кон

Прикладываю файл для Кумира с алгоритмом, Ключ.txt но его надо будет переименовать в Ключ.kum


написать линейный алгоритм для исполнителя робот(по рисунку)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота