Tömbök a pascal

Képzeljünk el egy olyan táblázatot, amely több vonalak. Minden sor áll, több sejtekben. Aztán, hogy határozza meg a pontos helyzetét a sejt, tudnunk kell, hogy több, mint egy szám (például abban az esetben egy lineáris táblázat), de a két: a sorszám és oszlop számot. Az adatstruktúra a Pascal tárolására egy ilyen táblázat az úgynevezett egy kétdimenziós tömböt. Írja le egy ilyen tömbben lehet két módon: I. Var A. Array [1..20] tömb [1..30] egész szám; II.Var A. Array [1..20,1..30] egész szám;

Mindkét esetben leírt kétdimenziós tömböt megfelelő táblázatot, amely 20 sorok és 30 oszlopok. Ezek a leírások egyenértékűek.

Annak illusztrálására, munkamódszerek kétdimenziós tömbök oldja meg a problémát, „Kérjetek és nyomtatni 10X10 tömb, amely az egész véletlen szám az a [1100] Keresse meg az összeget az elemek felett elhelyezkedő fő átlós ..”

A számításnál, kezdve a bal felső sarokban az asztal, akkor vállalja a főátlójában a bal felső sarokban a jobb alsó az asztalra. Ebben az esetben kiderül, hogy az elemek feküdt a diagonális lesz ugyanazt az indexet, és az elemek fölött a fő átlós oszlop száma mindig nagyobb lesz, mint a sorok számát. Is megállapodtak, hogy kezdetben meg egy sorszám, majd - az oszlop számát.

A. Array [1..10,1..10] egész szám; I, K. bájt; S. egész;

S: = 0; Az I: = 1-től 10 Ne elkezdődik K: = 1-től 10-Do Begin

A [I, K]: = TRUNC (Random * 100) + 1; Write (A [I, K]: 6); Ha K> I Ekkor S: = S + A [I, K]

Vége; Writeln vége; WriteLn ( 'Sum elemek fölött Sec. RavnaV átlós', S)

Ha az adatmodell a feladatot nem lehet csökkenteni egyenes vagy sík asztalra, akkor lehet használni tömbök minden dimenzióban. N-dimenziós tömbön jellemzi az N indexeket. A formátum leírása Az adatok típusa: Type

<Имя типа>= Array [<диапазон индекса1>,<диапазон индекса2>. <диапазон индекса N>] A <тип компонент>;

Külön elemneveket az alábbiak szerint: <Имя массива>[<Индекс 1>,<Индекс 2>. <Индекс N>]