Chuyên đề ma trận

CHUYÊN ĐỀ 4: MA TRẬN
Ma trận đều theo hàng,cột: khái niệm + t/c + lập trình.
Ma trận ma phương.
Ma trận thưa.
Ma trận A các số nguyên, số thực kiểm tra theo điều kiện bài cho (VD: 2 hàng có giống nhau không?, phần tử Max, Hàng có tổng Max)


Bài 1 : Ma trận đều theo hàng, cột:
Một ma trận n x n gọi là ma trận đều theo hàng, cột nếu tổng các số hạng theo từng hàng hoặc
từng cột đều bằng nhau. Hãy lập trình xem 1 ma trận có phải là ma trận đều theo hàng, cột hay
không?
- Dữ liệu nhập: Nhập từ bàn phím: số nguyên n và giá trị từng phần tử của ma trận.
- Dữ liệu xuất: Xuất ra màn hình trả lời đúng hay sai.
Ví dụ:
3
1 6 7
2 7 5
11 1 2
=> ðúng vì tổng hàng hay tổng cột đều bằng 14.
Chương trình:
program matrandeu;
uses crt;
type songuyen=array[1..60,1..60] of integer;
songuyen1=array[1..60] of integer;
var A:songuyen; n1:integer; B:songuyen1;
procedure nhap(var n:integer);
var i,t:integer;
begin
write(`Nhap vao so hang cua ma tran vuong: `);
readln(n);
writeln(`Nhap vao gia tri cua ma tran `);
for i:=1 to n do
for t:=1 to n do
begin
write(`A[`,i,`,`,t,`]= `);
readln(A[i,t]);
writeln;
end;
end;
procedure tinhtong(n:integer);
var i,y,t,h:integer;
begin
y:=1;
for i:=1 to n do
begin
h:=0;
for t:=1 to n do
h:=h+A[i,t];
B[y]:=h;
y:=y+1;
end;
for i:=1 to n do
begin
h:=0;
for t:=1 to n do
 h:=h+A[t,i];
B[y]:=h;
y:=y+1;
end;
end;

procedure xet(n:integer);
var c:boolean;d,i:integer;
begin
c:=true;
d:=B[1];
for i:=2 to n*2 do
if B[i]<>d then
begin
c:=false;
break;
end;
if c=true then
begin
writeln(`Day dung la ma tran deu`);
writeln(`Vi no co tong tung hang cot deu la `,d);
end
else writeln(`Day khong phai la ma tran deu`);
end;
begin
clrscr;
nhap(n1);
tinhtong(n1);
xet(n1);
readln;
end.



 Bài 2:
Ma trận vuông A gọi là ma phương nếu tổng mỗi hàng, tổng mỗi cột, tổng mỗi đường chéo
bằng nhau. Nhập ma trận A, kiểm tra tính chất ma phương.

Chương trình:
uses crt;
type matran=array[1..100,1..100] of integer;
var a: matran; n:integer;
procedure nhap;
var i,j:integer;
begin
write(`Nhap so hang, cot cua ma tran: `);
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write(`Nhap gt pt thu A[`,i,`,`,j,`]:`);
read(a[i,j]);
end;
end;

function tong1hang( i:integer): integer;
var k,s:integer;
begin
s:=0;
for k:=1 to n do
s:=s+a[i,k];
tong1hang:=s;
end;
function tong1cot(j:integer):integer;
var k,s:integer;
begin
s:=0;
for k:=1 to n do
s:=s+a[k,j];
tong1cot:=s;
end;

procedure xuly;
var s,s1,s2,i,