uses robot;
begin
task ('cif10');
while freefromright do begin
right;
end;
end.
никак не пойму как закрасить помеченные клетки
прошу помогите я уже столько всего перепробовал но никак не уловлю мысль
моя идея была в том чтоб робот когда видит закрашиваемую клетку и внизу нет стены то он опускается-красит-поднимается вверх но он у меня постоянно идет вверх после закрашивания первой помеченной точки
Вы сами написали, что после окрашивания робот должен подниматься.
а как написать чтоб он один раз поднялся т.е. вернулся и дальше вправо пошел
Напишите полностью условие задачи.
uses robot;
begin
task ('cif10');
end.
напишите это в паскале абс и запустите ее там будет задание
Извините, но Паскаля АБС у меня нет.
вот решение мож кому пригодится
uses robot;
begin
task ('cif10');
while freefromright do begin
right;
if cellispainted and freefromdown then begin
down;
paint;
up;
end;
end;
end.
А ВОТ РОБОТ CIF15
Uses Robot;
begin
Task('cif15');
while freefromright do begin
right;
Up;
if CellIsPainted then
begin
Down;
Down;
if CellIsPainted then
begin
Up;
Paint;
Up;
end
else
begin
Up;
Up;
end;
end;
Down;
end;
end.
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)