程序题目中有关解答方法2.docVIP

程序题目中有关解答方法： 1、接收数据的命令使用： INPUT [字符表达式] TO 内存变量 接收任何数据类型，多数用来接收数值型数据 ACCEPT [字符表达式] TO 内存变量 接收数据按C型处理 例如： 题目1：键盘输入X值时,求其相应的Y值 * ┌ -1 (X0) * │ * Y=├ 0 (X=0) * │ * └ 1 (X0) SET TALK OFF **********FOUND********** ACCEPT 请输入一个数： TO X **********FOUND********** DO WHILE CASE X0 Y=-1 CASE X=0 Y=0 **********FOUND********** DEFAULT X0 Y=1 ENDCASE ? Y SET TALK OFF *题目2：表XSDA.DBF结构为：学号（C，6），姓名（C，6）， * 性别（C，2），入学成绩（N，6，2）。 * 本程序实现按学号查找记录，直到输入#为止。 SET TALK OFF USE XSDA **********FOUND********** ACCEPT 请输入要查找的学号 ON XH DO WHILE XH!= # **********FOUND********** LOCATE FOR 学号=CJ IF FOUND() ?学号,姓名,入学成绩 ELSE ? 无此学号 ENDIF ACCEPT 请继续输入要查找的学号 TO XH **********FOUND********** ENDFOR ?谢谢使用本查找系统 USE SET TALK ON *题目3：从键盘上输入5个数，统计其中奇数的个数。 SET TALK OFF A=0 FOR J=1 TO 5 **********FOUND********** ACCEPT 请输入第+STR(J,2)+ 数 TO M **********FOUND********** IF INT(M/2)=M/2 A=A+1 ENDIF ENDFOR **********FOUND********** ?奇数个数是,A CANCEL 2、利用IF语句对数进行奇、偶判断以及求某数的倍数问题。 常用的写法：IF INT（数值/2）=数值/2 或IF MOD（数值，2）=0 判断数值为偶数 或IF 数值%2=0 IF INT（数值/2）数值/2 或IF MOD（数值，2）0 判断数值为奇数 或IF 数值%20 IF INT（数值1/数值2）=数值1/数值2 或IF MOD（数值1，数值2）=0 判断为某数值的倍数 或IF 数值1%数值2=0 例如: 题目1：从键盘上输入5个数，统计其中奇数的个数。 SET TALK OFF A=0 FOR J=1 TO 5 **********FOUND********** ACCEPT 请输入第+STR(J,2)+ 数 TO M **********FOUND********** IF INT(M/2)=M/2 A=A+1 ENDIF ENDFOR **********FOUND********** ?奇数个数是,A CANCEL 题目2：求1到10之间奇数的阶乘和t=1!+3!+5！+…+9! **********FOUND********** t=1 P=1 I=1 **********FOUND********** Do while I10 P=p*I **********FOUND********** If int(i/2)=i/2 T=t+p Endif I=I+1 Enddo ?t=,t 题目3：计算出1-30以内（包含30）能被5整除的数之和。 SET TALK OFF X=0 **********FOUND********** Y=1 DO WHILE .T. X=X+1 DO CASE CASE MOD(X,5)=0 Y=Y+X CASE X=30 **********FOUND********** EXIT CASE x30 **********FOUND********** LOOP ENDCASE