第8章 数组和记录类型.pptVIP

* 第8章 数组与记录类型 8.1 数组及其应用 8.1.1 静态数组 8.1.2 动态数组 8.2 记录类型 8.2.1 记录类型的声明 8.2.2 访问记录域与With语句 8.2.3 记录的变体部分 习题8 8.1.1 静态数组 1. 一维静态数组 在Object Pascal中，定义一个一维数组类型，其声明格式为： Type 〈数组类型标识符〉＝array[〈下标类型〉] of 〈基类型〉； 【例8-1】利用数组求出任意10个数中的最大及最小值。 程序介面设计如图8-1所示。 在代码窗口输入如下处理过程： procedure TForm1.Button1Click(Sender: TObject); var i,ma,mi:integer; a:array[1..10] of integer; begin for i:=1 to 10 do begin randomize; // 初始化随机函数 a[i]:=random(i*100); // 产生10个随机数 edit1.text:=edit1.text+inttostr(a[i])+ end; ma:=a[1]; mi:=a[1]; for i:=2 to 10 do begin if ma=a[i] then ma:=a[i]; if mi=a[i] then mi:=a[i] end; edit2.text:=inttostr(ma); // 输出最大值 edit3.text:=inttostr(mi); // 输出最小值 end; 2. 二维静态数组 其一般形式为； Type 〈数组标识符〉=Array[〈下标类型1〉] of Array[〈下标类型2〉] of 〈元素类型〉; 也可以把上述形式简写成下面的形式： Type 〈数组标识符〉=Array[〈下标类型1〉,〈下标类型2〉] of 〈元素类型〉; 【例8-2】利用二维数组建立一个8×8的方阵，该矩阵对角线元素为8，其余元素为1，结果显示在列表组件ListBox1中。 在窗体上添加一个组件ListBox1，在代码窗口中输入如下处理过程： procedure TForm1.FormCreate(Sender: TObject); var a:array[1..8,1..8] of integer; i,j:integer; st:string; begin for i:=1 to 8 do for j:=1 to 8 do if (i=j) or (i=9-j) then a[i,j]:=8 else a[i,j]:=1; for i:=1 to 8 do begin st:=; for j:=1 to 8 do st:=st+ inttostr(a[i,j])+ ; listbox1.items.Add(st) end end; 3. 多维静态数组 多维静态数组的一般格式为： Type 〈数组类型标识符〉＝array[〈下标类型1〉,〈下标类型2〉,…,〈下标类型n〉] of 〈基类型〉; 8.1.2 动态数组 1. 一维动态数组 一维动态数组的声明格式为： Type 〈数组类型标识符〉＝array of 〈基类型〉; 也可在变量声明中直接声明动态数组，其格式为： Var 〈变量名〉：array of 〈基类型〉; 2. 多维动态数组 声明多维动态数组采用递归定义的方式，即： Type 〈数组类型标识符〉＝array of array of … array of 〈基类型〉； Var 〈变量名〉：〈动态数组类型标识符〉； 或 Var 〈动态数组变量名〉：array of array of … array of 〈基类型〉； 【例8-3】创建一个三角形的矩阵，并在一个ListBox列表框中显示出来。 在窗体上添加一个列表框，命名为ListBox1，添加一个命令按钮，命名为Bt，设置其标题Caption为“确定”。在代码窗口中输入下面的Bt处理过程： procedure TSANJIAO.btClick(Sender:TObject); var A:array of array of string; I,J:Integer; Tempstr:string; Begin ListBox1.Clear; SetLength(A,10); For I:=Low(A) to High(A) do Begin SetLength(A[I],I); For J:=Low(A[