for循环scan循环程序设计

《for循环scan循环程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、For循环与scan循环程序设计上机1.根据成绩表中“总分”分成绩类别，并填入表中的“类别”字段*根据总分分成绩类别，t41Use成绩&&修改表结构，增“类别”C6字段ListGotopFork=1torecc()&&用记录条数recc()控制循环次数docase&&根据“总分”给Dj赋值Case总分>=260Dj=[优秀]Case总分>=240Dj=[良好]Case总分>=230Dj=[及格]otheDj=[不及格]endcaserepl类别withdj&&替换当前记录的“类别”字段skip&&记录指针移下一条endforlistreturn变通：用scan循环实现以上程序的

2、for循环2、for循环设计(1)求和*计算s=1+2+3+…+n,t42Input[请输入正整数n:]tonS=0Fork=1tonS=s+kendfor?sreturn运行程序，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、*3*…*n,t46运行程序，n=11,s=n=15,s=(6)变通：求1*2*3*…*n>2011的第一个值,t47以上结果与条件循环所得结果比较。（7）逐条显示“成绩”表中“总分”大于240分的所有记录。解：应用scan循环分条显示总分>240的记录，直到表尾为止。程序设计如下：*t48use成绩scanfor总分>240dispwaitendsreturn(8)求1～1000之间全部奇数的平方根之和*在程序中控制奇数设计,t49settalkoffy=0forx=1to1000step2y=y+sqrt(x)endfor?"0～1000之间的奇数之平方根之和为:",y

4、settalkonreturn运行这2个程序，得0～1000之间的奇数之平方根之和为:10541.01两思考题(应用FOR循环设计):*输入一个数后逆序输出，skt1input"请输入一个整数："ton?"逆序输出:"M=len(ltrim(str(n)))Fork=1tom??str(n%10,1)n=int(n/10)endforreturn*输入一个数（字符串）后逆序输出，sktaacce"请输入一个整数或字符串："ton?"逆序输出:"m=len(n)fork=1tom??subs(n,m+1-k,1)endforreturn变通：*输入一个数（字符串）后逆序输出，sk

5、tbacce"请输入一个整数或字符串："ton?"逆序输出:"m=len(n)fork=mto1step-1??subs(n,k,1)endforreturn