«Turbo Pascal » |
Значенко О.П. |
Багатовимірні масиви
Двомірний масив отримується при використання іншої форми запису.
Приклад
Type
massiv = array [ 1..n, 1..m ] of real; Var а: massiv;
або
Var а : array [ 1..n, 1.. m ] of real;
Для звернення до елементу багатовимірного масиву необхідно вказати його ім’я та два індекси: а [ n, m]. Де перший індекс n - відповідає номеру рядку, а m – номеру стовпця.
Введення та виведення елементів масиву
Для введення-виведення елементів, багатовимірного масиву необхідно організувати цикл з параметром.
for i:=1 to n do for j:=1 to m do
begin
write (‘a[‘, i , ‘,’ ,j,’]=’);
readln(a[i, j]);
end;
Для виведення елементів, багатовимірного масиву у вигляді таблиці використовується також цикл з параметром.
for i:=1 to n do begin
for j:=1 to m do
write( a[i, j], ‘ ‘);
writeln;
end;
35
«Turbo Pascal » |
Значенко О.П. |
Приклад програми знаходження суми елементів багатовимірного масиву
Program MAS1;
Const n=2; m=3;
Var a: array [ 1..n, 1..m] of integer; i,j,s:integer;
Begin s:=0;
{введення елементів масиву}
Randomize;
For i:=1 to n do
For j:=1 to m do
Begin a[i,j]:=random(20); s:=s+a[i,j];
End;
{виведення елементів масиву}
For i:=1 to n do
Begin
For j:=1 to m do Write (a[i,j], ' ');
Writeln;
End;
Writeln(' s=',s);
Readln;
End.
Приклад програми знаходження суми елементів стовпців таблиці
Program MAS2;
Const n=2; m=4;
Var a: array [ 1..n, 1..m] of integer; b:array [1..m] of integer; i,j,s:integer;
Begin
{введення елементів масиву}
Randomize; For i:=1 to n do For j:=1 to m do
a[i,j]:=random(20);
{виведення елементів масиву}
For i:=1 to n do
Begin
For j:=1 to m do Write (' ',a[i,j], ' ');
Writeln;
End;
{побудова масиву сум}
For j:=1 to m do
Begin s:=0;
For i:=1 to n do s:=s+a[i,j]; b[j]:=s;
End; Writeln;
{виведення елементів масиву сум}
For i:=1 to m do Write (' ', b[i], ' ');
Readln;
End.
36