数组.docx

1、数组BASIC程序设计 数组 学案学习目标：1、熟练掌握数组的概念及应用2、理解下标变量与数组的区别，熟练掌握下标变量及应用3、熟练掌握利用下标变量求极值、排序（顺序比较法，气泡法）、统计分档等程序设计方法与技巧。基础知识及要点：数组和下标变量一、基本概念 数组是一批 的有序数据组成的集合。其中的每个元素称之为数组元素，又称为下标变量。使用格式：数组名（下标，下标） 下标变量名（下标，下标） 几点说明： 1、数组名命名规则和变量名一样，必须以 开头，其后可以是字母、数字、小数点；也有四种类型，分别是 （用尾符表示）。而下标变量名必须和它所在的数组的数组名一致。 2、下标必须写在括号中，是一个序

2、号，它必须是非负整数，可以有一个或多个，多个下标之间用 隔开；最小的下标值为 ，最大的下标值即是定义数组时给定的下标值。 3、下标的个数决定数组的维数，最多 维。下标值决定数组的大小，也就是数组的容量（即数组元素的个数）；每组元素最多 个。例：一维数组A（m）有 个元素。二维数组A（m，n）有 个元素。三维数组A（m，n，k）有 个元素。 4、数组名后的下标值用来确定该数组中的最大下标值，表示数组的大小；而下标变量中的下标用来确定该元素在数组中的位置。 5、下标可以是数值型的常量、变量或表达式。当下标值为小数时，系统会自动 。二、课堂练习：1、判断下列哪些是合法的下标变量，并说明它的类型。 B

3、（5） $W（3） C%（A+B） X（A$） Y（A%） AI$（2*I，A） E2#（3，5） Z（-5，0） XY！（0，1，2） R（3，5） A（B（5） 3D（1，2）不合法的有：整型： 双精实型：单精实型： 字符串型：2、若A=1，B=2，C=3，D=4，X（1）=2，X（2）=5，Y（1）=3，Y92）= -2，Y（3）=8，求下列各个下标变量的值。Y（2）= Y（D-2*A）= Y（Y（A）= Y（D/C）= X（Y（1）+Y（2）= X（X（1）= 数组说明语句一、基本知识：一个数组在使用前一般需要说明数组的 、 、 及 。（一）、定义数组的语句格式是： 数组名（下标）该语

4、句的功能是：在内存中开辟存贮单元，以便顺序存放各数组元素的数据，并将该数组所有元素值进行初始化（数值型的为 ，字符型的是 ）几点说明：1、一个定义语句可以定义多个不同类型的数组，各数组之间要用 隔开。2、数组说明语句中出现的是数组，其它语句中出现的是下标变量。3、数组应先 后 ，未经DIM定义的数组，系统自动定义：下标最大值为 ，最多 维。4、使用下标变量时，下标不可超过数组定义的最大下标值，否则会提示错误信息：SUBSCRIPT OUT OF RANGE（下标越界）5、一个程序中一个数组不能重复被定义。（二）清除数组语句格式：ERASE 数组名，数组名作用：在程序中清除一个或多个数组。说明：

5、在清除语句中只能写数组名，不要写下标。二、补充知识：1、数组下标值的下界默认为0，也可以将下标值的下界由0改变为1。语句格式：OPTION BASE n其中的n值只能是0或1两个值，不能是其它数字。2、QBASIC允许用户自己指定下标的下界，即下标的下界可以不是0或1。定义格式：DIM 数组名（下标下界 TO 下标上界）例： DIM B（-2 TO 4） 即定义了一个一维数组B，下标下界为-2，上界为4，共有 个元素。在这种定义格式中，要求下标值的范围是-32768至32767三、课堂练习：1、下面四条数组说明语句中语法正确的是（ ）A、DIM A$（10） B、DEF A（10）C、DIM

6、A（10）$ D、DIMENSION A（10）2、语句DIM A（4，5，6）定义的数组元素个数是（ ）A、15 B、120 C、210 D、4563、语句10 DIM A（20）中，A表示（ ）A、变量名 B、下标变量名 C、数组名 D、数组元素名4、语句OPTION BASE 1：DIM A（3，4）定义的数组元素个数是（ ）A、任意个 B、12 C、7 D、205、语句DIM A（11 TO 30）所定义的数组有（ ）个元素。A、11 B、20 C、30 D、3306、语句DIM DPN#（8，4）所定义的数组的数据类型是 型。7、下列关于数组的说法不正确的是（ ）A、数组元素的地位和

7、作用与简单变量相当，都可用来存放一个数据。B、允许在同一数组中同时存放不同类型的数据。C、数组中各元素在内存中占据一组连续的存储单元。D、数组与循环结合使用，可以很方便地对大批数据进行处理。8、下列关于数组建立和引用的说法不正确的是（ ）A、引用数组元素时，下标值应在建立数组时所指定的范围内。B、在程序中凡允许简单变量出现的地方，都可以用数组元素代替。C、在同一个程序中，数组不可以被重复定义。D、OPTION BASE n命令中，n 除0和1外，还可以是其它数字。9、下列程序运行后会显示出错信息，出错的原因是（ ）10 X = 520 DIM A（X）30 FOR M = 1 TO 740 A

8、（M）= M + 150 NEXT M60 ENDA、数组元素A（M）的下标超出上界B、数组说明语句不能用变量来定义下标C、不能用循环变量M进行运算D、计算机有病毒10、DIM B（7，8）说明后，B数组最多有（ ）个元素。 A、56 B、57 C、15 D、7211、在10 DIM A（100）语句执行后，数组A的第101个元素是（ ） A、A（99） B、A（100） C、A（101） D、A（102）12、指出下列程序中的错误并在相应语句处改正（不得增删语句）1）10 DIM A（10）20 FOR I = 5 TO 2030 A（I）= I40 PRINT A（I）；50 NEXT I

9、60 END2）10 FOR I=1 TO 20 20 INPUT A（I） 30 S = S + A（I） 40 NEXT I 50 PRINT S 60 END3）10 I=5：T=1 20 DIM B（I） 30 INPUT B（I） 40 I = I 1 50 T = T * B（I） 60 IF I0 THEN 20 70 PRINT T 80 END13、写出下列程序运行结果：1）10 DIM B（3）：BK = 3 2）10 DIM A（5） 20 FOR K=1 TO 3 20 FOR I=1 TO 4 30 B（K）= K 1 30 A（I）= 2 * I - 1 40 PR

10、INT K，B（K），BK 40 NEXT I 50 NEXT K 50 PRINT A（A（I）+1） 60 END 60 END 巩固训练（一）1、下列程序运行输出的结果是（ ）10 FOR J = 0 TO 1020 READ A（J）30 NEXT J40 PRINT “A1=”；A（0）50 DATA 1.88，2.55，3.66，6.66，8，77，90.5，0，0，36.5，55.560 ENDA、A（0）= 1.88 B、55.5 C、A1 = A（0） D、A1 = 1.882、下列程序运行输出的结果是（ ）10 L = 120 FOR K = 1 TO 230 ON L G

11、OSUB 200，30040 L = L + 150 NEXT K60 FOR J = 1 TO 370 PRINT A（J）；80 NEXT J90 DATA 1，2，3100 END200 FOR J =1 TO 3210 READ A（J）220 NEXT J230 RETURN300 A（1）= A（1）+ 1310 A（2）= A（2）+ 1 320 A（3）= A（3）+ 1330 RETURN A、1 2 3 B、2 3 4 C、3 4 5 D、4 5 63、下列程序运行输出的结果是（ ）10 FOR J = 0 TO 1020 READ A（10）30 NEXT J40 PRI

12、NT “A0=”；A（0）50 DATA 1.88，2.55，3.66，6.66，8.77，90.5，0，0，36.5，55.5，3360 ENDA、A0= 0 B、33 C、A0 = A（0） D、A0 = 1.884、下列程序运行输出的结果是（ ）10 DIM A（10）20 FOR J = 6 TO 1030 READ A（J）40 NEXT J50 PRINT A（5）+A（6）*A（10）60 DATA 1，2，3，4，570 ENDA、5 B、25 C、1 D、显示出错信息5、阅读下面程序：10 FOR I =1 TO 520 READ CH$（I）30 NEXT I40 B=1：

13、C=2：D=3：E=450 DATA A，B，C，D，E60 END执行上述程序后，CH$（C * D - E）的值为 。6、10 DIM A（10）20 FOR J= 6 TO 1030 READ A（J）40 NEXT J50 PRINT A（0）+A（A（6）/A（10）60 DATA 1，2，3，4，570 END上述程序运行后，屏幕输出结果是（ ）A、0.2 B、1.6 C、0 D、出错信息7、程序运行结果是（ ）10 FOR K=10 TO 6 STEP -120 READ A（K）30 NEXT K40 DATA 1，3，5，7，950 FOR J=3 TO 760 PRINT

14、A（J）；70 NEXT J80 ENDA、1 3 5 7 9 B、9 7 5 3 1C、0 0 0 9 7 D、1 1 1 1 18、程序运行结果是（ ）10 FOR K=10 TO 6 STEP -120 READ A（K）30 NEXT K40 DATA 1，3，5，7，950 FOR J=1 TO 560 PRINT A（J）；70 NEXT J80 ENDA、1 3 5 7 9 B、9 7 5 3 1C、0 0 0 0 0 D、1 1 1 1 1写出下列程序的运行结果 9、 10 FOR J=1 TO 10 11、10 DIM X（4）20 A（J/2）=J 20 FOR K=0 T

15、O 430 A（J/2+1）= A（J/2） 30 X（K）=K * K40 NEXT J 40 X（K）=X（K）+K50 FOR K=1 TO 10 50 PRINT X（K）；60 PRINT A（K）； 60 NEXT K70 NEXT K 70 END80 END 10、10 DIM A（8） 12、10 DIM A（5） 20 FOR I=1 TO 8 20 FOR I = 1 TO 5 30 A（I）=I * 2 + 4 30 A（I）=I * 20 + 2 40 NEXT I 40 PRINT A（I - 1）， 50 PRINT A（6）/A（2） 50 NEXT I60 E

16、ND 60 END二维数组一、基础知识：高级BASIC语言允许数组可多达255维，二维以上的称为多维数组。实际应用中一般为一至三维。二维数组对应一个二维表，它的第一个下标为 下标，第二个下标为 下标二、例题分析：写运行结果10 DIM A（3，4）20 FOR I=0 TO 330 FOR J=0 TO 440 A（I，J）=I + J50 NEXT J60 NEXT I70 FOR I=0 TO 380 FOR J=0 TO 490 PRINT A（I，J）；100 NEXT J110 PRINT120 NEXT I130 END 三、课堂练习：写程序运行结果：10 DIM A（5，5）20

17、 K=130 FOR I=1 TO 540 FOR J=1 TO 550 A（I，J）=K60 K = 1 - K70 PRINT A（I，J）；80 NEXT J90 PRINT100 NEXT I110 END巩固训练（二）写出下列程序运行结果：1、10 DIM X（2，2）20 FOR K=1 TO 230 FOR J=1 TO 240 IF K=J THEN X（K，J）=1 ELSE X（K，J）=050 NEXT J60 NEXT K70 FOR K = 1 TO 280 PRINT X（K，1）；X（K，2）；90 NEXT K100 END2、 10 FOR J=1 TO 32

18、0 FOR K=1 TO 330 A（J，K）=（J-1）*3+K40 NEXT K，J50 FOR J=2 TO 360 FOR K=1 TO 270 PRINT A（K，J）；80 NEXT K，J90 END3、 10 DIM A246（3，3）20 FOR K=1 TO 330 FOR J=1 TO 340 A246（K，J）= 2 * K：PRINT A246（K，J）；50 NEXT J60 PRINT70 NEXT K80 END4、 10 DIM A（3，3）20 FOR I=0 TO 230 FOR J=1 TO 340 A（I，J）= I * 3 + J50 PRINT A

19、（I，J）；60 NEXT J70 PRINT 80 NEXT I90 PRINT100 FOR I=1 TO 3110 FOR J=0 TO 2120 PRINT A（I，J）；130 NEXT J140 PRINT 150 NEXT I160 END5、 10 DIM A（2，2）20 FOR I=1 TO 230 FOR J=1 TO 240 READ A（I，J）50 NEXT J，I60 FOR I=0 TO 270 FOR J=0 TO 280 A（I，J）=A（A（I，J），A（J，I）90 PRINT A（I，J）；100 NEXT J110 PRINT120 NEXT I13

20、0 DATA 1，2，2，1140 END巩固训练（三）1、程序运行后，输出下面的结果，请选择正确的内容填空。（ ）1 4 72 5 83 6 910 FOR J = 1 TO 320 FOR K = 1 TO 330 A（J，K）= 40 PRINT A（J，K）；50 NEXT K60 PRINT70 NEXT J80 ENDA、J+K B、（J-1）*3+K C、J+（K-1）*3 D、J*K2、要想输出下列四行三列的矩阵，请把程序补充完整4 5 65 6 76 7 87 8 9方法一： 方法二：10 DIM A（4，3），B（3，4）20 FOR J=1 TO 430 FOR K=1

21、TO 340 A（J，K）= J+K50 B（K，J）= 60 PRINT B（K，J）；70 NEXT K80 PRINT90 NEXT J100 END10 DIM A（3，4），B（4，3）20 FOR J=1 TO 330 FOR K=1 TO 440 A（J，K）= 50 B（K，J）= A（J，K）+260 NEXT K70 NEXT J80 FOR J=1 TO 490 FOR K=1 TO 3100 PRINT B（J，K）；110 NEXT K120 130 NEXT J140 END3、下面程序运行后，输出结果如下：100 110 120 130200 210 220 23

22、0300 310 320 330400 410 420 43010 DIM X（4，4）20 FOR L=1 TO 430 FOR J=1 TO 440 X（L，J）= 50 PRINT X（L，T）；60 NEXT J70 PRINT80 NEXT L90 END4、显示杨辉三角，显示10行1 1 11 2 11 3 3 11 9 36 84 126 126 84 36 9 15 DIM A（10，10）10 FOR X=1 TO 20 PRINT TAB（26）；30 FOR Y=1 TO X40 IF Y=1 OR Y = THEN A（X，Y）=1：GOTO 50 A（X，Y）=A（X-1，Y）+ 60 PRINT A（X，Y）；70 NEXT Y80 90 NEXT X100 END