{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 265 "" 0 1 0 0 0 0 1 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 266 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Tim es" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 6 6 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 1 3 1 } 1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE " " -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 256 19 "Correction du Tp 01" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{SECT 0 {PARA 3 "" 0 " " {TEXT 257 37 "Exercice 1 : Correction de programme " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "modifie1 := proc(a)\n \n if a * a + 3 * a - 1 < 0 then\n a := 2 * a;\n fi;\n\n RETURN(a);\n\nen d;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)modifie1Gf*6#%\"aG6\"F(F(C$@$ 2,&*$)9$\"\"#\"\"\"F1*&\"\"$F1F/F1F1F1>F/,$*&F0F1F/F1F1-%'RETURNG6#F/F (F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 136 "modifie2 := proc( a,b)\n \n if a < 2 * b and b / 2 < a then\n a := a + 1;\n e lse\n b := b + 5;\n fi;\n\n RETURN(a + b);\n\nend;" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 165 "L'\351x\351cut ion de ces deux programmes n'apportera pas grand chose car la version \+ de Maple utilis\351e impose la non modification des valeurs des param \350tres d'une fonction." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%)modifie2Gf*6$%\"aG%\"bG6\"F)F)C$@%329$,$*&\" \"#\"\"\"9%F2F22,$*&#F2F1F2F3F2F2F.>F.,&F.F2F2F2>F3,&F3F2\"\"&F2-%'RET URNG6#,&F.F2F3F2F)F)F)" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 181 "Attent ion en maple, il n'est pas possible de modifier la valeur d'un param \350tre d'une fonction. Il faut donc modifier le programme pour qu'il \+ produise ce qu'on d\351sirait initialement." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "modifie1 := proc(a)\n \n if a * a + 3 * a - 1 < 0 then\n RETURN(2 * a);\n else\n RETURN(a);\n fi;\nen d;\n " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)modifie1Gf*6#%\"aG6\"F(F (@%2,&*$)9$\"\"#\"\"\"F0*&\"\"$F0F.F0F0F0-%'RETURNG6#,$*&F/F0F.F0F0-F4 6#F.F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "modifie1(10); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "modifie1(0.1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\" \"#!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 130 "modifie2 := pr oc(a,b)\n \n if a < 2 * b and b / 2 < a then\n RETURN(a + b + 1);\n else\n RETURN(a + b + 5);\n fi;\nend;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "modifie2(2, 5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)modifie2Gf*6$%\"aG%\"bG6\"F)F)@%329$,$*&\"\"#\"\"\"9%F1F12,$*&#F 1F0F1F2F1F1F--%'RETURNG6#,(F-F1F2F1F1F1-F86#,(F-F1F2F1\"\"&F1F)F)F)" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "modifie2(1, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\" \"$" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 30 "Exercice 2 : Trio de var iables" }}{EXCHG {PARA 0 "" 0 "" {TEXT 258 47 "a) Exemple de permutati on correcte de valeurs. " }}{PARA 0 "" 0 "" {TEXT -1 181 "Encore une f ois, on ne peut pas modifier les valeurs des param\350tres des fonctio n en maple, il faut donc d'abord recopier (pour faire l'exercice) ces \+ valeurs dans d'autres variables." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 276 "permute := proc(a,b,c)\n local a1,b1,c1,tmp;\n\n a1 := a;\n \+ b1 := b;\n c1 := c;\n printf(\"Initialement a =%f, b =%f, c =%f\\ n\", a1, b1, c1);\n\n tmp := a1;\n a1 := b1;\n b1 := c1;\n c 1 := tmp;\n\n printf(\"Ensuite a =%f, b =%f, c =%f\\n\", a1, b 1, c1);\n\nend; \n " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(permuteG f*6%%\"aG%\"bG%\"cG6&%#a1G%#b1G%#c1G%$tmpG6\"F/C+>8$9$>8%9%>8&9&-%'pri ntfG6&QBInitialement~a~=%f,~b~=%f,~c~=%f|+F/F2F5F8>8'F2>F2F5>F5F8>F8F? -F;6&QBEnsuite~~~~~~a~=%f,~b~=%f,~c~=%f|+F/F2F5F8F/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "permute(2, 5, 13);" }}{PARA 6 "" 1 "" {TEXT -1 51 "Initialement a =2.000000, b =5.000000, c =13.000000" } }{PARA 6 "" 1 "" {TEXT -1 51 "Ensuite a =5.000000, b =13.000000, \+ c =2.000000" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 " " {TEXT 259 93 "b) Fonction qui prend en entr\351e trois valeurs et re nd en sortie la plus grande d'entre elles." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 208 "maximum := proc(a,b,c)\n local max; # Variable de \+ stockage de la plus grande valeur\n\n max := a; \n if b > max then \n max := b;\n fi;\n if c > max then \n max := c;\n fi ;\n\n RETURN (max);\n\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(ma ximumGf*6%%\"aG%\"bG%\"cG6#%$maxG6\"F,C&>8$9$@$2F/9%>F/F3@$2F/9&>F/F7- %'RETURNG6#F/F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "maxi mum(4, 17, 12);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#<" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 23 "Exercice 3 : M\352me signe" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "signe1 := proc(f,a,b) \n RETURN (evalb(f(a) * f(b) >= 0)); \nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %'signe1Gf*6%%\"fG%\"aG%\"bG6\"F*F*-%'RETURNG6#-%&evalbG6#1\"\"!*&-9$6 #9%\"\"\"-F56#9&F8F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "f := x -> 3 * x - 1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\" xG6\"6$%)operatorG%&arrowGF(,&*&\"\"$\"\"\"9$F/F/F/!\"\"F(F(F(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "signe1(f, 3, 0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 257 "signe2 := proc(f,a,b) \n if evalb(f(a) >= 0) the n\n if evalb(f(b) >= 0) then\n RETURN(true);\n else\n \+ RETURN(false);\n fi;\n else\n if evalb(f(b) <= 0) then\n RETURN(true);\n else\n RETURN(false);\n fi;\n f i; \nend;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'signe2Gf*6%%\"fG%\"aG%\"bG6\"F*F*@%-%&evalbG6#1\"\"! -9$6#9%@%-F-6#1F0-F26#9&-%'RETURNG6#%%trueG-F=6#%&falseG@%-F-6#1F9F0F< F@F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "signe2(f, 3, 0) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 118 "signe3 := proc(f,a,b) \n if evalb(f(a) * f( b) >= 0) then\n RETURN(true);\n else\n RETURN(false);\n fi ;\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'signe3Gf*6%%\"fG%\"aG%\" bG6\"F*F*@%-%&evalbG6#1\"\"!*&-9$6#9%\"\"\"-F36#9&F6-%'RETURNG6#%%true G-F;6#%&falseGF*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "sig ne3(f, 0, 3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 21 "Exercice 4 : OU et ET" }}{EXCHG {PARA 0 "" 0 "" {TEXT 263 58 "Voyons le comportement des diff\351rents op \351rateurs bool\351ens." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "X:= 5;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"XG\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "A := evalb(X > 12); # Est ce que X > 12 ?" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG%&falseG" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 39 "B := evalb(X > 2); # Est ce que X > 2 ?" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "C := evalb(X < 6); # Est ce que X < 6 ?" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CG%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "(A and B) or C;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A and (B or C );" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# %&falseG" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 25 "Exercice 5 : Reprog raphie" }}{EXCHG {PARA 0 "" 0 "" {TEXT 264 37 "Fonction prenant en ent r\351e un nombre " }{TEXT 265 1 "x" }{TEXT 266 64 " de photocopies et \+ donnant en sortie le prix de ces photocopies." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 197 "repro := proc(n)\n if n <= 10 then\n RETURN( 0.1 * n);\n else\n if n <= 20 then\n RETURN( 1.0 + (n - 10 ) * 0.09);\n else\n RETURN( 1.9 + (n - 20) * 0.08);\n fi ;\n fi;\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&reproGf*6#%\"nG6 \"F(F(@%19$\"#5-%'RETURNG6#,$*&$\"\"\"!\"\"F3F+F3F3@%1F+\"#?-F.6#,&$F, !\"#F3*&$\"\"*F " 0 "" {MPLTEXT 1 0 10 "repro(15);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"$X\"!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "repro(5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"\"&!\"\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "repro(30);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"$q#!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 39 "Exercice 6 : indice de masse corporelle" }}{PARA 0 "" 0 " " {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }{MPLTEXT 1 0 0 "" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 279 "indice := proc(t, m)\n loc al i;\n\n i := m / (t * t);\n\n if i < 20 then\n printf(\" en des sous \");\n elif i < 25 then\n printf(\" normale \");\n elif i < \+ 30 then \n printf(\" surcharge \");\n elif i < 40 then\n printf ( \" adiposit\351 \");\n else\n printf(\" ob\351sit\351 \");\n fi ;\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'indiceGf*6$%\"tG%\"mG6#% \"iG6\"F+C$>8$*&9%\"\"\"9$!\"#@+2F.\"#?-%'printfG6#Q-~en~dessous~F+2F. \"#D-F86#Q*~normale~F+2F.\"#I-F86#Q,~surcharge~F+2F.\"#S-F86#Q,~adipos it|dy~F+-F86#Q*~ob|dysit|dy~F+F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "indice(1.80, 75);" }}{PARA 6 "" 1 "" {TEXT -1 9 " nor male " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "1" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }