for循环scan循环程序设计.doc

For循环与scan循环程序设计上机
1. 根据成绩表中“总分”分成绩类别,并填入表中的“类别”字段
* 根据总分分成绩类别,t41
Use 成绩&& 修改表结构,增“类别”C6字段
List
Go top
For k=1 to () && ()控制循环次数
do case && 根据“总分”给Dj赋值
Case 总分>=260
Dj=[优秀]
Case 总分>=240
Dj=[良好]
Case 总分>=230
Dj=[及格]
othe
Dj=[不及格]
endcase
repl 类别 with dj && 替换当前记录的“类别”字段
skip && 记录指针移下一条
endfor
list
return
变通:用scan循环实现以上程序的for循环
2、 for循环设计
(1) 求和
* 计算s=1+2+3+…+n, t42
Input [ 请输入正整数n: ] to n
S=0
For k=1 to n
S=s+k
endfor
? s
return
运行程序,n=2011,s=
n=201105,s=
以上结果与条件循环所得结果比较。
(2) 变通: 求s=1+22+32+…+n2, t43
运行程序,n=2011,s=
n=201105,s=
(3) 变通: 求s=1+1/2+1/3+…+1/n, t44
运行程序,n=2011,s=
n=201105,s=
(4) 变通: 求s=1+3+5+…+(2n-1), t45
运行程序,n=2011,s=
n=201105,s=

(5) 变通: 求1*2*3*…*n, t46
运行程序,n=11,s=
n=15,s=
(6) 变通:求1*2*3*…*n>2011的第一个值, t47
以上结果与条件循环所得结果比较。
(7) 逐条显示“成绩”表中“总分”大于240分的所有记录。
解: 应用scan循环分条显示总分>240的记录,直到表尾为止。
程序设计如下:
* t48
use 成绩
scan for 总分>240
disp
wait
ends
return

(8) 求1~1000之间全部奇数的平方根之和

* 在程序中控制奇数设计,t49
set talk off
y=0
for x=1 to 1000 step 2
y=y+sqrt(x)
endfor
? "0~1000之间的奇数之平方根之和为:",y
s