Agorithme- balayage successif

[Vans1]

On souhaite créer un algorithme qui permet de déterminer les décimales successives des solutions de f(x)=0

1) Quelle condition doivent vérifier deux images successives tableau de valeur pour que leurs antécédents encadrent la solution de f(x)=0?
2) Ecrire un algorithme qui permet de trouver l'arrondi par défaut à 10^-8 près de la solution.
3) Le faire fonctionner et donner votre proposition (penser à vérifier#. Vous pouvez l'écrire en français ou avec le vocabulaire de votre calculatrice ou encore avec algobox^


Mes réponses:
1- Il faudrait que le fonction change de signe donc que les deux images successives du tableau soient de signe opposés^ C'est-à-dire que leur produit soit négatif^
2- VARIABLES
a EST_DU_TYPE NOMBRE
p EST_DU_TYPE NOMBRE
x EST_DU_TYPE NOMBRE
n EST_DU_TYPE NOMBRE

DEBUT_ALGORITHME
LIRE a
LIRE p
LIRE n
POUR n ALLANT_DE 0 A 8

DEBUT_POUR
p PREND_LA_VALEUR p/pow#10,n#
x PREND_LA_VALEUR a
TANT_QUE #F1#x#*F1#x+p#>0# FAIRE
DEBUT_TANT_QUE
x PREND_LA_VALEUR x+p
FIN_TANT_QUE
AFFICHER x
AFFICHER " < solution <="
AFFICHERCALCUL x+p
a PREND_LA_VALEUR x
n PREND_LA_VALEUR 0

FIN_POUR
FIN_ALGORITHME
A la fin n reprend la valeur zero afin d'obenir la décimale suivante car après 0, il faut que n reste à 1


Pour la question 1 ça va mais je bloque sur la 2 et la 3. Je sais qu'il s'agit d'un balayage successif mais comment la programmer?
On doit avoir pour cet algorithme :
une boucle qui essaye les valeurs par pas de p
contenue dans une boucle qui divise p par 10
cette dernière boucle, la plus externe, sur p, s'arrêtant à la précision demandée . Corrigez moi svp.

[zygomatique]

salut

Code: Tout sélectionner

Var   a : Real
      m, n, p : Integer

Begin
Read m, a
p = 1
n = 0
While n < m
     While f(a) * f(a + p) > 0
          a = a + p
     p = p/10
     n = n + 1
Write a

[chan79]

salut
Algobox arrive à le faire.
Un exemple avec une fonction croissante sur [0;1] qui s'annule sur cet intervalle: f(x)=x³+3x²-1
Ca doit pouvoir s'améliorer largement (pas le temps ce soir)

[Vans1]

VARIABLES
p EST_DU_TYPE NOMBRE
x EST_DU_TYPE NOMBRE
n EST_DU_TYPE NOMBRE
k EST_DU_TYPE NOMBRE
DEBUT_ALGORITHME
AFFICHER "valeur initiale de x "
LIRE x
AFFICHER "pas initial "
LIRE p
AFFICHER "nombre de chiffres après la virgule"
LIRE n


POUR k ALLANT_DE 0 A n
DEBUT_POUR
TANT_QUE (F1(x)*F1(x+p)>0) FAIRE
DEBUT_TANT_QUE
x PREND_LA_VALEUR x+p
FIN_TANT_QUE

AFFICHER x
AFFICHER " < solution <="
AFFICHERCALCUL* x+p
p PREND_LA_VALEUR p/10
FIN_POUR
FIN_ALGORITHME
Voilà ce que j'ai trouvé, cela répond-il à la consigne?

[Vans1]

En tout cas merci de votre aide