A két-dimenziós tömb Pascal, primer és szekunder átlós

A kétdimenziós tömb Pascal

A mátrix vagy kétdimenziós tömböt - egy téglalap alakú tömb a számok (vagy más elemek azonos típusú). Mindegyik mátrix elem két index (sor számát, és oszlop száma).

Kezdeti adatok a megoldás a sok probléma lehet táblázatos formában:

A táblázat eredményei termelési tevékenységek több üzleti egység is képviseli az alábbiak szerint:

zavod1: array [1..4] egész szám; zavod2: array [1..4] egész szám; zavod3: array [1..4] egész szám;

Vagy mint egy kétdimenziós tömböt, mint ez:

var A: array [1..3,1..4] az egész;

Leírás, bemeneti és kimeneti elemei a két dimenziós tömb

Options leírása kétdimenziós tömböt

1. Leírás array változók rész:

var A: array [1..5,1..5] az egész; i, j: integer; összege, sum1, sum2: integer; kezdődik randomize; i: = 1-től 5 do j: = 1-től 5 do A [i, j]: = random (10); write ( 'forrás tömbben A:'); i: = 1-től 5 do kezdeni writeln; j: = 1-től 5 do write (A [i, j]: 2, ''); végén; sum1: = 0; i: = 1-től 5 do j: = 1-től 5 tenni, ha (i-j = 1), akkor sum1: = sum1 + A [i, j]; sum2: = 0; i: = 1-től 5 do j: = 1-től 5 tenni, ha (J-i = 1), akkor sum2: = sum2 + A [i, j]; összege: = sum1 + sum2; writeln; writeln ( 'Sum =', sum); végén.

Beállítása tömb 6: egy mátrix generálását, n dimenziós. Hozd el a képernyőn. Majd átalakítani, azáltal, hogy a szükséges elemeket 0:

Beállítása tömb 7: Develop mátrix n dimenziós. Hozd el a képernyőn. Majd átalakítani, azáltal, hogy a szükséges elemeket 0:

Beállítása tömb 8: Develop mátrix n dimenziós. Hozd el a képernyőn. Majd átalakítani, azáltal, hogy a szükséges elemeket 0:

Cél tömb 9: Készítsen programot, amely lehetővé teszi egy véletlenszám-generátor egy olyan mátrix dimenzió N. Adjuk:

minimális elem, amely alatt fekszik a másodlagos diagonális

termék nemnulla elemeinek az utolsó sor

Vegyünk egy másik példát dolgozó kétdimenziós tömböt.

Példa: Egy kétdimenziós tömb mérete N x M elemek meghatározzák az átlagos értéket. Keresse meg a tömb indexe az elem, amely a legközelebb van a középérték.

var index1, indexe2, I, J, N, M: integer; s, min, F: a valós; egy: ​​array [1..300,1..300] valós; kezdődik N: = 10; M: = 5; i: = 1-N do elkezdődik J: = 1 M DO megkezdi a [i, j]: = random (20); s: = s + a [i, j]; levelet (a [i, j]: 3); végén; writeln; végén; f: = s / (N * M); writeln ( 'srednee znachenie', f); min: = abs (a [1,1] -f); i: = 1-N do elkezdődik J: = 1 M DO kezdeni, ha az ABS (a [i, j] -f)

És most azt javasoljuk, hogy adja át a vizsgálat programozási Pascal kezdeti szinten. Kövesse a linket, vagy kattintson ide. Ha a jelszót a teszt.