Трёхмерный массив Опции

[Yulyasha]

Помогите пожалуйста написать программу заполнения заштрихованной области трехмерного массива.
Заполнение провести единицами, с использованием процедур.
Вывести массив по горизонтальным плоскостям

[Krjuger]

Оно не работает, потому что никогда нельзя менять переменную критерия цикла в самом цикле.У вас получаеться вы на каждой итерации меняете k и в итоге упираетесь в условие,когда k<0, но критерий для выхода из цикла никогда не выполниться и вы получаете вылет за границы.

const n=6;
m=8;
var a:array [1..n,1..m]of integer; i,j:integer;
k:integer;
begin
k:=m;
for i:=1 to n do begin
for j:=k downto k-2 do begin
if (k>0) then begin
a[i,j]:=1;
end;
end;
k:=k-1;
end;
for i:=1 to n do begin
for j:=1 to m do
write (a[i,j]:5);
writeln;
end;
readln;
end.

Вот это хотябы построит лесенку.Но я бы на вашем месте избавился от магических цифр.Тогда получилось нечно подобное.

const n=7;
m=9;
var
 a:array [1..n,1..m] of integer;
 i,j:integer;
 k:integer;
begin
k:=m;
for i:=1 to n do begin
for j:=k downto k-abs(m-n) do begin
if (k>0) then begin
a[i,j]:=1;
end;
end;
k:=k-1;
end;
for i:=1 to n do begin
for j:=1 to m do
write (a[i,j]:5);
writeln;
end;
readln;
end.

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

Сообщение отредактировано: Krjuger - 7.12.2011 4:26