Subversion Repositories wimsdev

Rev

Rev 5763 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5763 Rev 17234
Line 8... Line 8...
8
!endif
8
!endif
9
 
9
 
10
!exit
10
!exit
11
:form
11
:form
12
 ÒýÈëºã²»µÈʽ
12
 ÒýÈëºã²»µÈʽ
13
 <input size=12 name=methparm1 value="$methparm1"/>
13
 <input size=12 name=methparm1 value="$methparm1">
14
 !formselect methparm2 from 1 to 4 prompt <,>,<=,>=
14
 !formselect methparm2 from 1 to 4 prompt <,>,<=,>=
15
 <input size=12 name=methparm3 value="$methparm3"/>
15
 <input size=12 name=methparm3 value="$methparm3">
16
!exit
16
!exit
17
:check
17
:check
18
 sign=!item $methparm2 of <,>,<=,>=
18
 sign=!item $methparm2 of <,>,<=,>=
19
 !read deduc/sub/checkineq $methparm1,$sign,$methparm3
19
 !read deduc/sub/checkineq $methparm1,$sign,$methparm3
20
 !if $out!=true
20
 !if $out!=true