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

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

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

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 :-/

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.

Citace:

---

Původně odeslal Fx

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?

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 ;D 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. :)

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)

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

Kód:

---

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:

Kód:

---

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 :-) :

Kód:

---

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

---

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...