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

For循环与scan循环程序设计上机 1. 根据成绩表中“总分”分成绩类别，并填入表中的“类别”字段 * 根据总分分成绩类别，t41 Use 成绩 修改表结构，增“类别”C6字段 List Go top For k=1 to recc() 用记录条数recc()控制循环次数 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*…*n2011的第一个值, t47 以上结果与条件循环所得结果比较。 （7） 逐条显示“成绩”表中“总分”大于240分的所有记录。 解： 应用scan循环分条显示总分240的记录，直到表尾为止。 程序设计如下： * t48 use 成绩 scan for 总分240 disp wait ends return 求1～1000之间全部奇数的平方根之和 * 在程序中控制奇数设计,t49 set talk off y=0 for x=1 to 1000 step 2 y=y+sqrt(x) endfor ? 0～1000之间的奇数之平方根之和为:,y set talk on return 运行这2个程序，得 0～1000之间的奇数之平方根之和为: 10541.01 两思考题(应用FOR循环设计): * 输入一个数后逆序输出，skt1 input 请输入一个整数： to n ? 逆序输出: M=len(ltrim(str(n))) For k=1 to m ?? str(n%10,1) n=int(n/10) endfor return * 输入一个数（字符串）后逆序输出，skta acce 请输入一个整数或字符串： to n ? 逆序输出: m=len(n) for k=1 to m ?? subs(n,m+1-k,1) endfor return 变通： * 输入一个数（字符串）后逆序输出，sktb acce 请输入一个整数或字符串： to n ? 逆序输出: m=len(n) for k=m to 1 step -1 ?? subs(n,k,1) endfor return