vf第6章2.pptVIP

* * 补：多重循环及数组 ●多重循环指循环体内还有循环。 ● 数组：一组相关数据或变量的集合。 如 A(10),B(2,3) ( 参见书P46 2.2.2) ●数组使用前，必须定义。 DIMENSION 数组名（下标1 [，下标2]） DECLARE 数组名（下标1 [，下标2]） 几个概念: ●数组名,数组定义符, 数组下标,数组维数,数组元素,下标的上界、下界 ●数组存放次序（排列的顺序）：“按行排” ，也可按一维数组元素的顺序来存取数据。 例：如定义A(2,3) 则A(2,2) 也可表示为A(5) ●同一数组的各元素的取值类型可不同且同一元素前后类型可变 ●可对整个数组赋同一值。如 A=5 ●数组初值为.F. ●可重复定义 例1 计算1+2+... +N的值 *循环求和 XHQH.PRG SET TALK OFF H=0 INPUT “N=” TO N FOR I=1 TO N T=I H=H+T ENDFOR ? “H=”,H SET TALK ON RETURN 问题： 1、S=1!+2!+…+N! 2、 S=1+(1+2)+(1+2+3)+…+(1+2+3+…+N) 3、计算Q=1+1/(1+1/2)+…+1/(1+1/2+1/3++…+1/N) 4、S=a+aa+aaa+…+aaa…a (n个a) (n和a从键盘输入) 5、S=1!+(1!+2!)+(1!+2!+3!)+…+(1!+2!+…+N!) T=1 FOR J=1 TO I T=T*J ENDFOR 1、S=1!+2!+…+N! 例2：现有100名学生，每人6科成绩，计算每人的平均成绩。 SET TALK OFF CLEAR INPUT N= TO N FOR A=1 TO N 计算每人的平均分 打印输出结果 ENDFOR RETURN 用DO WHILE实现 SET TALK OFF CLEAR INPUT N= TO N *FOR A=1 TO N A=1 DO WHILE A=N H=0 *FOR B=1 TO 6 B=1 DO WHILE B=6 INPUT X= TO X H=H+X B=B+1 *ENDFOR ENDDO ?H=+STR(H,3)+ ??P=+STR(H/6,3) A=A+1 *ENDFOR ENDDO RETURN H=0 FOR B=1 TO 6 INPUT X= TO X H=H+X ENDFOR ?H=+STR(H,3)+ ??P=+STR(H/6,3) 例3.向数组X输入N个数据，找出其中的最小数。 SET TALK OFF CLEAR INPUT “N=” TO N DIMENSION X(N) FOR I=1 TO N INPUT X= TO X(I) ENDFOR 找最小值 ?”MIN=”,MIN SET TALK ON RETURN MIN=X(1) FOR I=2 TO N IF MINX(I) MIN=X(I) ENDIF ENDFOR 问题：1、找最大值，最小（大）值的个数 2、第2小（大）的数 3、找出矩阵A(3,5)的最大（小）元素 例4：向数组X输入N个数据，请完成从小到大的排列。 SET TALK OFF CLEAR INPUT N= TO N DIMENSION A(N) FOR I=1 TO N INPUT X= TO A(I) ENDFOR FOR I=1 TO N-1 找第I小的数，并存入A(I)中 即：从A(I)……A(N)中找最小的数 ?A(I) ENDFOR ?A(N) SET TALK ON RETURN FOR J=I+1 TO N IF A(I)A(J) T=A(I) A(I)=A(J) A(J)=T ENDIF ENDFOR 相关问题： 1、随机产生100个10—1000之间的整数，将他们按有小到大次序 排序 2、随机产生100个10—1000之间的整数，将他们中的偶数按有小 到大次序排序 3