Презентация, доклад на тему Обработка двумерных массивов на языке Паскаль

зависит от его местоположения в строке и в столбце.
Каждый элемент матрицы (массива) описывается, как A[i,j],
где A[i,j] – значение элемента матрицы;
A – имя матрицы;
i - номер строки;
j - номер столбца.
Если в матрице количество строк равно количеству столбцов, то такая матрица называется квадратной, в противном случае прямоугольной.

Прямоугольная матрица

Квадратная матрица

<тип >;
где: <имя массива> - идентификатор массива;
array – массив;
<кол-во строк> - количество строк в матрице;
<кол-во столбцов> - количество строк в матрице;
of - для;
<тип компонентов> - описание типа переменных
в массиве (real; integer и т.п.);

Например:

Массив состоящий из 4 столбцов и 3 строк (всего 12 элементов):
a,c : array [1..3,1..4] of real;
b : array [1..3,1..4] of integer;

Массив состоящий из 3 строк и 3 столбцов:
mas : array [1 ..3,1..3] of integer;

формуле.
Заполнение элементов массива случайными числами.
Вывод элементов массива.

Алгоритмы обработки массивов

of real;
i, k: integer;
begin
for i:=1 to 4 do
for k:=1 to 3 do
begin
writeln (‘ввести элемент массива’);
readln(a[i,k]);
end;
end.

of real;
i,k : integer;
begin
for i:=1 to 3 do
for k:=1 to 5 do
a[i,k]:=(i*k+1)/sin(i+k);
end.

primer3;
var a: array [1..2,1..5] of real;
i, k : integer;
begin
Randomize;
for i:=1 to 2 do
for k:=1 to 5 do
a[i,k]:=random(30);
end.

of real;
i,k : integer;
begin
for i:=1 to 3 do
begin
for k:=1 to 4 do
begin
write(‘A(‘,i,’,’k,’)=“, a[i,k]);
end;
writeln;
end; end.

элементов матрицы.
Нахождение количества положительных элементов.
Дан двумерный массив целых чисел, сформировать одномерный массив из сумм значений элементов каждого столбца.

Тест

Выход

[1..4,1..5] of integer;
i,k, max, min : integer;
begin
for i:=1 to 4 do for k:=1 to 5 do readln(a[i,k]);
max:=a[1,1]; min:=a[1,1];
for i:=1 to 4 do
for k:=1 to 5 do begin
if a[i,k]>max then max:=a[i,k];
if a[i,k] end;
writeln(‘Максимальный элемент=’,max);
writeln(‘Минимальный элемент=’,min);
end.

real;
i,k : integer; s : real;
begin
for i:=1 to 4 do for k:=1 to 5 do readln(a[i,k]);
s:=0;
for i:=1 to 4 do
for k:=1 to 5 do begin
s:=s+a[i,k];
writeln(‘Сумма элементов матрицы=’,s);
end;
end.

real;
i, m, k : integer;
begin
for i:=1 to 10 do
for m:=1 to 7 do
readln(a[i,m]);
k:=0;
for i:=1 to 10 do
for m:=1 to 7 do
if a[i,m]>0 then k:=k+1;
writeln(‘Количество положительных
элементов = ’,k);
end.

элементов каждого столбца.

Program prim;
var a : array [1..10,1..6] of real;
b : array [1..6] of real;
n,m : integer; s : real;
begin
for n:=1 to 10 do for m:=1 to 6 do
redln(a[n,m]);
for m:=1 to 6 do
begin
s:=0;
for n:=1 to 10 do
s:=s+a[n,m];
b[m]:=s;
end;
for m:=1 to 6 do writeln(‘Элемент массива В’,b[m]);
end.