Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Т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.
Дата публикования: 2015-10-09; Прочитано: 5445 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!