Subversion Repositories wimsdev

!set methtit=ÒýÈëºã²»µÈʽ

!set methenv=ZZ QQ RR

!set methparmtype=number, choice 4, number

!set methhelp=´Ë·½·¨ÒýÈëÒ»¸ö(ÊýÖµ)ºã²»µÈʽµ½¼ÙÉèÖÐ.

!if $wims_read_parm iswordof form check

 !goto $wims_read_parm

!endif

!exit

:form

 ÒýÈëºã²»µÈʽ

 <input size=12 name=methparm1 value="$methparm1">

 !formselect methparm2 from 1 to 4 prompt <,>,<=,>=

 <input size=12 name=methparm3 value="$methparm3">

!exit

:check

 sign=!item $methparm2 of <,>,<=,>=

 !read deduc/sub/checkineq $methparm1,$sign,$methparm3

 !if $out!=true

  !if $out=false

   error=ÄãµÄ²»µÈʽ²»¶Ô!

   !advance penalty

  !else

   error=unjustified

  !endif

  !exit

 !endif

 newobject0=$methparm1 $sign $methparm3

 oldobject=0

 methexp=ºã²»µÈʽ

!exit