الرجاء المساعدة في tp informatique في methode de dichotomie

[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 ', c:1:9) ;
WRITHLN('appuyer sur entrer pour terminer');
repert unil key pressed;
end;
END.

[sam_ron]

اخدم ب الماتلاب ساهلة

[bentchikou88]

function [p,niter]=bisec(f,a,b,tol,n0)
i=1;
fa=feval(f,a)
while i<=n0
p=a+(b-a)/2;
fp=feval(f,p)
if fp==0|(b-a)/2<tol
niter=i
return
end
i=i+1
if fa*fp>0
a=p
fa=fp
else
b=p;
end
end
disp('n0 est deppass?, echec de la procedure')