Lazarus数组

1. 一维数组
包含多个存储僮,数据类型相同,只需要指定数组名和下标就可以
注意:数据类型任意,甚至可以是一个数组。下标类型也可以是任何的顺序类型,整型、布尔型、字符类型、枚举类型,子界类型。
type
typename = array [下标类型] of 数据类型;
如:
type
enum_type = 1..50;
arraytype = array [enum_type] of integer;
相当于
type
arraytype = array [1..50] of integer;
//程序示例:
type
arraytype = array[1..50] of integer;
var
myarray : arraytype;
使用:
for count := 1 to 50 do
read (myarray[count]);

2.多维数组
语法:
type
datatype = array [enum_type1, enum_type2] of datatype;
例子:
type
StatusType = (X, O, Blank);【序列包含三个状态值】
BoardType = array[1..3,1..3] of StatusType;
var
Board : BoardType;
初始化:
for count1 := 1 to 3 do
for count2 := 1 to 3 do
Board[count1, count2] := Blank;

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注