Скачать: CL | DM;

Помогите дорешать задачу, пожалуйста...   Найти похожие ветки 

← →
Lip   (2007-12-19 02:11) [0]

Куб состоит из n^3 прозрачных и непрозрачных элементарных кубиков. Имеется хотя бы один просвет по каждому из направлений? Если это так, вывести координаты каждого просвета.

Куб представлен трехмерным массивом: array [1..n, 1..n, 1..n] of Byte;
0 - просвет
1 - стена

...
type
 TCube = array [1..n, 1..n, 1..n] of Byte;
...
Проверяю наличие проствета так:

function Check(const a: TCube; const n: Integer): Boolean;
var
 i, j, k: Byte;
 line: Boolean;
begin
 Check := True;
 for i := 1 to n do
   for j := 1 to n do
   begin
     line := True;
     for k := 1 to n do
       if a[i, j, k] = 1 then
       begin
         line := False;
         Break;
       end;
     if line then
       Exit;

     line := True;
    for k := 1 to n do
     if a[i, k, j] = 1 then
     begin
       line := False;
       Break;
     end;
     if line then Exit;
   end;
 Check := False;
end;

Что-то запутался совсем, не знаю уже как сделать...
Помогите, пожалуйста!

---

← →
oldman ©   (2007-12-19 10:36) [1]

Всего надо проверить 3n^2 направлений.
Нарисуй на бумаге куб и направления.
Все встанет на свои места.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.987 c