Pascal的自定义数据类型.doc

Pascal系统允许用户自定义的数据类型有:数组类型、子界类型、枚举类型、集合类型、记录类型、文件类型、指针类型。 第一节数组与子界类型[]总务室在商店购买了八种文具用品,其数量及单价如下表:。解:表中有两组数据,设表示物品件数的一组为a,表示物品单价的一组为b。a,b两组数据以序号为关联,具有相应的顺序关系。按如下方法处理:①定义s,a,b三个数组,按相应顺序关系,给a,b赋值(件数和对应单价);②每读入一对数据(件数和对应单价),以同一序号的件数和对应单价计算出同一物品的计价: s[i]=a[i]*b[i];            {用s[i]记入第i种物品的计价}  t=t+s[i]                      { 用简单变量累加总计价}③循环做步骤②,做完后输出s数组所记入的各物品计价及总计价t。Pascal程序:Program Exam51;Vara:array[1..8]ofinteger;              {a数组为整数型}   s,b:array[1..8]ofreal;                    {s和b数组为实数型}   t:real;   i:integer;Begin t:=0; fori:=1to8do                                  {输入并计算八种物品} begin  write('a[',i,']=');     Readln(a[i]);                        {输入单价}     write('b[',i,']=');     readln(b[i]);                          {输入件数}     s[i]:=a[i]*b[i]; t:=t+s[i]   end; write('i':2,' ':2); fori:=1to8do                                  {打印物品序号}    write(i:8);                                       {输出项宽度为8} writeln; write('a':2,' ':2);                                 {输出项宽度为2} fori:=1to8 do                                {打印物品件数a数组}   write(a[i]:8);                                {输出项宽度为8} writeln;                                              {换行} write('b':2,' ':2); fori:=1to8 do                                {打印物品件数b数组}   write(b[i]:8:2);                             {输出项宽度为8,小数2位} writeln;                                              {换行} write('s':2,' ':2); fori:=1to8 do                                {打印物品计价s数组}   write(s[i]:8:2);                             {输出项宽度为8,小数2位} writeln;                                              {换行} writeln('Totol=',t:8:2);                   {打印总价t}  write(实数:n:m) 的形式时,则输出该实数的总宽度为n,其中小数m位,此时的实数不以科学计数形式显示。程序中用来表示如物品件数和物品单价等属性相同的有序数据,Pascal语言把它归为数组。数组成员(分量)称为数组元素。数组必须在说明部分进行定义:确定数组名,数组分量(元素)的个数及类型。一般格式有:Var 数组名:array[下标类型] of 数组元素类型;本程序中a数组和b数组中8个元素的数据都是已知数据,可当作常量,用常量说明语句给数组元素赋初值,所以上面的程序Exam51可改为如下形式:ProgramExam51_1;const a:a