* \祖国伟大\。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。 *-------------------------------------------------------
STORE \伟大祖国\CLEA
***********FOUND********** N=0
DO WHILE N<8 ?SUBS(XY,N,2) N=N+2 ENDDO ?
***********FOUND********** ??SUBS(XY,4,4) ??SUBS(XY,1,4) n=1
??subs(xy,5,4)
*------------------------------------------------------- *【程序改错】
*-------------------------------------------------------
*题目:计算并在屏幕上显示出\九九乘法表\，显示格式如下
*1×1＝1
*2×1＝2 2×2＝4
*3×1＝3 3×2＝6 3×3＝9 *… …
*9×1＝9 ? 9×8＝72 9×9＝81
*程序中共有2个错误，请修改下面一条语句的错误，并调试运行。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- X=1
DO WHILE X<=9 Y=1
***********FOUND**********
DO WHILE Y<=9 ??STR(X,1)+\\,2)+\Y=Y+1 ENDDO
***********FOUND********** disp X=X+1 ENDDO
Do while y<=x ?
*------------------------------------------------------- *【程序改错】
*-------------------------------------------------------
*题目：在XSDB.DBF表中统计法律和中文两个系的总人数和奖学金总额。
*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。 *-------------------------------------------------------
USE XSDB
STORE 0 TO R,S DO WHILE .T.
***********FOUND**********
IF 系别=\法律\系别=\中文\STORE S+奖学金 TO S R=R+1 ENDIF SKIP
***********FOUND********** IF .NOT.FOUN() EXIT ENDIF ENDDO ？S, R USE
IF 系别=\法律\系别=\中文\If eof()
------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：从键盘输入三角形的边长，输入边长满足两边之和大于 * 第三边，且为正值。计算并输出三角形的面积S；若不满
* 足以上条件，显示输出\不能构成三角形\。 * 其中面积公式请参看(图1)。 * 将面积值存入变量AREA中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON INPUT TO A INPUT TO B INPUT TO C
? \三角形面积为\YZJ()
SET TALK ON RETURN
FUNCTION FUN(a,b,c) AREA=-1
**********Program********** ---------------------- s=(a+b+c)/2
if a+b>c and a+c>b and b+c>0 and a>0 and b>0 and c>0 area=sqrt(s*(s-a)*(s-b)*(s-c)) else
AREA=-1 endif
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：编程求出并显示 3!+4!+5! 的值。 * 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON OUT=-1
**********Program**********
********** End ********** DO YZJ2 WITH OUT
---------------------- S=0
For I=3 to 5 p=1 For j=1 to I p=p*j endfor s=s+p endfor
?\！+4！+5！的值是:\ O=S
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：编程求P=1x(1x2)x(1x2x3)x ? x(1x2x ? xN)，N由键盘输入。 * 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
INPUT \请任意输入一个数字:\?FUN(N) YZJ()