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)), où \(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 
 
 -