pascal的自定义数据类型

《pascal的自定义数据类型》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第五章　Pascal的自定义数据类型Pascal系统允许用户自定义的数据类型有：数组类型、子界类型、枚举类型、集合类型、记录类型、文件类型、指针类型。 第一节　数组与子界类型［例5.1］总务室在商店购买了八种文具用品，其数量及单价如下表：序号12345678品名圆珠笔铅笔笔记本订书机计算器三角板圆规文件夹件数24110601626323242单价1.180.451.88.878.503.284.202.16编程计算各物品计价及总计价。解：表中有两组数据，设表示物品件数的一组为a，表示物品单价的一组为b。a，b两组数据以序号为关联，具有相应的顺序关系。按如下方法处理：①定义s，a，b三

2、个数组，按相应顺序关系，给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;      

3、              ｛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[

4、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);   

5、                             ｛输出项宽度为8｝ writeln;                                              ｛换行｝ write('b':2,' ':2); fori:=1to8 do                                ｛打印物品件数b数组｝   write(b[i]:8:2);                             ｛输出项宽度为8，小数2位｝ writeln;                                              ｛换行｝

6、 write('s':2,' ':2); fori:=1to8 do                                ｛打印物品计价s数组｝   write(s[i]:8:2);                             ｛输出项宽度为8，小数2位｝ writeln;                                              ｛换行｝ writeln('Totol=',t:8:2);                   ｛打印总价t｝ Readlnend.输出语句为 write（实数：n：m） 的形式时，则输出该实数的总宽度

7、为n，其中小数m位，此时的实数不以科学计数形式显示。程序中用来表示如物品件数和物品单价等属性相同的有序数据，Pascal语言把它归为数组。数组成员（分量）称为数组元素。数组必须在说明部分进行定义：确定数组名，数组分量（元素）的个数及类型。一般格式有：Var 数组名：array［下标类型］ of 数组元素类型；本程序中a数组和b数组中8个元素的数据都是已知数据，可当作常量，用常量说明语句给数组元素赋初值，所以上面的程序Exam51可改为如下形式：Progra