程序调试题-新.docVIP

程序调试题 一、填空 1） SET TALK OFF CLEAR C= FOR I=1 TO 3 ——1 ACCEPT C+请输入口令: TO PSW IF PSW==MANAGER ——2 ?欢迎使用本系统! EXIT ——3 ENDIF C=口令输入错误，再试一次！ ENDFOR ——4 IF I3 ——5 ?对不起，你无权使用本系统 ENDIF SET TALK ON 2） **本程序用于求解一元二次方程ax^2+bx+c=0 CLEAR ALL **循环,条件恒真 DO WHILE .T. CLEAR INPUT 输入一元二次方程的二次项系数a（a不能为0）=？ TO a IF a=0 LOOP ENDIF INPUT 输入一元二次方程的一次项系数b=？ TO b INPUT 输入一元二次方程的常数项c=？ TO c **把判别式的运算结果保存到内存变量panbie中 STORE b*b-4*a*c TO panbie **显示一个空行 ? **判断判别结果是否小于0 IF panbie0 **若小于0显示无实数解 ? 无实数解！ ELSE **判断判别结果是否等于0 IF panbie=0 **若等于0，计算并显示两个相同的实数根 ? 有两个相等的实数根x1=x2=,-b/(2*a) ELSE **大于0时分别计算并显示两个不等的实数根 ? 有两个不等的实数根：x1=,(-b+sqrt(panbie))/(2*a) _____1 ?x2=,(-b-sqrt(panbie))/(2*a) ______2 ENDIF ENDIF ? **等待从键盘输入单个字符，并保存到内存变量tuichu中 WAIT Q=退出，其它键继续 ...... TO tuichu **把用户输入的单字符先转换成大写，再与大写“Q”比较 IF UPPER(tuichu)=Q _____3 **若tuichu中为“Q”，清屏、退出DO WHILE 循环 CLEAR ______4 EXIT ______5 ENDIF **返回到DO WHILE 继续循环 ENDDO **返回调用程序 RETURN 3） **本程序按部门汇总分别求出奖金,工资,扣款的值,最后再写入临时表gzhz.dbf中 CLEAR ALL SET SAFETY OFF SET TALK OFF USE 工资表 **按部门 SORT ON 部门 TO gzpx ______1 USE gzpx BROWSE **把3个数值字段求和，并保存在内存变量中gz,jj,kk，为总计作准备 SUM 工资, 奖金 扣款 TO gz, jj, kk _________2 **按部门分类汇总，汇总结果为每个部门作为一条记录放入汇总表文件gzhz.dbf TOTAL ON 部门 TO gzhz ______3 **打开汇总表文件 USE gzhz ______4 **尾部追加一条空记录，准备放总计 APPEND BLANK **把准备好的总计值放入相应字段 REPLACE 工资 WITH gz, 奖金 WITH jj, 扣款 WITH kk _______5 BROWSE **关闭打开的表文件 CLEAR ALL ERASE gzpx.dbf ERASE gz0.dbf 4） SET TALK OFF CLEAR INPUT N= TO N INPUT A= TO A _______ 1 STORE A TO X,Y S=A P=N-2 FOR I=2 TO N INPUT B= TO B S=S+B _______ 2 IF XB