problème de programmation

[titi]

bonjour,
je dois fare un petit programme et c'est lon premier. Je tape le programme dans VBA et il me met des messages d'erreur. Voici l'algoryhme du programme.
Est ce que quelqu'un pourrait m'aider.
Merci

∆=b²-4ac
un=-b/2a
si ∆>0
alors
afficher '2 racines réelles'
deux= ∆/2a
r1=un+deux
r2=un-deux
sinon si ∆=0
alors
afficher '1 racine réelle'
sinon
afficher'2 racines complexes'
deux= -∆/2
r1=un+ideux
r2=un-ideux
si ∆=0
alors
afficher'r=',r1
sinon
afficher 'r1=',r1
afficher 'r2=',r2


voila et encore merci

 

[Abel]

Bonsoir titi,

C'est marrant, cette fonction me dit quelque chose. Mais, fouuuiaaaa !
Que c'est loin tout ça ! Arf !

Ci-joint un élément de réponse.

Je n'ai pas l'élément de calcul de la racine si d=0 (ou je n'ai pas saisi l'algorithme).

Les deux racines réelles sont différentes, c'est normal ?

En espérant que cela te dépanne.

Abel

[file name=Exemple_titi.zip size=10670]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_titi.zip[/file]

 

[titi]

je te remercie beaucoup ca ma bien aider
C'est pour résoudre les équations du second degré
a+

 

[dg62]

Bonjour


delta = b²-4ac
si delta > 0


x1= -b+racine(delta)/2a

x2= -b-racine(delta)/2a

Message édité par: dg62, à: 16/03/2005 14:18