Pà kon nào post nguyên bài luôn đi. Please.
Pà kon nào post nguyên bài luôn đi. Please.
bài n2y làm rùa thui chứ sao bây giờ...
nếu không kiếm từng cột điềm min (hay max wên rùi) rùi xét coi thằng đó có max hay min trong hàng không
cũng là rùa thui
đúng là rùa thật giải vậy bao nhiêu code cho vừa
nhưng với ma trận dưới 500*500 thì làm trong 38giay17sao (dùng nhìn cận zô)
Mình muốn đoạn mã được viết bằng Pascal , chứ không phải C , vả lại đoạn mã bằng Pascal trên không chạy được !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11
mà theo tôi tốt nhất là còn phải kiểm tra xem trong dãy có điểm yên ngựa hay không ,nếu không có thì in ra là không có diểm nào như vậy
[=========> Bổ sung bài viết <=========]
code:
var a:array[1..100,1..100]of integer;
m,n,d:integer;
{nhập ma trận, in ma trận bạn tự làm nha}
function minhang(k:integer)of real;
var i:integer;s:real;
begin
s:=a[k,1];
for i:=2 to m do
if s>a[k,i] then s:=a[k,i];
minhang:=s;
end;
function maxcot(k:integer)of real;
var i:integer;s:real;
begin
s:=a[1,k];
for i:=1 to n do
if s<a[i,k] then s:=a[i,k];
maxcot:=s;
end;
begin
{nhap ma trận in ma trận tự làm nha}
d:=0;
for i:=1 to n do
for j:=1 to m do
if (a[i,j]=minhang(i)) and (a[i,j]=maxcot(j)) then d:=d+1;
if d>0 then writeln('diemyennguacovitrihang',i,'cot',j)
else writeln('khongcodiemyenngua');
readln;
end;
code
làm thế cho chặt chẽ bạn nhé
Được sửa bởi luong1100 lúc 17:28 ngày 20-01-2009 Reason: Bổ sung bài viết
Theo minh la the nay
var i,l,j,n,max,min:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
begin
max:=a[i,1];
for j:=1 to n do
begin
min:=a[1,j];
if max<a[i,j] then max:=a[i,j]
for l:=1 to n do
if min>a[l,j] then min:=a[l,j]
if i=l then write(l,' ',j);
end;
inc(i);
end;
end.
bài tìm điểm yên ngựa này có thể dùng QHD . duyệt O(NM) (với N,M là kích thước ma trận )là chuẩn
Em nghĩ là bác nào có tài liệu đề bài và lời giải thì post lên cho các mem tham khảo đi, cái món này nhiều người cần lắm các bác ạ !
Thuật toán như thế này xài được ko nhỉ? (Cách thông thường, đơn giản, chậm ^^!)
For j := 1 To N Do Begin Xác định Mincot[j]; Xác định Maxcot[j]; End;
For i := 1 To M Do
Begin
Xác định Mindong;
Xác định Maxdong;
For j := 1 To N Do
Begin
If (Mindong = Maxcot[j]) Or (Maxdong = Mincot[j]) Then
A[i, j] là phần tử yên ngựa;
End;
End;
Bookmarks