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 inégalité par un nombre non-nul
1
!set methtit2=Dividir una desigualdad por un número distinto de cero
2
!set methtit=Diviser une inégalité par un nombre
2
!set methtit=Dividir una desigualdad por un número
3
!set methenv=ZZ QQ RR
3
!set methenv=ZZ QQ RR
4
!set methparmtype=number,parm inequality
4
!set methparmtype=number,parm inequality
5
!set methhelp=Cette méthode transforme une inégalité du style \(A > B)\
5
!set methhelp=Este método transforma una desigualdad del estilo \(A > B)\
6
 en l'inégalité équivalente \(A/n > B/n) (ou \(A/n < B/n)),  \(n) est un nombre\
6
  en la desigualdad equivalente \(A/n > B/n) (o \(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'inégalité
15
Dividir la desigualdad
16
 !read deduc/methparm.phtml 2
16
!read deduc/methparm.phtml 2
17
 par un nombre
17
$ entre 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=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
 !if $methparm1<0
37
!if $methparm1<0
38
  newsign=!translate internal <> to >< in $sign
38
  newsign=!translate internal <> to >< in $sign
39
 !else
39
!else
40
  newsign=$sign
40
  newsign=$sign
41
 !endif
41
!endif
42
 newobject2=$newleft $newsign $newright
42
newobject2=$newleft $newsign $newright
43
 oldobject=2
43
oldobject=2
44
 
44
 
45
 contextlist=$ct_Onlywhen le diviseur est non-nul,\
45
contextlist=$ct_Onlywhen el divisor es distinto de cero,\
46
	$ct_Onlywhen le diviseur est positif,\
46
	$ct_Onlywhen el divisor es positivo,\
47
	$ct_Always,\
47
	$ct_Always,\
48
	$ct_Onlywhen les deux côtés sont positifs,\
48
	$ct_Onlywhen ambos lados son positivos,\
49
	$ct_Onlywhen les deux côtés sont de même signe,\
49
	$ct_Onlywhen ambos lados tienen el mismo signo,\
50
	$ct_Onlywhen l'inégalité est stricte
50
	$ct_Onlywhen la desigualdad es estricta
51
 
51
 
52
 badsign=!translate internal <> to >< in $newsign
52
badsign=!translate internal <> to >< in $newsign
53
 resultlist=$newobject2,\
53
 resultlist=$newobject2,\
54
	$newright $newsign $newleft,\
54
	$newright $newsign $newleft,\
55
	$newleft $badsign $newright
55
	$newleft $badsign $newright
56
 
56
 
57
!exit
57
!exit
58
 
-