[Pascal] Jak pouzit 2D pole jako parametr procedury?

[Fx]

Jde to? Chci procedurou otocit matici o 90 stupnu, priznavam, je to domaci ukol, mam to uz hotove, ale potrebuju to udelat jako proceduru, a tak troskotam na tomto problemu. Matici mam jako 2D pole a rad bych ji zadal jako parametr procedury.

procedure otoc(m: array of integer);

mi vyhazuje problem s druhym indexem, kdyz tam pak ruzne prirazuju

a procedure otoc(m: array of array of integer);

taky samozrejme nejde

i kdyz to zadam jako var, pripadne const, taky to dela problemy - takze jak na to? Nemam tu zadnou rozumnou knizku, do ktery bych nahledl...

Pouzivam Turbo Pascal 7

[sisi]

Nadefinuj to 2D pole ako typ (cez "type") alebo posielaj tej procedure nan pointer (co je lepsie, najma ak je to pole dost velke).

[Fx]

Pres type jsem to zkousel, to slo, ja jen myslel, ze neco delam blbe... A pokud jde o ten pointer, zas tak moc v pascalu neumim

[Gargamel]

Pointerum s emuzes vyhnout pokud to budes predavat pres var - vpodstate se jedna taky o ukazatel, tal Pascal ti ho skryje, takze pracujes s datovou strukturou jakoby byla lokalni.

[Lunatic]

procedure otoc(m: array of integer);

To predsa nemoze fungovat. Aby si mohol adresovat cez druhy index, musel by poznat rozsah prveho indexu.
A co tak to skusit adresovat jednorozmerne?

[KtK]

Obavam se, ze dokud ta matice nebude NxN, (ctvercova), tak si s polem nepomuzes.. takze zacni studovat pointery a dynamicke seznamy. (neni to tak tezke, kdyz se naucis myslet "tim spravnym zpusobem")

K te prvni podmince (NxN) mozna pribude i to, ze musi byt o zname velikosti-nejsem si jistej, jestli (turbo)pascal disponuje moznosti zjistit za behu velikost pole nebo dokonce jestli jde predat pole o nezname velikosti jako parametr (muze to v TP vubec existovat?).

a vubec, udelej to jako objekt a mas to.. ten si bude jen pamatovat jestli je transponovanej nebo ne, a metoda dejprvek() pak podle toho sahne na spravne misto. prvky samozrejme jako 2D dyn. seznam.

[Fx]

Dik obema, ale rozmer pole dopredu znam je, je to fakt jenom domaci ukol, netreba to prilis resit, myslel jsem, ze delam chybu v deklaraci, a ono to fakt jinak nez pres vlastni typ nejde (nebo jde, ale ne pres funkce, ktere teoreticky mame znat)

[Rainbow]

Vlastny typ je najlepsie riesenie. Potom ho mozes pouzivat nejako takto:

type mojtyp=array[1..M,1..N] of Real;
procedure nieco(var m: mojtyp);
begin
  m[1,5] := ...
end;

alebo ako beztypovy parameter - vtedy treba pouzit pretypovanie - takto:

type mojtyp=array[1..M,1..N] of Real;
procedure nieco(var m);
begin
  mojtyp(m)[1,5] := ...
end;

BTW. V Delphi sa daju robit dynamicke polia - velmi pekna vec :

var x: array of Integer;
begin
  SetLength(x, 5);
end.

[Fx]

Rainbow, dik za pomoc, presne tak, jak byl dany ten prvni priklad, jsem to udelal uz v utery a mam to davno hotovy. Paklize tu nebude jeste nekdo neco doplnovat, myslim, ze je mozny to locknout.

BTW Delphi mam kvuli mnohym takovymto vecem mnohem radsi, ale zatim se placame v pascalu, tak se to musi nejak prijmout, no...