感谢《[Delphi.7应用教程].童爱红.文字版.pdf》提供的题目、解题方法及文字源程序！本文作者据此转换为Delphi源程序（为方便爱好者学习，程序界面略有修改，并且源代码作了注释，水平有限，若有错漏，请大家指正! 源程序包请见附件）：

题目：二维数组的“鞍点”

    所谓二维数组的“鞍点”是指在本行中最大但在本列中最小的数组元素，有的数组有“鞍点”，有的数组没有。编程寻找一个从键盘上输入的3 行4 列数组的“鞍点”。

源代码如下：

unit SL422;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, jpeg, ExtCtrls, StdCtrls;

type

  TForm1 = class(TForm)     GroupBox1: TGroupBox;     Image1: TImage;     GroupBox2: TGroupBox;     Memo1: TMemo;     GroupBox3: TGroupBox;     Button1: TButton;     Button2: TButton;     GroupBox4: TGroupBox;     Memo2: TMemo;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;

var

  Form1: TForm1;

implementation

var   Arr34:Array[1..3,1..4] of integer;   //定义单元级二维静态数组变量arr34

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);     //输入数组元素按钮

var m,n:integer; begin   Canvas.FillRect(form1.clientRect);  //清除先前产生的随机数组；   for m:=1 to 3 do      //嵌套型外循环m：第1行~第3行     for n:=1 to 4 do      //嵌套型内循环n：第1列~第4列         begin           Arr34[m,n]:=StrToInt(InputBox('输入数赋值给二维数组',              '输入第'+IntToStr(m)+'行第'+IntToStr(n)+'个数','0')); //输入数组元素              //InputBox()格式：InputBox('标题文本',提示操作文本','默认值')           Canvas.TextOut(100+70*n,10+25*m,IntToStr(Arr34[m,n]));     //显示数组元素             //格式 Canvas.TextOut(列标,行标,'显示文本内容');,类似Excel单元格名称 }         end;        { 注意： "100+70*n,10+25*m"是Arr34[m,n]先在第1行按顺序显示第1~4列数组元素                                               再在第2行按顺序显示第1~4列数组元素                                               后在第3行按顺序显示第1~4列数组元素           若改成 "100+70*m,10+25*n"会造成行列错乱：                                               先在第1行第1列显示数组元素                                                 在第2行第1列显示数组元素                                                 ......                                               再在第1行第2列显示数组元素                                                 在第2行第2列显示数组元素                                                 ......                                               后在第1行第3列显示数组元素                                                 在第2行第3列显示数组元素                                                 ......       //原因： 格式 Canvas.TextOut(列标,行标,'文本显示内容');,类似Excel单元格名称 } end;

procedure TForm1.Button2Click(Sender: TObject);  //显示鞍点按钮

var   m,n,k,j,f:integer; begin   for m:=1 to 3 do  //嵌套型外循环，从第1行到第3行       begin         f:=1;  //f标记该行是否有鞍点，这里给f赋初值为1先假设有鞍点         k:=1; //这里给k赋初值为1先假设本行第1列数组元素是最大值             //k用来记录本行中最大值数组元素的列标         for n:=2 to 4 do //嵌套型内循环一：因循环前预设k:=1,故n:=2 to 4,而不用n:=1 to 4                       //本行第2~4列各元素先后与第1列元素比较，             if Arr34[m,k]<Arr34[m,n] then  //若本次循环第m行k列元素值小于同行的第n列元素值                k:=n;  //就把在本次循环中，本次比较的较大元素的列标值赋给k,                      //直到循环结束在本行中找到的最大值数组元素的列标最终赋值给k         for j:=1 to 3 do  嵌套型内循环二:从第1行到第3行             if arr34[j,k]<Arr34[m,k] then  //如果第j行k列的元素值小于第m行同列元素值               begin                 f:=0;  //本行中最大值元素不是该列最小值，故行没有鞍点（注意前面假设f:=1）                 break; //终止循环               end;         //注意：嵌套型内循环一和//嵌套型内循环二属于顺序结构关系         if f=1 then  //注意如果没有这个if语句终止循环，将非常可能显示 '没有鞍点'            break; //因为如果找到一个鞍点后不终止循环的话，后面的循环可能再找不到鞍点       end;   if f=1 then      Canvas.TextOut(220*k,10*m,'第一个鞍点坐标为('+IntToStr(m)+','+IntToStr(k)+')')   else     Canvas.TextOut(220*k,10*m,'没有鞍点');     // 格式：Canvas.TextOut(列标,行标,'文本显示内容');,类似Excel单元格名称 end;

{ procedure TForm1.Button2Click(Sender: TObject);  //显示鞍点按钮 代码修改

var   m,n,k,j,f:integer;   x:integer; begin   x:=0;   for m:=1 to 3 do  //嵌套型外循环，从第1行到第3行       begin         f:=1;  //f标记该行是否有鞍点，这里给f赋初值为1先假设有鞍点         k:=1; //这里给k赋初值为1先假设本行第1列数组元素是最大值             //k用来记录本行中最大值数组元素的列标         for n:=2 to 4 do //嵌套型内循环一：因循环前预设k:=1,故n:=2 to 4,而不用n:=1 to 4                       //本行第2~4列各元素先后与第1列元素比较，             if Arr34[m,k]<Arr34[m,n] then  //若本次循环第m行k列元素值小于同行的第n列元素值                k:=n;  //就把在本次循环中，本次比较的较大元素的列标值赋给k,                      //直到循环结束在本行中找到的最大值数组元素的列标最终赋值给k         for j:=1 to 3 do  嵌套型内循环二:从第1行到第3行             if arr34[j,k]<Arr34[m,k] then  //如果第j行k列的元素值小于第m行同列元素值               begin                 f:=0;  //本行中最大值元素不是该列最小值，故行没有鞍点（注意前面假设f:=1）                 break; //终止循环               end;         //注意：嵌套型内循环一和//嵌套型内循环二属于顺序结构关系         if f=1 then           begin             x:=x+1;             Canvas.TextOut(x+10,30*m,'第'+IntToStr(x)+'个鞍点坐标为('+IntToStr(m)+','+IntToStr (k)+')')           end         else           Canvas.TextOut(x+10,30*m,'第'+IntToStr(m)+'行没有鞍点');       end; end;  }

end.