15-一维数组的建立、输入输出、计算

《15-一维数组的建立、输入输出、计算》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一维数组基础（建立、输入、输出）构造类型：数组…….数组定义：具有固定数目的相同类型的元素按一定的顺序排列而成。比如：一个班50人的数学成绩；一个班50人的5门课的成绩；……..数组分类：一维数组（只有1个下标，线性关系）；二维数组（有2个下标，平面关系）；多维数组……….一、一维数组的定义A2510134702012345671、定义：TYPE数组类型名=ARRAY[下标类型]OF基类型；如上例：TYPEARRAYTYPE=ARRAY[1．．7]OFINTEGER；VARA：ARRAYTYPE；当然也可以合并在一起：VARA：ARRAY[1．．7]OFINTEGER；2、说明：①数组

2、类型名和数组变量名：整体性，通过数组变量名在计算机内存中开辟一片连续的存储空间；个体性：单独使用A[I]；②基类型：每个元素的数据类型。③下标类型：一般为子界型，如1．．100；-10．．10；‘A’．．‘Z’。不能直接写成INTEGER，决定了数组元素的个数。TYPEFRUITTYPE=（APPLE，ORANGE，BANANA，PINEAPPLE）；ATYPE=ARRAY[‘A’．．‘Z’]OFINTEGER；BTYPE=ARRAY[FRUITTYPE]OFREAL；VARA：ATYPE；B：BTYPE；数组元素数组名A26个大写字母的ASCII码值65666768．．．．．．90下

3、标‘A’‘B’‘C’‘D’．．．．．．‘Z’数组名B4种水果的单价0.850.952.651.50下标APPLEORANGEBANANAPINEAPPLE④基类型和下标类型共同决定了数组所占的存储空间和结构；养成画数组示意图的方法和习惯（横排或竖排）；二、一维数组元素的输入不能整个数组输入，只能逐个元素赋值，A[I]：=X；一般用FOR循环做。如：FORI：=1TO7DOREAD（A[I]）；三、一维数组元素的输出不能整个数组一起输出，只能逐个元素输出，WRITE（A[I]）；一般用FOR循环做。如：FORI：=1TO7DOWRITE（A[I]）；四、一维数组的简单应用步骤：定义数组—

4、—给数组赋初值——运算、操作——输出例一：求10个人的数学平均分。TYPEARRAYTYPE=ARRAY[1．．10]OFINTEGER；VARA：ARRAYTYPE；I，SUM：INTEGER；AVERAGE：REAL；BEGINWRITE（‘PLERSEINPUT10SCORE：’）；FORI：=1TO10DOREAD（A[I]）；WRITELN；FORI：=1TO10DOWRITE（A[I]）；WRITELN；SUM：=0；FORI：=1TO10DOSUM：=SUM+A[I]；AVERAGR：=SUM/10；WRITE（‘AVERAGEIS：’，AVERAGE）；END.例二、国

5、际象棋盘中，第1格放1粒米，第2格放2粒米，第3格放4粒米，第4格放8粒米，第5格放16粒米，．．．．．．问：64个格子总共可以放多少粒米？分析：第i个格子可放多少粒米：2i–1CONSTN=64；VARA：ARRAY[1．．64]OFREAL；{为什么不用INTEGER，防止溢出}I：INTEGER；TOTAL：REAL；BEGINFORI：=1TO64DOBEGIN用连乘求出每个格子里可以放的米粒数。A[I]：=1；FORJ：=2TOIDOA[I]：=A[I]*2；END；用连加求出所有格子里总共放的米粒数。TOTAL：=0；FORI：=1TO64DOTOTAL：=TOTAL+A[

6、I]；WRITELN（‘总共可以放：’，TOTAL）；END.讨论：①已知第i–1个格子里的米粒数，可不可以直接求出第i个格子里的米粒数？很简单：A[i]：=A[i–1]*2不需要每次都算连乘，提高了效率。②TOTAL为实数，结果输出为科学记数法，如何写成普通的数字格式？例三、输出斐波列契数列的前N项（5个1行）01123581321．．．．．．．．．．分析：1、写出递归公式；2、复习前面学过的方法：用几个变量3、如何实现5个1行：设一个变量i，初值为0，输出一次，i加1，并且判断iMOD5=0时换行便行，重新置i为0。CONSTN=50；VARA：ARRAY[1．．N]OFREAL；

7、{注意范围}I：INTEGER；BEGINA[1]：=0；A[2]：=1；FORI：=3TONDOA[I]：=A[I-1]+[I-2]；FORI：=1TONDOBEGINWRITE（A[I]）；IFIMOD5=0THENWRITELN；END；END.例四、输入N个整数，找出最大数所在位置，并将它与第一个数对调位置。方法：“比武招亲”、“打擂台”CONSTN=20；VARA：ARRAY[1．．N]OFINTEGER；I，MAX，NUM，T：IN