enddo
例1. 输出图形 for a= 1 to 3 for b= 1 to 4 ?? b endfor
? 换行 endfor
例2:输出三角形 方法1，二重循环： for a= 1 to 4 for b= 1 to a ?? ―*‖ endfor
? 换行 endfor
方法2:用单循环
&& 光标 && 光标 for a=1 to 4
?repl(―*‖ , a ) &&每行重复输出a个* endfor
例3:输出平行四边形 for a=1 to 5 ?space(10- a) ?? repl(‖*‖ , 5 ) endfor
例4: 输出正三角形
for a=1 to 4 ?space(10 – a ) for b=1 to 2*a-1 ?? ―★‖ endfor ?
endfor
(练习输出各种三角形、平行四边形…)
辅导书p134例4-57, 输出三位数,该数等于三位数字的立方和 （即菊花数,例如153=1^3 + 5^3 + 3^3）
(分析: 从100至999逐个检查每个3位数是否符合条件若用a,b,c分别表示百位,十位,个位数,则此数为: 100*a + 10* b + c) set talk off clear
?‖ 菊花数是: ‖
for a = 1 to 9
for b= 0 to 9 for c=0 to 9 y=100*a + 10* b + c if y=a*a+b*b+c*c ?y endif endfor
endfor endfor
set talk on retu
1.输入一个名字、专业或日期,查询并显示相关记录，若找到则显示记录，否则显示‘查无此人’。
2. 在循环中,找出并显示得到最高分者的姓名
3.输入20个数，分别求其中正数,负数,零的和
4. 输入10个数,并找出其中最大数 最小数
5．计算 1!+2!+3!+…+10!
7. 求1000以内能被3和7整除的数的和
8. 输入字符串,统计其中大写字母 G的个数
9. 输入一个字符串，倒序输出。