nouveau     aide     guide     brouillon     clavier     écran     imprimer
Compléter un algorithme permettant de déterminer par dichotomie un encadrement d'amplitude inférieure ou égale à 10-1 de la solution de l'équation f(x)=k sur un intervalle sur lequel f est une fonction continue strictement monotone    ressource 4326
Soit f une fonction continue et strictement monotone sur l'intervalle [ 0 ; 1 ] prenant ses valeurs dans l'intervalle [ 3 ; 8 ] .
Complétez l'algorithme suivant afin qu'il détermine, par dichotomie, un encadrement d'amplitude inférieure ou égale à 10 - 1 de la solution de l'équation f ( x ) = 4 TagBox[InterpretationBox["\"4\"", 4, Rule[Editable, False]], Function[NumberForm[Slot[1], 1, Rule[ExponentFunction, Function[Null]], Rule[NumberPoint, ","], Rule[DigitBlock, 3], Rule[NumberSeparator, " "]]]] sur l'intervalle [ 0 ; 1 ] :
            a 0
            b 1
 
            Tant que b-a > 0,1 TagBox[InterpretationBox["\"0,1\"", 0.100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001`100., Rule[AutoDelete, True]], Function[NumberForm[Slot[1], List[1, 1], Rule[ExponentFunction, Function[Null]], Rule[NumberPoint, ","], Rule[DigitBlock, 3], Rule[NumberSeparator, " "]]]]
                  m a + b 2
                     Si ( - 4 )  ×  ( TemplateBox[List["", RowBox[List["-", "4"]], "\")\"", "\"\[ThinSpace]\[Times]\[ThinSpace]\"", "\"(\""], "Row", Rule[DisplayFunction, Function[RowBox[List[Slot[1], "\[InvisibleSpace]", Slot[2], "\[InvisibleSpace]", Slot[3], "\[InvisibleSpace]", Slot[4], "\[InvisibleSpace]", Slot[5]]]]], Rule[InterpretationFunction, Function[RowBox[List["Row", "[", RowBox[List["{", RowBox[List[Slot[1], ",", Slot[2], ",", Slot[3], ",", Slot[4], ",", Slot[5]]], "}"]], "]"]]]]] - 4 ) TemplateBox[List["", RowBox[List["-", "4"]], "\")\""], "Row", Rule[DisplayFunction, Function[RowBox[List[Slot[1], "\[InvisibleSpace]", Slot[2], "\[InvisibleSpace]", Slot[3]]]]], Rule[InterpretationFunction, Function[RowBox[List["Row", "[", RowBox[List["{", RowBox[List[Slot[1], ",", Slot[2], ",", Slot[3]]], "}"]], "]"]]]]] < 0
                            Alors b m
                            Sinon a m
                     Fin de Si
            Fin de Tant que