第7章-结构化程序的设计.ppt

FOR j=1 TO 4 a(5,j)=0 FOR i=1 TO 4 a(5,j)=a(5,j)+a(i,j) NEXT i NEXT j FOR i=1 TO 5 FOR j=1 TO 5 ??a(i,j) NEXT j NEXT i 7.6.4 数组与数据表的数据传递 一维数组与记录之间的数据传递 记录-数组 SCATTER [FIELDS 字段表] TO 数组名 数组-记录 GATHER FROM 数组名 [FIELDS 字段表] 说明： 不能传递通用型或备注型字段 若缺省FIELDS短语，则传递所有字段 若数组个数多于字段个数，多出部分无影响 CLEAR MEMORY USE zgda DISPLAY SCATTER TO x DISPLAY MEMORY LIKE x 例题7-39 由记录向一维数组传递 CLEAR MEMORY DIMENSION x(5) x(1)=“200115” x(2)=“张勇” x(3)=1956.00 x(4)=“男” x(5)=.F. USE zgda APPEND BLANK GATHER FROM x DISPLAY 例题7-40 由一维数组向记录传递 二维数组与整表之间的数据传递 数据表内容--二维数组 C