pascal-一维数组.docVIP

第八课 一维数组 二、一维数组　　当数组中每个元素只带有一个下标时，我们称这样的数组为一维数组。　　1、一维数组的定义 　　（1）类型定义　　要使用数组类型等构造类型以及第6章要学习的自定义类型(枚举类型与子界类型)，应在说明部分进行类型说明。 这样定义的数据类型适用整个程序。　　类型定义一般格式为：　　type 　　　标识符1=类型1;　　　标识符2=类型2;　　　:　　　标识符n=类型n;　　其中type是Pascal保留字,表示开始一个类型定义段。在其后可以定义若干个数据类型定义。标识符是为定义的类型取的名字, 称它为类型标识符。　　类型定义后，也就确定了该类型数据取值的范围，以及数据所能执行的运算。　　（2）一维数组类型的定义　　一维数组类型的一般格式：　　　　array[下标1..下标2] of 基类型; {补充：Turbo Pascal 提供了丰富的数据类型可以分为三大类简单类型、构造类型和指针类型，其中简单类型可以分为标准类型（整型、实型、字符型和布尔型）和自定义类型（枚举型和子界型），构造类型可以分为数组类型、集合类型、记录类型和文件类型。这些数据类型中除了指针类型是动态数据类型外，其他的都是静态数据类型。在这些数据类型中简单类型都是有序类型，除了实型以外的简单类型都是顺序类型，所谓顺序类型就是他们的值不仅是有序的而且是有顺序号。基类型可以是任何简单类型和构造类型，但不能是文件类型或者包含文件类型分量的构造类型，也不能是类类型和类引用类型。fillchar(a,sizeof(a),0) ：是把A数组的每个单元赋值为0Var a:array[1..10] of real; I,j,k:integer; Begin Fillchar(a,sizeof(a),0), For i:=1 to 10 do Begin A[i]:=i+1; Write(a[i],’ ’); End; End. （1）运行结果为： （2）若把write(a[i]);语名改为write(a[i]:0:0,’ ‘);后呢？ 2．　program sample7d1(input,output);　　const n=;　　type　　　no=array[1..n] of integer;　　　s=array[1..n]of real;　　var　　　i:integer;　　　k:real;　　　num:no;　　　score:s;　begin　　k:=0;　　for i:=1 to n do　　　begin　　　　readln(num[i],score[i]);　　　　k:=k+score[i];　　　end;　　k:=k/n;　　for i:=1 to n do　　　begin　　　　write(num[i],score[i]);　　　　if (score[i]-k)=10 then writeln(A)　　　　　　　　　　　　　　else if((score[i]-k)10)and((score[i]-k)0) then writeln(B)　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　else writeln(C);　　　end;　end.