[seddik1000]

السلام عليكم
ممكن أخواني مساعدتي في حل l'organigramme في méthode de dichotomie
PROGRAM dichotomie ;
VAR eps, a, b, c : REAL;
n:integer;
FUNCTION f (x :REAL) : REAL;
BEGIN
f :=x*exp(x)-1 ;
END;
BEGIN
REPEAT
WRITELN('Entrer la valeur de epsilon ') ; READLN(eps) ;
UNTIL eps>0 ;
REPEAT
WRITELN('Entrer la valeur de a') ; READLN(a) ;
WRITELN('Entrer la valeur de b') ; READLN(b) ;
UNTIL (f(a)*f(b) <= 0) ;
n:=trune((ln((b-a)/esp))/ln(2))+1;
WRITHLN('le nombre d'ileration est egal',n);
REPEAT
c :=(a+b)/2 ;
IF f(b)*f(c)<=0 THEN a :=c ELSE b :=c ;
WRITHLN('x':= ',c:1;9);
UNTIL abs(b-a)<=eps ;
WRITELN('Une valeur approchee de la solution 'a ',eps, 'pres est ', c9) ;
WRITHLN('appuyer sur entrer pour terminer');
repert unil key pressed;
end;
END.