³ÌÐòÌî¿Õ[1] ÏÂÔØ±¾ÎÄ

hs=¡¾?¡¿

***********SPACE********** if hb*3+hm*2+¡¾?¡¿=100

? \´óÂíÓУº\ÖÐÂíÓУº\СÂíÓУº\ endif endf endf

set talk on canc hb

100-hb-hm hs/2

*¡¾³ÌÐòÌî¿Õ¡¿

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

*ÌâÄ¿: ´Ó¶ÁÈëµÄÕûÊýÊý¾ÝÖУ¬Í³¼Æ´óÓÚÁãµÄÕûÊý¸öÊý * ºÍСÓÚÁãµÄÕûÊý¸öÊý¡£ÓÃÊäÈëÁãÀ´½áÊøÊäÈ룬 * ³ÌÐòÖÐÓñäÁ¿iͳ¼Æ´óÓÚÁãµÄÕûÊý¸öÊý£¬Óñä * Á¿jͳ¼ÆÐ¡ÓÚÁãµÄÕûÊý¸öÊý¡£

* ÇëÔÚ¡¾¡¿´¦ÌíÉÏÊʵ±µÄÄÚÈÝ£¬Ê¹³ÌÐòÍêÕû¡£

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

SET TALK OFF clear

input \ÊäÈëÕûÊý£º\

***********SPACE********** store ¡¾?¡¿ to i,j

***********SPACE********** do while ¡¾?¡¿ if n>0 i=i+1 endif if N<0 j=j+1 endif

input \ÊäÈëÕûÊý£º\

***********SPACE********** ¡¾?¡¿ ? \? \set talk on retu 0

n<>0 enddo

*------------------------------------------------------- *¡¾³ÌÐòÌî¿Õ¡¿

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

*ÌâÄ¿: ½«×Öĸת»»³ÉÃÜÂ룬ת»»¹æÔòÊǽ«µ±Ç°×Öĸ±ä³ÉÆäºó

* µÄµÚËĸö×Öĸ£¬µ«W±ä³ÉA¡¢X±ä³ÉB¡¢Y±ä³ÉC¡¢Z±ä³ÉD¡£ * Сд×ÖĸµÄת»»¹æÔòͬÑù¡£

* ÇëÔÚ¡¾¡¿´¦ÌíÉÏÊʵ±µÄÄÚÈÝ£¬Ê¹³ÌÐòÍêÕû¡£

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

SET TALK OFF clear

accept \ÇëÊäÈëÒ»¸ö×Ö·û´®£º\? pp p=\

***********SPACE********** for i=1 to ¡¾?¡¿ m=asc(subs(pp,i,1))

***********SPACE**********

if m<=ASC(\¡¾?¡¿ m>=asc(\ do case

case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ otherwise

***********SPACE********** ¡¾?¡¿ endcase

p=p+chr(m) endif endfor ? p

set talk on canc len(pp) or

m=m+4

*------------------------------------------------------- *¡¾³ÌÐòÌî¿Õ¡¿

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

*ÌâÄ¿: ÒÑÖªX¡¢Y¡¢Z·Ö±ð±íʾ0~9Öв»Í¬µÄÊý×Ö£¬±à³ÌÇó³öʹËãʽ

* XXXX+YYYY+ZZZZ=YXXXZ³ÉÁ¢Ê±X¡¢Y¡¢ZµÄÖµ£¬²¢ÒªÇó´òÓ¡¸Ã * Ëãʽ¡£

* ÇëÔÚ¡¾¡¿´¦ÌíÉÏÊʵ±µÄÄÚÈÝ£¬Ê¹³ÌÐòÍêÕû¡£

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

SET TALK OFF for x=0 to 9 for y=0 to 9

***********SPACE********** if ¡¾?¡¿ for z=0 to 9

if z!=x and z!=y

***********SPACE********** if 1111*(x+y+z)=10000*y+ ¡¾?¡¿ ? \

? 1111*x,'+',1111*y,'+',1111*z,'=',10000*y+1110*x+z endif endif

***********SPACE********** ¡¾?¡¿ endi endf endf

set talk on cancel y!=x

1110*x+z endfor

¡¾³ÌÐò¸Ä´í¡¿

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

*ÌâÄ¿£ºÔÚѧÉúÐÅÏ¢.DBFÖÐ,ʹÓÃSELECTÓï¾ä²éѯËùÓÐÅ®ÉúÖÐÈëѧ³É¼¨ *×î¸ßµÄÈýÃûͬѧµÄËùÓÐ×Ö¶ÎÐÅÏ¢.

*ѧÉúÐÅÏ¢.DBF(ѧºÅ,ÐÕÃû,ÐÔ±ð,°à¼¶ºÅ,³öÉúÈÕÆÚ,Èëѧ³É¼¨??£©

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

*×¢Ò⣺²»¿ÉÒÔÔö¼Ó»òɾ³ý³ÌÐòÐУ¬Ò²²»¿ÉÒÔ¸ü¸Ä³ÌÐòµÄ½á¹¹¡£ *-------------------------------------------------------

CLEAR

***********FOUND********** SELECT TOP 3 FROM ѧÉúÐÅÏ¢ ; ***********FOUND**********

WHERE ÐÔ±ð=Å® ORDER BY Èëѧ³É¼¨ Sele * top 3 from ѧÉúÐÅÏ¢;

Where ÐÔ±ð=¡°Å®¡± ORDER BY Èëѧ³É¼¨

*------------------------------------------------------- *¡¾³ÌÐò¸Ä´í¡¿

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

*ÌâÄ¿£ºÔÚѧÉúÐÅÏ¢.DBFºÍ°à¼¶±í.DBFÖÐ,ʹÓÃSELECTÓï¾äͳ¼Æ¸÷°à¼¶ *ÈËÊý,ÒªÇóÊä³ö°à¼¶ºÅ,°à¼¶Ãû³Æ,ÈËÊýµÈÐÅÏ¢.

*ѧÉúÐÅÏ¢.DBF(ѧºÅ,ÐÕÃû,ÐÔ±ð,°à¼¶ºÅ,³öÉúÈÕÆÚ,Èëѧ³É¼¨??£© *°à¼¶±í.DBF(°à¼¶ºÅ,°à¼¶Ãû³Æ,ËùÊôԺϵ)

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

*×¢Ò⣺²»¿ÉÒÔÔö¼Ó»òɾ³ý³ÌÐòÐУ¬Ò²²»¿ÉÒÔ¸ü¸Ä³ÌÐòµÄ½á¹¹¡£ *-------------------------------------------------------

***********FOUND**********

SELE °à¼¶ºÅ,°à¼¶Ãû³Æ,SUM(*) AS ÈËÊý FROM ѧÉúÐÅÏ¢,°à¼¶±í; ***********FOUND**********

WHERE ѧÉúÐÅÏ¢.ѧºÅ=°à¼¶±í.°à¼¶ºÅ ORDER BY °à¼¶ºÅ

SELE °à¼¶ºÅ, °à¼¶Ãû³Æ, count(*) as ÈËÊý from ѧÉúÐÅÏ¢ £¬°à¼¶±í£» Where ѧÉúÐÅÏ¢.°à¼¶ºÅ =°à¼¶±í.°à¼¶ºÅ group by °à¼¶ºÅ

¡¾³ÌÐò¸Ä´í¡¿

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

*ÌâÄ¿£ºÍ¨¹ý×Ö·û´®±äÁ¿²Ù×÷ÏÈÊúÏòÏÔʾ\ΰ´ó׿¹ú\£¬ÔÙºáÏòÏÔʾ