О Б Р А Б О Т К А М А Т Р И Ц
2. ВЫЧИСЛЕНИЕ СЛЕДА МАТРИЦЫ
СЛЕД МАТРИЦЫ - сумма диагональных элементов матрицы N х N.
ПОСТАНОВКА ЗАДАЧИ: Для матрицы В размером N х N надо вычислить сумму диагональных элементов B[i,i].
. . .
procedure Sled_Mat; { главная диагональ }
begin
s:=0;
for i:=1 to n do s:=s+b[i,i]
end;
. . .
3. ВЫЧИСЛЕНИЕ СУММЫ ЭЛЕМЕНТОВ СТРОК МАТРИЦЫ
ПОСТАНОВКА ЗАДАЧИ: Вычислить сумму элементов каждой строки матрицы В
размером N х M. Результат получить в виде вектора D.
. . .
procedure Sum_Strok_Mat;
begin
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
s:=s+b[i,j];
d[i]:=s
end
end;
. . .
. . .
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Получить сумму элементов побочной диагонали.
3. Напечатать вектор суммы строк вертикально справа от матрицы.
4. Получить вектор суммы столбцов матрицы.
Сумма указанной строки:
S:=0; i:=3;
For J:=1 to m do S:=S+b[i,j];
Транспонирование квадратной матрицы:
For i:=1 to n-1 do
For j:=1 to n do
Begin
P:= a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=p;
end;
Удаление строки из матрицы:
n:=n-1;
For i:=1 to n do
For j:=1 to m do b[i,j]:=b[i+1,j];
Включение строки в матицу:
i:=n;
while i>=k do
begin
for j:=1 to m do b[i+1,j]:=b[i,j];
i:=i-1;
end;
for j:=1 to m do b[k,j]:=c[j];
n:=n+1;
Перестановка строк матрицы:
For k:=1 to k do c[k]:=a[i,k];
For k:=1 to k do a[i,k]:=a[j,k];
For k:=1 to k do a[j,k]:=c[k];
Поиск минимального элемента матрицы:
Min:= a[1,1]; k;=1; L:=1;
For i:=1 to n do
For j:=1 to m do
IF min>a[i,j] then begin min:=a[i,j]; k:=i; l:=j; end;
Сложение строк матрицы:
For j:=1 to m do
a[k,j]:=a[k,j]+a[l,j]*b;
З А Д А Н И Я: