использование 2х мерных массивов внутри функции или процедуры

[kartalex]

Добрый вечер!! Замечательный форум, нашел здесь много интересных топиков.

Позвольте задать еще один вопрос от новичка в программировании..

допустим имеются двухмерные массивы, состоящие из integer:

var a: array[1..4,1..3] of integer;
b: array[1..6,1..8] of integer;

как написать процедуру, изменяющую значения этих массивов, например, делающую зеркальное преобразование по вертикали


1 2 3 4
5 6 7 8
9 10 11 12

преобразуется в


4 3 2 1
8 7 6 5
12 11 10 9

причем определить размеры массива процедура должна сама, т е в качестве аргумента мы должны задать только имя массива:

FlipArrayVertical(a);

заранее спасибо за ответ! Обещаю, что когда вырасту в программировании, сам буду отвечать на вопросы от новичков!

[Sazary]

Если хотите, чтобы процедура работала с массивами разного размера, то нужно создавать массив динамически.

type mas = array of array of integer;
var
a: mas;
b: mas;

Теперь создадим массив и заполним его:

procedure TForm1.Button1Click(Sender: TObject);
var i,j : integer;
begin
 SetLength(a,3);
 for i:=0 to 2 do
  SetLength(a[i],4);

 for i:=0 to 2 do
  for j:=0 to 3 do
   a[i,j] := i*10+j;

 FlipArrayVertical(a);

end;

А процедура будет выглядеть, например, так:

procedure FlipArrayVertical(a : mas);
var m,n : integer;
begin
m := length(a);
n := length(a[1]);
ShowMessage(IntToStr(m)+' '+IntToStr(n));
end;

Вот вам пример.

[kartalex]

Значит с каждым двухмерным массивом нужно обращаться как с массивом массивов!!! Спасибо большое за ценный совет!

А есть ли возможность в динамическом массиве начинать индексы массивов не с 0 а с 1?

т е чтобы наш массив имел такой вид после его создания

A[1..4,1..4]

вместо

A[0..3,0..3]

[Sazary]

А есть ли возможность в динамическом массиве начинать индексы массивов не с 0 а с 1?

Насколько знаю, нет.

[Bayazet]

просто не используй нулевой индекс массива и все
тогда надо бедет делать SetLength(n+1)

[Sazary]

Сообщение от Bayazet

росто не используй нулевой индекс массива и все
тогда надо бедет делать SetLength(n+1)

Очень нерациональное использование памяти ради сомнительного удобства

[Bayazet]

var a: array[1..4,1..3] of integer;
b: array[1..6,1..8] of integer;

Очень нерациональное использование памяти ради сомнительного удобства

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

хотя некоторые использую нулевой индекс массива, записывая в него длинну оного массива... кстати, что выгоднее: запрос длинны массива через length(ar) или же просмотр ar[0] с предварительно внесенным туда значением длины?

ЗЫ: не учитывая необходимость каждый раз вручную увеличивать ar[0] при увеличении размерности массива

[Sazary]

Bayazet, сейчас это 92 байта, потом 92 Мегабайта..
Лучше сразу приучаться к стандартам. Иначе можно приобрести нехорошую привычку (не экономить память).

Тем более, я действительно не вижу никаких неудобств при отсчете с нуля (правда, я сишник, но это дело не меняет).

кстати, что выгоднее: запрос длинны массива через length(ar) или же просмотр ar[0] с предварительно внесенным туда значением длины?

Лично мне удобнее length(ar)
Более универсально исключает ошибку (при неверном задании размера в ar[0])

[Bayazet]

ну да, я понимаю, что начинается все с малого. win3.1 тоже помещались на дискетку

но если есть программа, в которой уже написаны все процедуры-функции, в которых идет просмотр массива с первого эл-та?
лично я бы не стал все это трогать (по принципу, не трогай - не завоняет)

а к вопросу о том, что выгоднее: мне тоже удобнее юзать length(ar).
но вопрос в том, насколько "дольше" выхолняется пересчет эл-тов массива, относительно запроса одного из элемента?

[Sazary]

но если есть программа, в которой уже написаны все процедуры-функции, в которых идет просмотр массива с первого эл-та?

Что-то мне подсказывает, что если программа небольшая (например, вузовская задачка), то и менять там немного, а если, все-таки, большая, то она изначально должна писаться под динамику (естественно, если она там нужна).

Впрочем, если кому-то не жаль лишней памяти для своего удобства, то и вопрос снимается.

но вопрос в том, насколько "дольше" выхолняется пересчет эл-тов массива, относительно запроса одного из элемента?

Как вариант, можно посылать процедуре размер