На бесконечном поле имеется вертикальный коридор. Длина его неизвестна. От верхнего края вертикального коридора отходит горизонтальный коридор также неизвестной длины. Точное направление поворота коридора. На рисунке указан один из возможных расположения коридора и робота. дополни алгоритм для робота, закрашивающий все клетки коридора. Алгоритм должен одинаково правильно, сработать как для коридора, поворачивающего направо, так и для коридора, поворачивающего налево.
использовать Робот
алг
нач
.нц пока ___
..
..
. ___
. ___ ___ ___
... ___ ___
закрасить

...кц
..иначе
... ___ пока сверху ___
закрасить

...кц
. ___
кон

Судья использует такие жесты как: Начало игры, штрафной удар, удар с боковой линии, угловой удар, бросок от ворот, тайм-аут, отсчёт секунд, нарушение. 1) Начало игры-Судья одной рукой держит у рта свисток, а вторую, выпрямив, вытягивает в сторону. Этим он дает старт к началу игры. 2)Штрафной удар-После свистка судья выпрямляет руку в направлении будущего удара. 3)удар с боковой линии-О таком ударе «сообщает» рука, поднятая под углом в 45 градусов по отношении к плечу. 4)Угловой удар-Судья подает сигнал к угловому удару, стоя лицом к футболисту опустив прямую руку к земле. 5)Бросок от ворот-Рука опускается так же, как и в предыдущем случае. При этом судья ее держит перед собой, а не сбоку. 6)Тайм аут-Такой жест «сообщает» о том, что одна из команд попросила временный перерыв. Он выполняется следующим образом: на одно руке выпрямляются вверх пальцы, и на них кладется открытая ладонь второй руки. 7)Отсчёт-Судья поднимает руку вверх и начинает по одному раскрывать пальцы, отсчитывая секунды. 8)Нарушение-В некоторых случаях судья не наказывает футболиста желтой или красной карточкой. Однако если игрок набирает 5 незначительных нарушений, судья его штрафует. Сигналом к этому служит поднятая вверх рука с открытой «пятерней». 9)Принцип преимущества для набранного и ненабранного нарушения-В первом случае судья подает сигнал, поднимая перед собой две руки и указывая направление. Во втором – поднимается только одна рука. Команда наказывается только после того, как набрала не менее пяти фолов 10)Набранное нарушение-Сигнал подается согнутыми в локтях руками, сложенными друг над другом. Он показывает, что фол зарегистрирован после нескольких набранных нарушений. 11)Свободный удар-Арбитр поднимает перед собой руку, выставив открытую ладонь в направлении игрока, производящего свободный удар. 12)Номера игроков-Чтобы отметить игрока, который нарушил правила, судья поднимает руку/руки вверх с отставленными пальцами. Их число равно номеру, указанному на спине футболиста. 13)Карточка-жёлтая или синяя 14)Гол-Мяч забит в ворота.

Основа взята на сайте progmatem.ru. К сожалению, автор статьи там не был указан.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
  w=1000;
  h=600;

function f(x:real):=0.5*x*cos(2*x);

begin
  SetWindowSize(w,h);
  // поле для графика в окне
  var xLeft:=50;
  var yLeft:=50;
  var xRight:=w-xLeft;
  var yRight:=h-yLeft;
  // интервалы по осям
  var ax:=-12.0;
  var bx:=12.0;
  var hx:=1.0;
  var ay:=-6.5; // минимум f(x) с запасом
  var by:=6.5;
  var hy:=0.5;
  // масштабы по осям
  var mx:=(xRight-xLeft)/(bx-ax);
  var my:=(yRight-yLeft)/(by-ay);
  // точка начала координат графика
  var x0:=xLeft+Trunc(abs(ax)*mx);
  var y0:=yRight-Trunc(abs(ay)*my);
  // рисование координатных осей
  Line(xLeft,y0,xRight+10,y0);
  Line(x0,yLeft-10,x0,yRight);
  SetFontSize(12); SetFontColor(clBlue);
  TextOut(xRight+15,y0-10,'X');
  TextOut(x0-4,yLeft-30,'Y');
  SetFontSize(8); SetFontColor(clGreen);
  // рисование засечек
  var s:string;
  for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
  for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
  // собственно график
  var xi:=ax;
  while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

*******************************************
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
  w=1000;
  h=600;

function f(x:real):=8*sin(x)*sin(2*x);

begin
  SetWindowSize(w,h);
  // поле для графика в окне
  var xLeft:=50;
  var yLeft:=50;
  var xRight:=w-xLeft;
  var yRight:=h-yLeft;
  // интервалы по осям
  var ax:=-15.0;
  var bx:=15.0;
  var hx:=1.0;
  var ay:=-6.5; // минимум f(x) с запасом
  var by:=6.5;
  var hy:=0.5;
  // масштабы по осям
  var mx:=(xRight-xLeft)/(bx-ax);
  var my:=(yRight-yLeft)/(by-ay);
  // точка начала координат графика
  var x0:=xLeft+Trunc(abs(ax)*mx);
  var y0:=yRight-Trunc(abs(ay)*my);
  // рисование координатных осей
  Line(xLeft,y0,xRight+10,y0);
  Line(x0,yLeft-10,x0,yRight);
  SetFontSize(12); SetFontColor(clBlue);
  TextOut(xRight+15,y0-10,'X');
  TextOut(x0-4,yLeft-30,'Y');
  SetFontSize(8); SetFontColor(clGreen);
  // рисование засечек
  var s:string;
  for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
  for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
  // собственно график
  var xi:=ax;
  while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.