Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 16321
Line 1... Line 1...
1
!set methtit2=Diviser une équation par un nombre non-nul
1
!set methtit2=Dividir una ecuación por un número distinto de cero
2
!set methtit=Diviser une équation par un nombre
2
!set methtit=Dividir una ecuación por un número
3
!set methenv=ZZ QQ RR CC
3
!set methenv=ZZ QQ RR CC
4
!set methparmtype=number,parm equation
4
!set methparmtype=number,parm equation
5
!set methhelp=Cette méthode transforme une équation \(A = B)\
5
!set methhelp=Este método transforma una ecuación \(A = B)\
6
 en l'équation équivalente \(A/n = B/n),  \(n) est un nombre\
6
 en la ecuación equivalente \(A/n = B/n), donde \(n) es un número\
7
 non-nul.
7
 distinto de cero.
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
 Dividir la ecuacion
16
 !read deduc/methparm.phtml 2
16
 !read deduc/methparm.phtml 2
17
 par un nombre
17
por un número
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=¡División por cero!
25
  !advance penalty
25
  !advance penalty
26
  !exit
26
  !exit
27
 !endif
27
!endif
28
 methexp=Diviser \($left $sign $right) par \($methparm1)
28
methexp=Dividir \($left $sign $right) entre \($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 el divisor no es nulo,\
42
	$ct_Onlywhen le diviseur est positif,\
42
	$ct_Onlywhen el divisor es positivo,\
43
	$ct_Always,\
43
	$ct_Always,\
44
	$ct_Onlywhen les deux côtés sont positifs,\
44
	$ct_Onlywhen ambos lados son positivos,\
45
	$ct_Onlywhen les deux côtés sont de même signe
45
	$ct_Onlywhen ambos lados tienen el mismo signo
46
 
-
 
47
!exit
-
 
48
 
46
 
-
 
47
!exit