Рассмотрим несколько примеров, связанных с поиском по какому-либо условию.

Примеры обработки двумерных массивов. ( слайд 11)

Вывод элементов матрицы ( слайд 10)

Ввод элементов матрицы c клавиатуры ( слайд 9)

1). по строкам

FOR i:=1 TO m DO

FOR j:=1 TO n DO

READ (A[i, j]);

2). по столбцам

FOR j:=1 TO 3 DO

FOR i:=1 TO 5 DO

READ (A[i, j]);

1). по строкам

FOR i:=1 TO 5 DO

begin

FOR j:=1 TO 3 DO

WRITE (' ', A[i, j]:3);

WRITELN;

end;

2). по столбцам

FOR j:=1 TO 3 DO

begin

FOR i:=1 TO 5 DO

WRITE (' ',A[i, j]:3);

WRITELN;

end;

В примерах приняты следующие объявления: ( слайд 12, 13)

VAR
A, B, D : array [ 1..3, 1..4 ]of real ;
С, F , R : array [ 1..3, 1..3 ]of real ;

i , j, p, q : integer;
Sr : array [ 1..3 ] of real ;
Sс : array [ 1..4 ] of real ;

max, buf :real;

1). Поиск max элемента матрицы А(3x4) и его координат. ( слайд 14)

max:=a[1, 1]; p:= 1; q:= 1;

for i:=1 to 3 do

for j:=1 to 4 do

if a[i, j] > max then begin

max:= a[i, j];

p:= i;

q:= j;

end;
{ печать max, p, q }

2).Поменять местами 1-ю строку со строкой, содержащей max элемент матрицы. (слайд 15)

for j:=1 to 4 do

begin

buf:= a[1, j];
a[1, j]:=a[p, j];
a[p, j]:= buf;
end;

3). Поменять местами столбцы с номерам 4 и q. (слайд 16)

for i:=1 to 3 do

begin

buf:= a[i, 4];
a[i, 4]:=a[i, q];
a[i, q]:= buf;
end;

4). Найти максимальные элементы в каждой строке матрицы A. (слайд 17)

for i:=1 to 3 do

begin { фиксируем строку }

max:=a[i,1];

for j:=2 to 4 do

if a[i, j]> max then max:=a[i, j];

writeln('строка ', i ,': max=',max);

end;

5). Найти максимальные элементы в каждом столбце матрицы A (3x4), зафиксировать их координаты. (слайд 18)

for j:=1 to 4 do

begin { фиксируем столбец }

max:=a[1, j];

for i:=1 to 3 do

if a[i, j]> max then begin

max:=a[i, j]; p:=i; q:=j

end;

writeln(‘a[‘, p, ‘,’, q, ‘]= max=',max);

end;

6) .В каждой строке матрицы А определить количество элементов, значения которых находятся в интервале [6;9]. Распечатать эти элементы. (слайд 19)

for i:=1 to 3 do

Begin { фиксируем строку }

k:=0;
for j:=1 to 4 do

if (a[i, j] >= 2) AND (a[i, j] <= 9) then

begin
k:=k + 1;
writeln(a[i, j]);
end;
writeln(‘в строке ‘, i , ‘ ‘, k, ‘ элементов’);

End;

7). Вычислить средние значения элементов для строк матрицы A, имеющих нечетные номера (слайд 20)

1-й способ:

for i:= 1 to n do
if i mod 2 = 1 then
begin

k:=0;
SR[k]:=0; { SR – массив }
for j:=1 to m do
SR[k]:= SR[k] + a[i, j] ;
SR[k]:= SR[k] / m;
end;
2-й способ:

for i:= 1 to n do
if i mod 2 = 1 then
begin
Sr:=0; { SR – число }
for j:=1 to m do
Sr:= Sr + a[i, j] ;
Sr:= Sr / m;
writeln(‘строка ‘,i ,’: Sr=’,Sr:5:2);
end;

8). Найти сумму элементов главной диагонали матрицы С. (слайд 21)

S:=0;

For i:=1 to 3 do

S:= S + с[i, i];

writeln(‘S=’, S );

9). Вычисление суммы матриц D=A+B (слайд 22)

Writeln ('Матрица D=A+B');

for i:=1 to 3 do

for j:=1 to 4 do

d[i, j]:=a[i, j]+b[i, j];

10). Вычисление произведения матриц T=C*R (слайд 23, 24)

Вычисление произведения двух матриц выполняются по формуле

Writeln('Матрица T=C*R:');

for i:=1 to 3 do

for j:=1 to 3 do

begin

T[i, j]:=0;

for k:=1 to 3 do

T[i, j]:=T[i, j]+C[i, k]*R[k, j];

end;

for i:=1 to 3do

begin

for j:=1 to 3 do

write(' ',T[i, ]:8:2);

writeln;

end;