并行协同设计系统.ppt

PASCAL语言 吉林大学计算机科学与技术学院 * 第六章 数组 三、 IF语句 一、一维数组 TYPE 类型标识符＝ARRAY〔下标类型〕OF 成分类型 类型定义 规定数组类型分量的个数、分量的排列次序、下标的数据类型；下标数据类型应该是顺序类型的有穷集合，如字符型、布尔型、枚举和子界，但是整型和实型不可以，一般子界类型较多；下标类型一定要用方括号括起来。 下标类型 数组分量的数据类型，可以是简单类型，也可以是结构类型，但不应该为文件类型。 成分类型 类型定义举例 TYPE number=1..20; ax=(one,two); bx=(a,b,c); student=ARRAY[number] OF integer; ma=ARRAY[ax] OF real; na=ARRAY[bx] OF char; sw=ARRAY[boolean] OF ax; VAR a:number; b,c:student; d:ma; e:sw; 变量定义举例 二、 数组元素 B[1] 3 B[2] 8 B[3] 11 B[4] －23 … … B[20] 1001 程序举例 Program ex(input,output); type number=1..10; student=array[number] of integer; var i:integer; num:student; begin for i:=1 to 10 do readln(num[i]); for i:=1 to 10 do write(num[i]:4); end. 三、 IF语句 数组注意事项 数组元素个数固定，不允许在执行中修改 数组分量可以随机访问； 下标可以是合法表达式，但不能越界 Var a,b,c:array[1..20] of integer; 提倡合并说明 不允许整体操作；必须逐个处理分量 三、 IF语句 减少了每个分量确定标识符的书写量 可以批量处理空间 引入数组的意义 3 9 5 18 2 程序举例 开始 结束 PROCEDURE sortofup ( VAR a:typeofa ) ; VAR i,r : integer ; flag : Boolean ; BEGIN flag := ture ; WHILE flag DO BEGIN flag := false ; FOR i:=1 TO n-1 DO IF a[i] a[i+1] THEN BEGIN r := a[i] ; a[i] := a[i+1] ; a[i+1] := r ; flag:=ture END; END; END; PROGRAM fup (input,output ) ; CONST n=100; TYPE typeofa=array[1..n] of integer; VAR k: integer ; b:typeofa; … …. … …. BEGIN for k:=1 to n do readln(b[k]); sortofup(b); for k:=1 to n do write(b[k]); writeln; END; 例子中的几个问题 数组变量做参数类型必须一致 P112 6.2.4 1） 值参数与变量参数 变量之间直接赋值 三、 IF语句 三、二维数组 TYPE 类型标识符＝ARRAY[下标类型1] OF ARRAY[下标类型2] OF 成分类型 类型标识符＝ARRAY[下标类型1，下