programme informatique pour résoudre f(x)=0 (langage pascal)

[inviteb71d221c]

Bonjour
je dois faire un programme en language pascal pour résoudre f(x)=0 sur un intervalle [a;b] donnée par l'utilisateur, où f est une fonction monotone sur cet intervalle. Voila le texte de mon programme mais il ne fonctionne pas et je ne comprend pas pourquoi.

PROGRAM resolvdicho;

VAR
a,b,m,c,d:real;

FUNCTION f (x:real):real;
VAR
y:real;
BEGIN
y:=x-2;
f:=y;
END;

FUNCTION dichotomie (a,b:real):real;
VAR
Inf,Sup:real;
m:real;
BEGIN
Inf:=a;
Sup:=b;
REPEAT
m:=(Inf+Sup)/2;
IF f(m)*f(a)<0 THEN Sup:=m
ELSE Inf:=m;
Until Abs(f(Sup)-f(Inf))<0.00001;

END;

BEGIN
writeln('Entrez la borne inf‚rieure a : ');readln(a);
writeln('Entrez la borne sup‚rieure b : ');readln(b);

If f(b)*f(a)>0 then writeln('Il n''y a pas de solution.')
Else if f(a)*f(b)=0 then
IF f(a)=f(b) THEN writeln('La solution est [',a,';',b,'].')
ELSE IF f(a)=0 THEN writeln('La solution est ',a,'.')
ELSE IF f(b)=0 THEN writeln('La solution est ',b,'.')
else writeln('marche pas')
Else Begin m:=dichotomie(a,b);
writeln('La solution est : ',m,'.');
End;
END

.


Cordialement.
MG
-----

[invitee840409b]

Bonjour,

Qu'est-ce qui ne fonctionne pas? La compilation? La résolution?
Dans le deuxième cas, quelle solution donne le programme?

Cordialement,
ProgVal

[JPL]

J'ai corrigé le titre : language c'est de l'anglais !

[invite2d7144a7]

Bonjour,

Sans éplucher le code, la fonction dichotomie ne renvoie pas de résultat.

[A voir en vidéo sur Futura]

[inviteb71d221c]

le problème est dans la solution, par exemple sur l'intervalle [0;4], il nous donnait comme solution 3.48 et sur l'intervalle [-10;10] il nous donnait 13.9 :s
donc je comprend pas vraiment comment il peut trouver ces valeurs.
Cordialement

[invitee840409b]

Sans éplucher le code, la fonction dichotomie ne renvoie pas de résultat.

Or, tu l'appelles comme si elle en renvoyait un.

[inviteb71d221c]

ah oui exacte !
merci beaucoup , cela fonctionne à présent =)