预览加载中,请您耐心等待几秒...
1/4
2/4
3/4
4/4

在线预览结束,喜欢就下载吧,查找使用更方便

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

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