Квадратные матрицы

1. Квадратные матрицы

2. Что такое квадратная матрица?

Это матрица, в которой
количество строк равно
количеству столбцов
1
1
2
i
3
4
5
2
3
4
5
j

3. Квадратные матрицы

1
2
3
4
5
j
1
2
i
3
4
5
Главная диагональ
Побочная диагональ

4. Главная диагональ

1
2
3
4
5
j
1
2
i
3
4
5
Главная диагональ
i=j
i
j
1
1
2
2
3
3
4
4
5
5

5. Главная диагональ

1
2
3
4
5
i< j
1
2<4
2
3
4
5
i=j
i> j
5>2

6. Побочная диагональ

1
2
3
4
5
j
1
2
i
3
4
5
Побочная диагональ
i + j = n +1
i
j
1
5
2
4
3
3
4
2
5
1

7. Побочная диагональ

i +j < n+1
2+3<5+1
1
2
3
4
5
1
2
3
4
5
i +j > n+1
4+5 > 5+1
i +j = n+1

8. Заполнение матрицы

1 2 3 4 5
i< j
1
2
3
4
5
Var a: array[1..40,1..40] of integer;
i, j, n,m:integer;
Begin
readln(n);
for i:=1 to n do
for j:=1 to n do
if ________
then a[i,j]:=1
ii<=j
>=j
else a[i,j]:=0;
for i:= 1 to n do
begin for j:=1 to n do write (a[i,j]:4);
writeln;
end;
end.
i=j

9. Заполнение матрицы

Var a: array[1..40,1..40] of integer;
i, j, n,m:integer;
Begin
readln(n);
for i:=1 to n do
for j:=1 to n do
if ________
j>=n div 2 then a[i,j]:=1
i<=n
else a[i,j]:=0;
for i:= 1 to n do
begin for j:=1 to n do write (a[i,j]:4);
writeln;
end;
end.
j = n div 2
i=n div 2

10. Заполнение матрицы

Var a: array[1..40,1..40] of integer;
i, j, n,m:integer;
Begin
readln(n);
for i:=1 to n do
for j:=1 to n do
if ________
(i<j) and (i+j<n+1)
(i<j) and (i+j<n+1)
then a[i,j]:=1
else a[i,j]:=0;
for i:= 1 to n do
begin for j:=1 to n do write (a[i,j]:4);
writeln;
end;
end.

11. Задачи

Заполнить квадратную матрицу по образцу
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

12. Задачи

Заполнить квадратную матрицу по образцу
1
5
2
4
3
3
4
2
5
1
1
1
1
1
1
1
1
1
1
1
1
5
4
3
2
4
5
1
1
1
1
1
1
1
1
1
1
2
1
1
1
1
1
1
1
2
3
4
5
1
2
3
4
1
2
3
1
2
1