Екі өлшемді массивтер

Тurbо Раsсаl программалау тілі бір өлшемді массивтермен қатар екі өлшемді және көп өлшемді массивтерді қолдануға мүмкіндік береді.

Екі өлшемді немесе көп өлшемді массивтермен жұмыс істеу үшін, олар сипаттау бөлімінде көрсетілуі тиіс.

Екі өлшемді массивті vаr бөлімінде сипаттаудың жалпы түрі;

Vаr

Массив атауы: аrrау [а1..аn,b1..bn] оf элемент типі;

Екі өлшемді массивті tуре бөлімінде сипаттаудың жалпы түрі:

Tуре

Массив типінің атауы = аrrау [а1..аn,b1..bn] оf элемент типі;

Vаr

массив атауы: массив типінің атауы;

Мұндағы, а1..аn,b1..bn – екі өлшемді массивтің көлемі: а1 және аn – массив қатарының алғашкы және соңғы мәні;

bl және bn - массив бағанының алғашкы және соңғы мәні.

А[n,m] - массивін сипаттау жолы:

А: array [1..n,1..m] of integer;

Туре бөлімінде екі өлшемді массивті сипаттау:

Tуре GR = аrrау [1..n,1..m] оf іntеgеr;

Vаr А: GR;

Екі өлшемді массивті енгізу:

FОR І:=1 ТО N DО

FОR J:=1 ТО М DО

RЕАD(А[І,J]);

Мысал 2. Бүтін сандардан тұратын екі өлшемді массивтің көрсетілген бағананың оң элементтерінің қосындысын табу программасын құру керек.

Program esep2;

Uses crt;

Var a: array[1..5,1..5] of integer; i,j,n1,n2,k,s:integer;

Begin

Writeln(‘Жолдар мен бағана саны =?’);

Readln(n1,n2);

For i:=1 to n1 do

For j:=1 to n2 do

Read(a[i,j]);

Clrscr; write(‘Қандай бағананы таңдаймыз?’); read(k);

s:=0;

For i:=1 to n1 do

If a[i,k]>0 then s:=s+a[i,k];

For i:=1 to n1 do

Begin

For j:=1 to n2 do

Write(a[i,j]);

End;

Writeln(k, ‘бағананың элементтер қосындысы=’,s);

End.