Subversion Repositories wimsdev

Rev

Rev 11567 | Rev 16209 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11567 Rev 16117
Line 9... Line 9...
9
 !goto $wims_read_parm
9
 !goto $wims_read_parm
10
!endif
10
!endif
11
 
11
 
12
!exit
12
!exit
13
:form
13
:form
14
 Séparer les cas suivant la vérité de l'inégalité <br/>
14
Séparer les cas suivant la vérité de l'inégalité <br/>
15
 !read deduc/methparm.phtml 1,10
15
!read deduc/methparm.phtml 1,10
16
 !formselect methparm2 from 1 to 4 prompt <,>,<=,>=
16
!formselect methparm2 from 1 to 4 prompt <,>,<=,>=
17
 !read deduc/methparm.phtml 3,10
17
!read deduc/methparm.phtml 3,10
18
!exit
18
!exit
19
:check
19
:check
20
 sign1=!item $methparm2 of <,>,<=,>=
20
sign1=!item $methparm2 of <,>,<=,>=
21
 sign2=!item $methparm2 of >=,<=,>,<
21
sign2=!item $methparm2 of >=,<=,>,<
22
 
22
 
23
 casesplit=$methparm1 $sign1 $methparm3\
23
casesplit=$methparm1 $sign1 $methparm3\
24
$methparm1 $sign2 $methparm3
24
  $methparm1 $sign2 $methparm3
25
 mt1=$methparm1 $sign1 $methparm3
25
mt1=$methparm1 $sign1 $methparm3
26
 mt2=$methparm1 $sign2 $methparm3
26
mt2=$methparm1 $sign2 $methparm3
27
 methexp=Séparer les cas \($mt1) et \($mt2)
27
methexp=Séparer les cas \($mt1) et \($mt2)
28
 
28
 
29
!exit
29
!exit