Tìm điểm yên ngựa của ma trận ?

**mister-lonely** · 18-05-2007 13:01

Em đang làm bài tập về tìm điểm yên ngựa(phần tử vừa là lớn nhất của hàng, vừa là nhỏ nhất của cột chứa nó) của ma trận nhưng chưa tìm được cách làm nào tốt cả .Mọi người có thể giúp em được ko. Em định duyệt từng cột, từng hàng rồi lưu lại giá trị nhỏ nhất của từng cột ,lớn nhất của từng hàng sau đó so sánh về chỉ số hàng và cột của chúng. Mong mọi người chỉ bảo. Thankx trước !

**mister-lonely** · 21-05-2007 17:44

sao ko ai giúp mình vậy

**thuonghcm** · 22-05-2007 17:21

Code:

type
 mang=aray[1..30,1..30]of integer;
function minc(a:mang;n,j:integer):integer;
 var i,t:integer;
 begin
  t:=a[1,j];
  for i:=2 to n do if t>a[i,j]then t:=a[i,j];
  minc:=t;
 end;

function maxh(a:mang;n,i:integer):integer;
 var j,t:integer;
 begin
  t:=a[i,1];
  for j:=2 to n do if t<a[i,j]then t:=a[i,j];
  maxh:=t;
 end;
{Chuong trinh chinh}
Var a:mang;n,i,j:integer;
Begin
 Nhap(a,n);
 for i:=1 to n do
  for j:=1 to n do
   if minc(a,n,i)=maxh(a,n,j)then
    writeln('PTYN= ',minc(a,n,i));
end.