东方填空(有答案).doc

1、程序的功能是：在在学生表中查找并输出指定学生的所有信息。 填空要求：程序中共有三个填空，请在“---n---”处填空（注意：不能删除“此处填空”，以便于检查），并调试运行。不得增加或删减程序行。 SET TALK OFF CLEAR USE 学生 INDEX ON 学号 TO XH 或者 SET ORDER TO 学号---1----此处填空 ACCEPT 请输入指定的学生学号: TO XH SEEK XH IF !FOUND---2----此处填空 ? 查无此人! ELSE DISPLAY----3----此处填空 ENDIF USE SET TALK ON 2、给定程序的功能是：判断给定的正整数值表达式的值是否为素数。 填空要求：程序中共有三个填空，请在“---n---”处填空（注意：不能删除“此处填空”，以便于检查），并调试运行。不得增加或删减程序行。 SET TALK OFF CLEAR DO WHILE .T. INPUT 请输入一个正整数: TO X FOR I=2 TO X-1----1----此处填空 IF INT(X/I)=X/I EXIT ENDIF ENDFOR IF X=I----2---- 此处填空 ? X,是素数! ELSE ? X,不是素数! ENDIF WAIT 是否继续输入(Y/N) TO YN IF UPPER(YN)=Y 或者IF LOWER(YN)----3-----此处填空 LOOP ELSE EXIT ENDIF ENDDO SET TALK ON 3、给定程序的功能是:输入边长，如果能构成三角形，则计算三角形面积。 填空要求：程序中共有三个填空，请在“---n---”处填空（注意：不能删除“此处填空”，以便于检查），并调试运行。不得增加或删减程序行。 SET TALK OFF DO WHILE .T.---1----此处填空 CLEAR INPUT 输入第一边长: TO X INPUT 输入第二边长: TO Y INPUT 输入第三边长: TO Z IF X=0.OR.Y=0.OR.Z=0.OR. X+Y=Z .OR. Y+Z=X .OR. X+Z=Y ? 尺寸有误,重新输入! LOOP---2----此处填空 ENDIF EXIT ENDDO U=(X+Y+Z)/2 M=SORT(U*(U-X)*(U-Y)*(U-Z))--- 3-----此处填空 ? AREA=+ALLTRIM（STR(M，19，2)） SET TALK OFF 4、给定程序的功能是:在屏幕上显示输出一个乘法九九表。显示格式如下: 填空要求：程序中共有三个填空，请在“---n---”处填空（注意：不能删除“此处填空”，以便于检查），并调试运行。不得增加或删减程序行。 SET TALK OFF CLEAR X=1 或者 STORE 1 TO X ----1---此处填空 DO WHILE X=9 Y=1 DO WHILE Y=X ??STR(X,1)+*+STR(Y,1)+=+STR(X*Y,2)+或者 ??STR(X,1)+*+STR(Y,1)+=+STR(X*Y,2)+SPACE(1)----2------此处填空 Y=Y+1 ENDDO ?----3----此处填空 X=X+1 ENDDO SET TALK ON 5、给定程序的功能是: 根据输入的数据, 计算不大于该数的所有奇数累加和。 填空要求：程序中共有三个填空，请在“---n---”处填空（注意：不能删除“此处填空”，以便于检查），并调试运行。不得增加或删减程序行。 SET TALK OFF CLEAR YN=Y DO WHILE UPPER(YN)=Y 或者 LOWER(YN)=y---1----此处填空 INPUT 请输入两位以内的正整数： TO N STORE 0 TO X,Y DO WHILE XN X=X+1 IF INT(X/2)X/2---2-----此处填空 Y=Y+X ENDIF ENDDO ? 不大于该数的奇数累加和=+STR(Y,4) WAIT 或者 INPUT 或者 ACCEPT---3---此处填空继续计算否？(Y/N) TO YN ENDDO ? 再见！ SET TALK ON 6、给定程序的功能是: 根据输入的数据，判断该数是否为偶数,可以循环输入。 填空要求：程序中共有三个填空，请在“---n---”处填空（注意：不能删除“此处填空”，以便于检查），并调