Двумерные массивы. Загрузка содержимого массива двумерных матриц (2x2) с клавиатуры и
вывод его на экран
Массивы
И+ПРГ
Pascal
Program Matrica;
Const
N=2; (* Количество строк массива *)
M=2; (* Количество столбцов массива *)
K=2; (* Размерность матрицы *)
Type
(* Тип данных – двумерный массив *)
Matr=array [1..N,1..M] of integer;
Var
(* массив двумерных матриц*)
x : array [1..K]of Matr;
i,j,p : integer; (* индексы массивов *)
Begin
(* Загрузка данных *)
writeln ( 'Ввод данных в массив
двумерных матриц ');
for i:=1 to K do
for j:=1 to N do
for p:=1 to M do
write ('X[', i,',', j,',‘,p'] = ');
readln (x[i,j,p]);
см. продолжение
Продолжение
(* Вывод на экран *)
for i:=1 to K do
begin
writeln(i,'-я матрица');
for j:=1 to N do
begin
for p:=1 to M do
write (x[i,j,p],' ');
writeln;
end;
end;
writeln(‘Для выхода из программы
нажмите, пожалуйста, Enter’);
readln;
end.
АЛГОхитрости
Типовые алгоритмические приёмы с массивами