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

[Bayazet]

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

не понял, можете пояснить?

[Sazary]

Имею в виду что-то вроде:

procedure FlipArrayVertical(a : mas; m,n : integer);

где mas - динамический массив, а m,n - размеры

Это как альтернатива хранению его в нулевом элементе.

[Lelik_cool]

Товарищи! по ходу дела возник вопрос: возможно ли объявление такого типа:

type
Tmas = Array [1..10000,1..4] of real;
Var
OptL, OptW, OptH : Tmas;

или частности в этом деле невозможны и надо было динамическую структуру объявлять?

[Пепел Феникса]

а попробывать религия запрещает?(фраза сперта)

[Lelik_cool]

в том то и дело, что поробовал... после этого процедура сортировки массива гоняет что угодно, но только не его. после прогона ничего не меняется. думаю, проблема в этом, ибо все остальные аргументы процедуры верны- проверял... если меня поправят, буду счастлив.
а, если щас объявлять динамическую структуру, надо будет около 600 строк переписывать... поэтому решил сначала посоветоваться.
процедура такого плана:

procedure NameProc(u: Tmas; h: integer; k: integer)
h- число начальных строк, которые нужно подвергнуть сортировке,
k- столбец, по которому сортировать надо

[Пепел Феникса]

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

в вашем коде передается копия массива в процедуру, поставьте перед именем массива(в параметре) var, то есть передавайте по ссылке.
(учите основы)

[Lelik_cool]

Дружище, понимаю, что пузырь- извращение, но все же можешь глянуть? я просто не вижу ошибку:

type
Tmas = Array [1..10000,1..4] of real;
Var
OptL, OptW, OptH : Tmas;

Procedure Bubble(u: Tmas; h: integer; k: integer);
Var
m, n : integer;
x : real;
begin
for n := 2 to h do
begin
for m := h-1 downto n do
begin
if u[m-1,k] < u[m,k] then
begin
x := u[m-1,1];
u[m-1,1] := u[m,1];
u[m,1] := x;

x := u[m-1,2];
u[m-1,2] := u[m,2];
u[m,2] := x;

x := u[m-1,3];
u[m-1,3] := u[m,3];
u[m,3] := x;

x := u[m-1,4];
u[m-1,4] := u[m,4];
u[m,4] := x;
end;
end;
end;
end;

OptL, OptW, OptH в последствии должны стать аргументами процедуры.
нужно отсортироватьвесь массив построчно в соответствии с убыванием элементов столбца k.
не обижусь, если рассматривать никто не будет. либо заранее благодарен)

[Lelik_cool]

благодарю! вопрос снят!) спасибо огромное!!!