《数据库基础与应用》第四次练习

1、数据库基础与应用第四次练习一、 一、程序填空题 1以下是从键盘输入10个数，统计其中最大数的程序。2以下程序求1-100之间所有整数的和并输出结果。Set talk offK=1Input “请输入第一个数:” to yDo while k<_Input “请输入下一个数：” to x If y<x_endifk=k+1enddo?”最大数=”,Yset talk on set talk offclears=0x=1do while (x<=100)s=s+xx=x+1enddo?"1-100的和是：",sreturn3写出以下程序输出

2、的结果4说明以下程序的功能*主程序main.prgSet talk offClearA=1B=2 do sub?A,B *子程序sub.prga=10b=20?A,Breturnclearstore 0 to c1,c2,c3use zgjkscando casecase 职称“讲师“c1=c1+1case 职称“工程师“c2=c2+1case 职称“实验师“c3=c3+1endcaseendscan?”讲师：”，c1？”工程师：”，c2？”实验师：”，c3usereturn 结果： 程序的功能：  5以下程序，通过参数传递数据，计算三角形的面

3、积，试将之补充完整。6子程序sub.prg带有参数P，N。其功能是计算P=N！。主程序main.prg中读入正整数M和K（M>K），通过调用子程序sub.prg，求出S=K!+(K+1)!+M!，并输出S的值。set talk offmj=0input "输入三角形的高：" to Hinput "输入三角形的底:" to Ado ss with h,a,mj?"三角形的面积为：",mjreturn *子程序ss.prgparameter_y=x1*x2/2return  答案：_*main.prgs

4、et talk offinput "输入K的值：" to Kinput "输入M的值：" to Mstore 0 to S,AI=Kdo while I<=_do sub_I=I+1S=_enddo?'S=',Sset talk onreturn *过程文件sub.prgparameters P,Nstore _ to P,Ldo while L_P=_L=_enddoreturn7设有names.dbf文件，其中记录包括以下字段：编号，姓名，单位，地址和电话。现输入编号后可自动进行查找，显示出姓名，单位和电话。也可重复查

5、找，并在输入“#”后退出。set talk offuse namesindex on 编号 to bhido while .t.clearno1=space(5)3,20 say "输入编号：（#退出）" get no1_no1=trim(no1)if _exitendifseek no1if _?"姓名：",姓名,"单位：",单位,"电话：",电话else?"无此编号"endifwaitloopenddousereturn 8某商店有一个商品表文件KC.dbf，其结构为spbh(商品

6、编号)，spmc(商品名称)，sl(数量)，price(单价)。以下程序将所有库存数量高于100的商品的单价降低20%,试完成程序。9设有两个表文件，XF.dbf的结构为：学号（C,6）,姓名(C,8)，课程号（C,6）和学分(N,3,1);总学分：zxf.dbf的结构为：学号（C,6）和总学分（N,5,1）。在ZXF.dbf中的“学号“字段已有确定的值，以下程序是求每位同学的总学分，并按总学分的升序顺序显示每个同学的学号、姓名和学分。set talk offuse kcdo while .not. eof()if _?"降价前："?"商品名称",+sp

7、mc+"数量"+str(sl,4)?"单价"+"str(price,8,2)replace price with price*0.8?"降价后："?"商品名称",+spmc+"数量"+str(sl,4)?"单价"+"str(price,8,2)endif_enddoset talk offselect 1use xfselect 2use zxfselect 1go topdo while .not. eof()xh=学号select 2_replace 总学分 with 总学分+A.学分select 1skipenddoselect 2_go topdo while .not. eof()xh=学号select 1locate for 学号=xhselect 2_skipenddoclose datareturn   二、 二、编程题：1、编程实现以下功能：由键盘输入一个整数（1-7）之间，在显示器上输出对应整数的星期几，如：1对应星期一，2对星期二，7对星期日。如果输入的整数不在1-7之间，则显示“输入数据错误”。要求用do case语句实现。2、有