Проекция массива Опции

[Merhaba]

Добрый Вечер!!!
Помогите Пожалуйста решить задачу:
В трехмерном массиве размерностью m*n*l , состоящим из нулей и единиц, хранится изображение(сеточное)некоторого трехмерного тела. Получить двумерный массив - его проекцию(тень) на любое выбранное направление.

Я думаю, что:
1. В 3D координатах рисуем кубик, представляющий исхдный массив (если размерности не равны, то кубик кубиком уже не будет, но это к делу не относится).
2. Рисуем плоскость проекции.
3. Разбиваем плоскость на "пиксели", соответствующие элементам получаемого массива-проекции, т.е. на квадратики.
4. Проецируем на плоскость все элементы массива. Если в любую точку "пикселя" падает проекция хоть одной единицы - элементу массива-проекции присваиваем единицу. Если только нули - ноль.

Помогите Пожалуйста написать код)

[Lapp]

Перед этим нужно запросить у пользователя n.
Организовать три цикла по заполнению массива с помощью генератора целых чисел в диапозоне: 0..1

С этим сам справишься? Только одно НО: нельзя запрашивать у пользователя n, которое входит в определение типа. Либо нужно сделать тип по максимуму (и запрашивать ограничение), либо использовать динамические массивы (что, конечно, предпочтительнее).

У меня затруднение вызывает проектирование на любое выбранное направление

Я полагаю, что "любое" означает "любое из трех" на самом деле - то есть параллельно x, y и z.

Допустим, изображение находится в массиве a, и ты хочешь получить его проекцию на плоскость xz (то есть, параллельно направлению y).
Массив для этой проекции так и назовем: xz.

var
  xz: array [1..n,1..n] of byte;

, мысля, что первый индекс - это x, а второй - z.
Тогда сам процесс получения проекции можно организовать примерно так:

for x:=1 to n do
  for z:=1 to n do begin
    y:= 1;
    while (y<=n) and (a[x,y,z]=0) do Inc(y);
    xz[x,z]:= byte(y<=n)
  end;

Ты можешь написать непосредственно три таких куска (меняя только массивы, представляющие плоскость, и индексы). Если хочешь реализовать, как функцию (для большего кпд кода), то нужно будет немного поменять архитектуру данных (либо вставить выбор непосредственно в цикл, что не есть хорошо и красиво).

[Merhaba]

С этим сам справишься? Только одно НО: нельзя запрашивать у пользователя n, которое входит в определение типа. Либо нужно сделать тип по максимуму (и запрашивать ограничение), либо использовать динамические массивы (что, конечно, предпочтительнее).

Я полагаю, что "любое" означает "любое из трех" на самом деле - то есть параллельно x, y и z.

Допустим, изображение находится в массиве a, и ты хочешь получить его проекцию на плоскость xz (то есть, параллельно направлению y).
Массив для этой проекции так и назовем: xz.

var
  xz: array [1..n,1..n] of byte;

, мысля, что первый индекс - это x, а второй - z.
Тогда сам процесс получения проекции можно организовать примерно так:

for x:=1 to n do
  for z:=1 to n do begin
    y:= 1;
    while (y<=n) and (a[x,y,z]=0) do Inc(y);
    xz[x,z]:= byte(y<=n)
  end;

Ты можешь написать непосредственно три таких куска (меняя только массивы, представляющие плоскость, и индексы). Если хочешь реализовать, как функцию (для большего кпд кода), то нужно будет немного поменять архитектуру данных (либо вставить выбор непосредственно в цикл, что не есть хорошо и красиво).

Скажите Пожалуйста, а что " xz[x,z]:= byte(y<=n)" означает?