多分支与条件循环程序设计上机.doc

多分支与条件循环程序设计上机 一、 多分支程序设计 （1）根据成绩表中“总分”分成绩类别 * 根据总分分成绩类别，t31 Use 成绩 Acce [ 请输入查找的学生姓名：] to xm Loca for 姓名=xm Do case Case 总分=260 Dj=[优秀] Case 总分=240 Dj=[良好] Case 总分=230 Dj=[及格] othe Dj=[不及格] endcase ? xm+[同学的成绩等级为：]+dj return 实验9第10题 2、 条件循环设计 (1) 求和 * 计算s=1+2+3+…+n, t32 Input [ 请输入正整数n: ] to n S=0 K=1 Do while k=n S=s+k K=k+1 enddo ? s return 运行程序，n=2011,s= n=20115,s= （2） 变通： 求s=1+22+32+…+n2, t33 运行程序，n=2011,s= n=20115,s= （3） 变通： 求s=1+1/2+1/3+…+1/n, t34 运行程序，n=2011,s= n=201105,s= （4） 变通： 求s=1+3+5+…+(2n-1), t35 运行程序，n=2011,s= n=20115,s= (5) 变通： 求1*2*3*…*n, t36 运行程序，n=11,s= n=15,s= (6) 变通：求1*2*3*…*n2011的第一个值, t37 （7） 逐条显示“成绩”表中“总分”大于240分的所有记录。 解： 应用locate直接查找成绩240的记录，找到则显示后继续查找，直到表尾为止。程序设计如下： *逐条显示“成绩”表中“总分”大于240分的所有记录t38 set talk off use 成绩 locate for 成绩240 do while !eof() eof()测试文件尾函数 disp continue wait ″按任意键继续,按esc键退出！″ enddo ? ″结束!″ set talk on return (7) 求1～1000之间全部奇数的平方根之和 * 在if语句中设置loop和exit设计,t39 set talk off store 0 to x,y do while .t. x=x+1 if int(x/2)=x/2 如果x为偶数,则返回 loop endif if x1000 如果x1000,则退出循环 exit endif y=y+sqrt(x) 奇数的平方根求和 enddo ? 0～1000之间的奇数之平方根之和为:,y set talk on return 精简设计： * 在程序中控制奇数设计,t310 set talk off x=1 y=0 do while x1000 y=y+sqrt(x) x=x+2 x从1开始,每次加2控制x为奇数 enddo ? 0～1000之间的奇数之平方根之和为:,y set talk on return 运行这2个程序，得 0～1000之间的奇数之平方根之和为: 10541.01 思考题： 1 设计程序，从键盘输入一个整数，输出其逆序数。 如：输入1584206，输出：6024851 2 设计程序，从键盘输入一个字符串，输出其逆序字符串。 如：输入abcdef，输出：fedcba