实验十一(单重循环结构程序设计)课后实验内容参考解答.ppt

江西财经大学信息管理学院 凌传繁 2010 江西财经大学信息管理学院 凌传繁 2010 江西财经大学信息管理学院 凌传繁 2010 * 数据库应用 实验十一 单重循环结构程序设计 课后实验内容参考解答 * 江西财经大学信息管理学院 凌传繁 2010 实验十一 单重循环结构程序设计课后实验内容 从键盘输入一个正整数N，求该数的阶乘，即P=N!。 编程计算S=1+(1+2)+(1+2+3)+...+(1+2+3+...+N)，N从键盘输入。 统计在10～1000之间能被13整除的数的个数、数据和及平均值，并将这些数按每行8个显示出来。 求数列1，1，2，3，5，8，13，21，...的前15项之和。 从键盘输入一个同学的学号，编程统计该同学的选课门数、平均分和总分，要求使用scan for – endscan语句进行查询，并显示该同学选修的所有课程的课程编号和成绩。 设学生表student.dbf包含了学校内所有的学生，请分别统计少数民族男、女学生的人数。 输入非0实数x，求y=sin(x)/x+2sin(x)/x2+...+nsin(x)/xn。 * 江西财经大学信息管理学院 凌传繁 2010 ①从键盘输入一个正整数N，求该数的阶乘，即P=N!。 clear input 请输入一个数： to n p=1 for i=1 to n p=p*i next ? ltrim(str(n))+!=+ltrim(str(p)) * 江西财经大学信息管理学院 凌传繁 2010 ②编程计算S=1+(1+2)+(1+2+3)+...+(1+2+3+...+N)，N从键盘输入。 clear input 请输入一个数： to n p=0 s=0 for i=1 to n p=p+i s=s+p next ? 1+(1+2)+(1+2+3)+...+(1+2+3+...+N)=+str(s) * 江西财经大学信息管理学院 凌传繁 2010 ③统计在10～1000之间能被13整除的数的个数、数据和及平均值，并将这些数按每行8个显示出来。 n=0 s=0 k=0 ? space(10) ? 能被13整除的个数为：, n ? 平均值为：, s/n for i=10 to 1000 if mod(i,13)=0 n=n+1 ?? str(i,6) s=s+i k=k+1 if k=8 k=0 ? space(10) endif endif next * 江西财经大学信息管理学院 凌传繁 2010 ③统计在10～1000之间能被13整除的数的个数、数据和及平均值，并将这些数按每行8个显示出来。 clear n=0 s=0 for i=10 to 1000 if mod(i,13)=0 n=n+1 @ int((n-1)/8),mod(n-1,8)*6 say str(i,4) s=s+i endif next ? 能被13整除的个数为：, n ? 平均值为：, s/n 另解： * 江西财经大学信息管理学院 凌传繁 2010 ④求数列1，1，2，3，5，8，13，21，...的前15项之和。 clear a=1 b=1 s=a+b for i=3 to 15 x=a+b s=s+x a=b b=x next ? 1,1,2,3,5,8,...前15项和为：, s * 江西财经大学信息管理学院 凌传繁 2010 ④求数列1，1，2，3，5，8，13，21，...的前15项之和。 clear dime x(15) x(1)=1 x(2)=1 s=x(1)+x(2) for i=3 to 15 x(i)=x(i-1)+x(i-2) s=s+x(i) next ? 1,1,2,3,5,8,...前15项和为：, s 另解： * 江西财经大学信息管理学院 凌传繁 2010 ⑤从键盘输入一个同学的学号，编程统计该同学的选课门数、平均分和总分，要求使用scan for – endscan语句进