Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 16117
Line 5... Line 5...
5 
!set methhelp=Cette méthode transforme une équation \(A = B)\
 5 
!set methhelp=Cette méthode transforme une équation \(A = B)\
6 
 en l'équation équivalente \(A/n = B/n), où \(n) est un nombre\
 6 
 en l'équation équivalente \(A/n = B/n), où \(n) est un nombre\
7 
 non-nul.
 7 
 non-nul.
8 
 
 8 
 
9 
!if $wims_read_parm iswordof form check
 9 
!if $wims_read_parm iswordof form check
10 
 !goto $wims_read_parm
 10 
  !goto $wims_read_parm
11 
!endif
 11 
!endif
12 
 
 12 
 
13 
!exit
 13 
!exit
14 
:form
 14 
:form
15 
 Diviser l'équation
 15 
 Diviser l'équation
Line 17... Line 17...
17 
 par un nombre
 17 
 par un nombre
18 
 !read deduc/methparm.phtml 1,10
 18 
 !read deduc/methparm.phtml 1,10
19 
 
 19 
 
20 
!exit
 20 
!exit
21 
:check
 21 
:check
22 
 !distribute items $methparmobj2 into data,left,sign,right
 22 
!distribute items $methparmobj2 into data,left,sign,right
23 
 !ifval $methparm1=0
 23 
!ifval $methparm1=0
24 
  error=Division par zéro !
 24 
  error=Division par zéro !
25 
  !advance penalty
 25 
  !advance penalty
26 
  !exit
 26 
  !exit
27 
 !endif
 27 
!endif
28 
 methexp=Diviser \($left $sign $right) par \($methparm1)
 28 
methexp=Diviser \($left $sign $right) par \($methparm1)
29 
 
 29 
 
30 
 !read deduc/sub/simplify ($left) / ($methparm1)\
 30 
!read deduc/sub/simplify ($left) / ($methparm1)\
31 
	($right) / ($methparm1)
 31 
	($right) / ($methparm1)
32 
 !distribute lines $out into newleft, newright
 32 
!distribute lines $out into newleft, newright
33 
 !if $newleft=$empty or $newright=$empty
 33 
!if $newleft=$empty or $newright=$empty
34 
  error=bad_data
 34 
  error=bad_data
35 
  !exit
 35 
  !exit
36 
 !endif
 36 
!endif
37 
 newsign=$sign
 37 
newsign=$sign
38 
 newobject2=$newleft $newsign $newright
 38 
newobject2=$newleft $newsign $newright
39 
 oldobject=2
 39 
oldobject=2
40 
 
 40 
 
41 
 contextlist=$ct_Onlywhen le diviseur est non-nul,\
 41 
contextlist=$ct_Onlywhen le diviseur est non-nul,\
42 
	$ct_Onlywhen le diviseur est positif,\
 42 
	$ct_Onlywhen le diviseur est positif,\
43 
	$ct_Always,\
 43 
	$ct_Always,\
44 
	$ct_Onlywhen les deux côtés sont positifs,\
 44 
	$ct_Onlywhen les deux côtés sont positifs,\
45 
	$ct_Onlywhen les deux côtés sont de même signe
 45 
	$ct_Onlywhen les deux côtés sont de même signe
46
- 
 
47 
!exit
 - 
 
48 
 
 46 
 
- 
 
 47 
!exit