Thầy Quách Văn Lượm: Bài 15 - Giải thuật nhập môn

Thứ Bảy, 13 tháng 7, 2019

Bài 15 - Giải thuật nhập môn

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.

1 nhận xét:

Nhật Anhlúc 15:22 15 tháng 9, 2019
Uses crt;
Var n,i,j,tam,tong:longint;
f:array[1..100,1..100] of longint;
procedure test;
Begin
For i:=1 to n do
tam:=tam+f[1,i];
For i:=1 to n do
Begin
tong:=0;
For j:=1 to n do
tong:=tong+f[i,j];
If tong<>tam then tam:=0;
If tam=0 then Begin Write('Do khong la ma phuong'); break; end;
end;
If tam<>0 then
For j:=1 to n do
Begin
tong:=0;
For i:=1 to n do
tong:=tong+f[i,j];
If tong<>tam then tam:=0;
If tam=0 then Begin Write('Do khong la ma phuong'); break; end;
end;
tong:=0;
If tam<>0 then
For i:=1 to n do
tong:=tong+f[i,i];
If tong<>tam then Begin Write('Do khong la ma phuong'); tam:=0; end;
tong:=0;
If tam<>0 then
For i:=1 to n do
tong:=tong+f[i,n-1+1];
If tong<>tam then Begin Write('Do khong la ma phuong'); tam:=0; end;
tong:=0;
If tam<>0 then Write('Do la ma phuong');
end;
Begin
readln(n);
For i:=1 to n do
For j:=1 to n do
readln(f[i,j]);
test;
readln;
end.
Trả lờiXóa
Trả lời

Thêm nhận xét

Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!

Thứ Bảy, 13 tháng 7, 2019

Bài 15 - Giải thuật nhập môn

1 nhận xét:

Bài được xem nhiều nhất