数数据库 规则图形.docVIP

规则图形（双重循环/矩形、三角形、平行四边形等） P157页例题7-29 三角形 clear for i=1 to 5 @i+20,20-i say * for j=1 to i-1 @i+20,col()+1 say * endfor endfor clear for i=1 to 5 ?space(5-i) for j=1 to i ??* endfor endfor 平行四边形 clear for i=1 to 5 @i+20,20-i say * for j=1 to 5 @i+20,col()+1 say * endfor endfor clear for i=1 to 5 ?space(5-i) for j=1 to 6 ??* endfor endfor 矩形 clear for i=1 to 5 @i+20,20 say * for j=1 to 5 @i+20,col()+1 say * endfor endfor clear for i=1 to 5 ? for j=1 to 6 ??* endfor endfor 三角数字 clear for i=1 to 7 ?space(7-i) for j=1 to 2*i-1 ??str(i,1) endfor endfor 吉胜军 2