大学计算机论文

1.字符型，用字母C表示，数据包括中文字符，英文字符，数字字符，和其他ASCLL字符其长度范围是0~254.2.数值型，用字母N表示，数值型包括数字，小数点，和正负号组成。数值型数据在内存中占8个字节，相应的字段变量长度为20.3.货币型，默认保留为4位小数占据8字节储存空间，用字母￥表示4.日期型，用D表示，日期默认格式为{mm/dd/yy}月日年，数据固定长度为8位严格时间日期型格式：{^yyyy-mm-dd[,][hh[:mm[:ss]][a|p]]}严格日期命令格式setstrictdateto[0|1|2]“0—不进行严格格式。1—严格格式包括时间日期型。2—严格格式”5.时间日期型用T表示默认格式位{mm/dd/yyhh:mm:ss}日期时间型固定长度为8位6.逻辑型用T表示，只表示真假，长度固定为1位7.备注型，用M表示，没有数据长度限制，仅受磁盘空间大小限制。8.通用型，用G表示，长度不限无所不存。内存变量赋值命令：1.store<表达式>to<内存变量>2.<内存变量>=<表达式>内存变量显示命令：displaymemory[like<通配符>]Listmemory[like<通配符>]内存变量文件的建立：saveto<文件名>内存变量回复：restorefrom<内存变量名>内存变量清除：clearmemoryRelease[<内存变量表>][all[like|except<通配符>]]数值函数：绝对值：abs平方根：sqrt指数函数：exp对数函数：log(<数表达式>)log10(<数式>)取整函数：int(<数值表达式>)ceiling(<数值表达式>)floor(<数值表达式>)取余函数：mod(<数值表达式1>/<数值表达式2>)四舍五入函数：round(<数值表达式1>,<数值表达式2>)字符函数：宏代换函数：&<字符型内存变量>[.字符表达式]求字符串长度函数：len(字符型表达式)求子串位置函数：at(<字符表达式1>,<字符表达式2>)atc(<字符表达式1>,<字符表达式2>)取字串函数：left(<字符表达式>,<数值表达式>)从左开始right(<字符表达式>,<数值表达式>)从右开始substr(<字符表达式>,<数值表达式1>[,<数值表达式2>])数值1，2为起始位置删除字符串前后空格函数：ltrim(<字符表达式>)前导空格rtrim(<字符表达式>)尾部空格alltrim(<字符表达式>)删除前后的空格字符串替代函数：stuff(<zfbds1>,<数值bds1>,<数值bds2>,<zfbds2>)数据类型转换函数：将字符转换成asscll码：asc(<字符表达式>)将ascll值转换成相应字符函数：chr(<数值表达式>)将字符串转换成日期或日期时间函数：ctod(<字符型表达式>)换成日期型数据ctot(<字符型表达式>)换成日期时间型将数值换成字符串函数：str(<数值表达式1>[,<数值表达式2>[,<数值表达式3>]])将数值1得值换成字符串，字符串的长度有2决定，小数位数有3决定将字符串转换成数值函数：val(<字符表达式>)字符表达式：连接运算：+-包含运算：<字符串1>$<字符串2>1包含在2里日期和时间表达式:<日期型数据>+<天数><天数>+<日期型数据>结果将来某一天<日期型数据>-<天数>结果为过去的某个日期<日期型数据1>-<日期型数据2>结果为两个日期之间相差的天数。<日期时间型时间>+<秒数><秒数>+<日期时间型数据>结果为若干秒后的日期时间<日期时间型数据>-<秒数>结果为若干秒前的时间日期<日期时间型数据1>-<日期时间型数据2>结果为两日期相差的秒数程序文件的建立与执行：建立或修改程序文件（1）命令：modifycommand[(文件名)|？]Modifyflie[(文件名)|？](2)菜单：执行：do顺序结构模式:程序注释命令：note|[注释]&&[注释]常用状态设置命令：（1）置会话模式：settalkon/off（2）置打印状态：setprinton/off（3）置屏幕状态：setconsoleon/off（4）置缺省驱动器和目录：setdefaultto交互式输入命令：字符串接受命令：Accept[<提示信息>]to<内存变量>任意数据输入命令：Input[<提示信息>]<内存变量>:单个字符接受命令：Wait[<t提示信息>][to<内存变量>][windoe[nowalt]][timeout<数值表达式>]3.编程将两个两位数的正整数a、b合并形成一个整数放在c中。合并的方式是：将a数的十位和个位数依次放在c数的百位和个位上，b数的十位和个位数依次放在c数的十位和千位上。SETTALKONa=45b=12C=int(a/10)*100+a%10+int(b/10)*10+b%10*1000Out=c?outSETTALKOFF4.编程求出并显示6!+7!+8!+9!的值。N=0Fori=6to9S=1Forj=1toiS=s*jEndforn=n+sEndfor?”n=”,n5.编程求P=1+1/(2x2)+1/(3x3)+…1/(10x10)。P=0M=1p=0Dowhilem<=10form=1to10P=p+1/(m*m)P=p+1/(m*m)M=m+1nextEnddo?”p=”,p6.从键盘任意输入的三个数按从大到小排序。input"x="toainput"y="tobinput"z="tocDocaseCasea>=bandb>=c?a,b,cCasea>=candc>=b?a,c,bCaseb>=aanda>=c?b,a,cCaseb>=candc>=a?b,c,aCasec>=aanda>=b?c,a,bCasec>=bandb>=a?c,b,aendcase7.编程求一组数中大于平均值的数的个数。dimea(4)a(1)=3a(2)=5a(3)=7a(4)=9S=0Fori=1to4S=s+a(i)EndforS=s/4N=0Forj=1to4Ifa(j)>sN=n+1EndifEndfor?n8.统计出学生.DBF表中籍贯为"河南"的人数。（利用DOWHILE……ENDDO循环语句实现）。方法一：Use学生S=0Locatefor籍贯=“河南”Dowhilenoteof()S=s+1continueenddo?”共有河南人“+str(s,2)+”名”Use方法二：Dowhilenoteof()if籍贯=“河南”S=s+1endifskipenddo9.统计字符串中字母t、i、s的个数。注意：字母不分大、小写。settalkoffclears="Thisisastudent"store0toi1,i2,i3fori=1tolen(s)m=subs(s,i,1)docasecasem="t".or.m="T"i1=i1+1casem="i".or.m="I"i2=i2+1casem="s".or.m="s"i3=i3+1endcaseendfor?i1,i2,i3SETTALKON10.设计程序实现按学号查找记录，直到输入"*"为止。SETTALKOFFUSEXSDAACCEPT"请输入要查找的学号："toXHDOWHILEXH!="*"LOCATEFOR学号=xhIFFOUND()?学号,姓名,入学成绩ELSE?"无此学号"ENDIFACCEPT"请继续输入要查找的学号："TOXHenddoUSERETU四、程序改错共1题（共计10分）*题目:ZHG.DBF是一个职工信息文件，其中包含编号(C5)、姓名*(C8)、性别(C2)、政治面目(C4)、出生日期(D8)等字*段。性别用字符串"男"或"女"表示，政治面目用字符串"*党员"、"团员"或"群众"表示。此文件已按政治面目建立*了索引，索引文件名是ZHG.IDX。*程序MODI1.PRG功能是：显示输出所有政治面目为"群众"*的女职工的姓名和出生日期（每行输出一个职工的信息）*在屏幕上*-------------------------------------------------------*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-------------------------------------------------------settalkoffclear***********FOUND**********方法一：USEZHGusezhgindexzhglocafor政治面目="群众"seek"群众"***********FOUND**********DOWHILE!EOF()dowhile政治面目="群众"IF性别="女"DISP姓名,出生日期***********FOUND**********ENDdendifSKIPENDDOUSESETTALKON方法二：USEZHGlocafor政治面目="群众"***********FOUND**********DOWHILE!EOF()IF性别="女"DISP姓名,出生日期***********FOUND**********endifSKIPcontinueENDDO*2.【程序改错】*-------------------------------------------------------*题目：求1+5+9+13+…+97的和*-------------------------------------------------------*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-------------------------------------------------------SETTALKOFFS=0**********FOUND**********N=0n=1DOWHILEN<=97**********FOUND**********S=S+1s=s+nN=N+4**********FOUND**********ENDWHILEenddo?SSETTALKON三、【程序填空】*-------------------------------------------------------*功能：显示所有100以内的6的倍数的数,并求这些数的和。*请在【】处添上适当的内容，使程序完整。*-------------------------------------------------------SETTALKOFFI=1***********SPACE**********【s=0】DOWHILEI<=100***********SPACE**********IFMOD(【I,6】)=0?IS=S+I***********SPACE**********【endif】I=I+1ENDDO?"S=",SSETTALKONRETURN*【程序填空】*-------------------------------------------------------*功能：复制表XSDA.DBF，生成新表XS.DBF，在新表中查找所有*男同学的记录，并将男同学的记录逻辑删除。*请在【】处添上适当的内容，使程序完整。*-------------------------------------------------------SETTALKOFFUSEXSDA***********SPACE**********【copytoxs】USEXSLOCATEFOR性别="男"DOWHILEFOUND()***********SPACE**********【delete】***********SPACE**********【continue】ENDDOUSESETTALKONRETURNRETU*3.【程序填空】*-------------------------------------------------------*功能:下面程序是计算1+3+5+…+99之和的程序。*请在【】处添上适当的内容，使程序完整。*-------------------------------------------------------SETTALKOFF***********SPACE**********【s=0】***********SPACE**********FORI=1TO99【step2】S=S+IENDFOR***********SPACE**********?"结果=",【s】SETTALKONRETURN*-------------------------------------------------------*4.【程序填空】*-------------------------------------------------------*功能:实现:求0-100之间的奇数之和，超出范围则退出。请在【】处*添上适当的内容，使程序完整。*-------------------------------------------------------SETTALKOFFX=0Y=0DOWHILE.T.X=X+1DOCASE***********SPACE**********CASE【mod(x,2)=0或x/2=int(x/2)】LOOPCASEX>=100***********SPACE**********【exit】OTHERWISEY=Y+X