数据库应用基础(第二版)第四章结构化程序设计实验41之实验报告.docVIP

四、实验4-1报告 1．实验过程报告 （1）写出第2题的程序代码及当程序运行中指定类别为“糖果”时的结果。 答：第二题程序代码如下： *求商品表中指定类别(如饮料类)的总库存量 SET TALK OFF CLEAR USE E:\数据库\基本表\商品 ACCEPT 请输入商品类别: TO LB SUM 库存量 TO KCL FOR 类别=LB ?LB+类的总库存量为：+ ALLTRIM(STR(KCL,19,2)) USE SET TALK ON 当程序运行中指定类别为“糖果”时结果为：1730.00 （2）写出第4题的程序代码及当程序运行中输入一个自然数为6时的结果。 答：第四题程序代码如下： *求从键盘输入一个自然数(0~9)，将其转换成中文大写数字(零~玖) SET TALK OFF CLEAR C=零壹贰叁肆伍陆柒捌玖 INPUT X= TO X Y=SUBSTR(C,2*X+1,2) ?STR(X,1)+---+Y SET TALK ON 当程序运行中输入一个自然数为6时结果为：6-(陆 （3）写出第5题的程序代码及当程序运行中输入A的值为“123”时的结果。 答：第五题程序代码如下： *求从键盘输入数据，输出其数据类型的汉字说明 SET TALK OFF CLEAR INPUT 请输入数据: TO X Y=VARTYPE(X) DO CASE CASE Y=C ?X,--字符型 CASE Y=N ?X,--数值型 CASE Y=L ?X,--逻辑型 CASE Y=D ?X,--日期型 CASE Y=Y ?X,--货币型 CASE Y=U ?X,--未定义 ENDCASE SET TALK ON 当程序运行中输入A的值为“123”时结果为：123(数值型 （4）写出第6题的程序代码及当程序运行中输入年份为2000年时的结果。 答：第六题程序代码如下： *判断闰年 SET TALK OFF CLEAR INPUT 请输入年份: TO Y IF (Y%4=0 AND Y%1000) OR (Y%100=0 AND Y%400=0) ?Y,是闰年 ELSE ?Y,不是闰年 ENDIF SET TALK ON 当程序运行中输入年份为2000年时结果为：2000 是闰年 2．简答题 （1）程序文件的扩展名是什么? 修改程序文件的命令是什么？ 答：程序文件的扩展名为.prg (执行时自动编译为目标文件，扩展名为.fxp) 修改程序文件的命令是modify command[文件名[.扩展名]] （2）用INPUT语句输入一个字符型数据时，需要注意什么问题？ 答：用户在输入时必须用定界符将字符串常量括起来。 （3）在DO CASE …ENDCASE语句中，OTHERWISE 的作用是什么？ 答：otherwise 表示当所有的条件表达式(i=1,2,3……n)的值都为假(.f.)时则执行语句序列n+1。 （4）在调试程序时，如何使某些语句既不执行又不被删除？ 答：在本语句前面加”*”或”＆＆”，即程序注释语句。 3．实验完成情况及存在问题