[学科竞赛]Pascal选修.ppt

记 录 数 组 记录数组定义方法：在定义数组时将数组的基类型定义为记录类型即可。 例如： Type student=record num：string[9]； name：string[10]； sex:char； chinese:real; maths:real; english:real; End; Var a:array[1..10] of student; i:integer; Begin for i:=1 to 10 do with a[i] do begin read(num);readln(name);readln(sex); readln(chinese,maths,english); end; End. 变 体 记 录 在前面介绍的记录中，每个记录的域个数和类型都是固定不变的,在实际问题中，仅有这样的数据类型是不够的。例如，在学生档案中的登记中，对男同学要求只登记身高，而对女同学则要求只登记体重，那么这样的数据要想定义成记录该怎么办呢？这时，要用到“变体记录” type stu=record score: array[1..6] of 0..100; age: integer; case sex: char of ‘m’: (weight: 70...150); ‘f’: (height: real); end; 应 用 举 例 1、输入20位学生的数据记录（包含学号、姓名、性别、成绩四个域），按成绩从高到低排序输出。 program p7_3; const n=20; type student=record num:integer; s_name:string[15]; sex:char; score:real; end; var stu:array[1..n] of student; t:student; i,j:integer; begin for i:=1 to n do with stu[i] do begin readln(num);readln(s_name);readln(sex);readln(score); end; for i:=1 to n-1 do begin max:=i for j:=i+1 to n do if stu[i].scorestu[j].score then max:=j; t:=stu[i];stu[i]:=stu[max];stu[max]:=t; end; for i:=1 to n do begin with stu[i] do write(num:8,s_name:8,sex:2,score:8:1); writeln; end; end. 第十一讲 指 针 静态存储与动态存储 静态数据类型：只能在程序说明部分加以说明，在程序执行之前就以决定所占空间大小的数据类型 动态数据类型：程序在编译阶段不对其变量分配内存空间，而在程序执行时根据需要动态建立和分配空间，以致这种类型的数据所占的内存空间可动态的发生改变的数据类型。 指针的概念 内存中的每一个变量都包括“内容”和“地址”两各部分 56 b 2020H 地址 内容 a 2000H 2020H 56 b 2020H a 2000H 指针 指 针 变 量 定 义 方法一 Type 类型标识符=^基类型标识符； Var 变量名：类型标识符； 例如： Type point=^integer; Var p1,p2:point; 方法二 Var 变量名：^基类型标识符； 例如： Var p1,p2:^integer; 整型指针 指 针 变 量 的 基 本 使 用 方 法 1、申请存储单元 new（指针变量） 例如： Var p1:^integer; begin new(p1); p1^:=138 end. 2、释放存储单元 dispose（指针变量） 例如： dispose(p1); p1 2001 p1 2001 2001 p1 138 2001 指 针 变 量 的 基 本 使 用 方 法 3、指针变量的赋值 例如： Var p1,p2:^integer; b:integer; begin b:=100; p1:=@b p2:=p