Форум Всеукраїнської інтернет-олімпіади NetOI

Журі NetOI-2006-Пасіхов написав:

Карандаши не ориентрованы

Это хорошо.
И все-таки, как насчет точек соединения? Они должны совпасть?

И все таки насчет фигур хотелось бы услышать ответ от жюри.

2Dark_Dimius: забыл упомянуть что процедура рекурсивная, в процессе она меняет массив и передает его дальше.
type t = array[1..10] of boolean;
procedure Proc(value: t);
var arr: t;
      i: byte;
begin
      for i:=1 to 10 do arr[i]:=value[i];
      {--здесь я меняю arr по алгоритму}
      if условие then Proc(arr);
end;
BEGIN
        Proc( {--сюда я хочу всунуть массив типа t со всеми true,
                не создавая при этом лишних переменных в разделе var --} )
END.

Например,  ...
begin
        Proc(array[1..10] of boolean
                = [true, true, true, true, true, true, true, true, true, true])
end.
... у меня не работает. Подскажи, если можешь, как правильно поступить в этом случае.
Спасибо.

Понятие острия в даном случае аналогично понятию точки разрыва. Если таковой нет то тогда из двух соприкасающихся карандашей может получиться один но побольше. А если такая точка есть есть то фигуры (0 0 1 0 1 0 3 0) и (4 0 6 0 6 0 7 0) не накладываются при паралельном переносе, и вопрос исчерпан.

Інформатика настільки точна наука, що іноді суперечить математиці.

guest1 написав:

ну так...
вопрос звучал уже много раз.
хочется наконец услышать ответ от жюри...

Ответа нет. Точнее есть - в условии.