for循环scan循环程序设计.doc_第1页
for循环scan循环程序设计.doc_第2页
for循环scan循环程序设计.doc_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

For循环与scan循环程序设计上机1. 根据成绩表中“总分”分成绩类别，并填入表中的“类别”字段* 根据总分分成绩类别，t41Use 成绩 & 修改表结构，增“类别”C6字段ListGo topFor k=1 to recc() & 用记录条数recc()控制循环次数do case & 根据“总分”给Dj赋值 Case 总分=260 Dj=优秀Case 总分=240 Dj=良好Case 总分=230 Dj=及格othe Dj=不及格endcaserepl 类别 with dj & 替换当前记录的“类别”字段skip & 记录指针移下一条endforlistreturn变通：用scan循环实现以上程序的for循环2、 for循环设计(1) 求和* 计算s=1+2+3+n, t42Input 请输入正整数n: to nS=0For k=1 to n S=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*n, t46运行程序，n=11,s= n=15,s= (6) 变通：求1*2*3*n2011的第一个值, t47以上结果与条件循环所得结果比较。（7） 逐条显示“成绩”表中“总分”大于240分的所有记录。解： 应用scan循环分条显示总分240的记录，直到表尾为止。程序设计如下：* t48use 成绩scan for 总分240dispwait endsreturn (8) 求11000之间全部奇数的平方根之和 * 在程序中控制奇数设计,t49set talk offy=0 for x=1 to 1000 step 2 y=y+sqrt(x) endfor ? 01000之间的奇数之平方根之和为:,y set talk onreturn运行这2个程序，得01000之间的奇数之平方根之和为: 10541.01两思考题(应用FOR循环设计):* 输入一个数后逆序输出，skt1input 请输入一个整数： to n? 逆序输出:M=len(ltrim(str(n)For k=1 to m ? str(n%10,1) n=int(n/10)endforreturn* 输入一个数（字符串）后逆序输出，sktaacce 请输入一个整数或字符串： to n? 逆序输出:m=len(n)for k=1 to m ? subs(n,m+1-k,1)endforreturn变通：* 输入一个数（字符串）后逆序输出，sktbacce 请输入一个整数或字符串：
人人文库> 全部分类> 教育资料 > 课设设计

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论