程序填空[1]

* \祖国伟大\。

*-------------------------------------------------------

*注意：不可以增加或删除程序行，也不可以更改程序的结构。 *-------------------------------------------------------

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()