Максим П. Задача №2 Чтобы разделить зал на четыре прямоугольные зоны, клетки начали красить в форме - id1857369520230513 от Нинакристярита 13.05.2023 02:46

Question

Информатика: Максим П. Задача №2 Чтобы разделить зал на четыре прямоугольные зоны, клетки начали красить в форме креста, а закончить не успели. Роберт находится в центре креста. Ему нужно довести разметку до стен. Напиши программу, которая позволит роботу закрасить соответствующие клетки и вернуться в исходное положение. move_left() Сделать шаг влево move_right() Сделать шаг вправо move_up() Сделать шаг вверх move_down() Сделать шаг вниз wall_from_up() Проверить, есть ли стена сверху wall_from_down() Проверить,

Нинакристярита · Accepted Answer

ПаскальАВС.нет

var
f:text;
s,t:string;
i,n:integer;
y:boolean; //признак наличия слова NO

function wr(c:char):boolean; //определяет, буква или нет
begin
if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false
end;

begin
assign(f,'d:/file.txt');
reset(f);
repeat
readln(f,t);
s:=t;
y:=false;
i:=pos('NO',s);
while i>0 do
begin
n:=length(s);
if n=2 then
   y:=true
   else
  begin
   if i=1 then
begin
if wr(s[i+2])=false then y:=true;
end
else
if wr(s[i-1])=false then y:=true;
  end;
delete(s,1,i+2);
i:=pos('NO',s);
end;
if y=false then writeln(t);
  until f.Eof;
close(f)
end.

MOGZ ответил