Квадратная матрица (массив) Учитель МОБУ СОШ 2 с. Исянгулово Шадрина О.М. - презентация

1 Квадратная матрица (массив) Учитель МОБУ СОШ 2 с. Исянгулово Шадрина О.М.

2 Квадратной называется такая матрица, в которой количество строк равно количеству столбцов. Выделяют следующие элементы квадратной матрицы: главная диагональ; побочная диагональ; элементы, расположенные выше главной диагонали; элементы, расположенные ниже главной диагонали; элементы, расположенные выше побочной диагонали; элементы, расположенные ниже побочной диагонали;

3 Главная диагональ if i=j then

4 Для элементов, расположенных выше главной диагонали for i:=1 to n do for j:=1 to n do if i

5 Если элементы расположены на главной диагонали и выше её for i:=1 to n do for j:=1 to n do if i

6 Элементы расположенные ниже главной диагонали for i:=1 to n do for j:=1 to n do if i>j then

7 Для элементов, расположенных ниже главной диагонали и не ней for i:=1 to n do for j:=1 to n do if i>=j then

8 Побочная диагональ. if i+j=n+1 then

9 Если элементы, расположены выше побочной диагонали for i:=1 to n-1 do for j:=1 to n-1 do if i+j

10 Если элементы, расположены ниже побочной диагонали for i:=2 to n do for j:=2 to n-1 do if i+j>n+1 then

11 1. Дана квадратная матрица порядка N. В матрице вычислить среднее арифметическое положительных элементов, стоящих на главной диагонали. uses crt; Var a:array[1..50,1..50] of integer;{массив} i,j:integer; s,n,k:integer; sr:real; begin clrscr; Randomize; for i:=1 to n do begin for j:=1 to n do begin a[I,j]:=random (21)-10; write (a[I,j]:3) end; writeln; end; s:=0; for i:=1 to n do for j:=1 to n do if (a[i,j] > 0) and (i=j) then s:=s+a[i,j]; sr:=s/n; write('sr=',sr); end.

12 Домашнее задание Заполнить матрицу по образцу