Méthode de l'analyse numérique en pascal

program ziouche_interface;
uses crt;
var xmin,xmax,pas,a,seuil,x0,x1,y:real;
s:integer;

function f(x0:real):real;
begin
f:=x0*x0*x0+2*x0+1;
end;
Function newt(x:real):real;
Begin
newt:=(2*x*x*x-1)/(3*x*x+2);
End;
Function lag(x:real):real;
Begin
lag:=(-x*x+x-1)/(x*x-x+3);
end;
Function pf(x:real):real;
Begin
pf:=(-x*x*x-1)/2;
End;
procedure entree;
begin
gotoxy(1,10);
textcolor(14);
write('Donner la valeur de xmin :');
readln(xmin);
write('Donner la valeur de xmax :');
readln(xmax);
write('Donner la valeur de seuil: ');
readln(seuil);
End;
procedure baly(a,seuil:real);
var y1,y2,xsuit:real;
begin
while a<xmax do
begin
y1:=f(a);
xsuit:=a+seuil;
y2:=f(xsuit);
if (y1*y2)<0 then
writeln('la solution entre ',a,' et ',xsuit);
a:=a+Seuil;
end;
textcolor(4);
writeln('voullez tapez la touche Entr pour choisir une autre methode');
end;
procedure dicho(a,b,seuil:real);
var mil:real;
begin
writeln ('la solution est dans l''intervelle ');
writeln('[',a,',',b,']');
while abs(b-a)>=seuil do
begin
mil:=(a+b)/2 ;
if (f(a)*f(mil))<=0 then
b:=mil
else a:=mil;
writeln('[',a,',',b,']');
textcolor(4);
writeln('voullez tapez la touche Entr pour choisir une autre methode');
end;
end;
Procedure Newton(x1,seuil:real);
Begin
x0:=x1;
while abs(x0-newt(x0))>=seuil do
Begin
y:=newt(x0);
x0:=y;
End;
writeln ('Valeur de solution est de: ',x0);
textcolor(4);
writeln('voullez tapez la touche Entr pour choisir une autre methode');
End;
Procedure Lagrange(x1,seuil:real);
Begin
x0:=x1;
while abs(x0-lag(x0))>=seuil do
Begin
y:=lag(x0);
x0:=y;
End;
writeln('Valeur de solution de: ',x0);
textcolor(4);
writeln('voullez tapez la touche Entr pour choisir une autre methode');
End;
Procedure Pointfixe(x1,seuil:real);
Begin
x0:=x1;
while abs(x0-pf(x0))>=seuil do
Begin
y:=pf(x0);
x0:=y;
End;
writeln ('Valeur de solution de : ',x0);
textcolor(4);
writeln('voullez tapez la touche Entr pour choisir une autre methode');
End;
procedure fausep(a,b,seuil:real);
var mil:real;
begin
writeln ('la solution est dans l intervale ');
writeln('[',a,',',b,']');
while abs(b-a)>=seuil do
begin
mil:=a-((f(a)/(f(b)-f(a)))*(b-a)) ;
if (f(a)*f(mil))<=0 then
b:=mil
else a:=mil;
writeln('[',a,',',b,']');
textcolor(4);
writeln('voullez tapez la touche Entr pour choisir une autre methode');
end;
end;
begin
repeat
clrscr;
gotoxy(28,2);
textcolor(10);
writeln('ZIOUCHE Abdelhak D0307010') ;
textcolor(30);
gotoxy(23,4);
writeln('le mini projet d"analyse Nemurique ');
textcolor(10);
gotoxy(15,6);
writeln('"le Recherche du solutions de l"equation :xü+2x+1"');
gotoxy(18,8);
textcolor(9);
writeln('********************************************');
gotoxy(18,9);
textcolor(2);
writeln('* Choisisez la methode que vous voulez: *');
gotoxy(18,10);
textcolor(1);
writeln('* -1- pour la methode de balayage *');
gotoxy(18,11);
textcolor(8);
writeln('* -2- pour la methode de DECHOTOMIE *');
gotoxy(18,12);
textcolor(3) ;
writeln('* -3- pour la methode de NEWTON *');
gotoxy(18,13);
textcolor(4) ;
writeln('* -4- pour la methode de point fixe *');
gotoxy(18,14);
textcolor(5) ;
writeln('* -5- pour la methode de fausse position *');
gotoxy(18,15);
textcolor(6) ;
writeln('* -6- pour la methode de lagrange *');
gotoxy(18,16);
textcolor(7);
writeln('* -7- pour sortir *');
gotoxy(18,17);
textcolor(9) ;
writeln('********************************************');
textcolor(15);
readln(s);
case s of
1:
begin
clrscr;
gotoxy(28,4);
textcolor(26);
writeln('ZIOUCHE Abdelhak D0307010') ;
textcolor(14);
gotoxy(23,6);
writeln('le mini projet d"analyse Nemurique ');
gotoxy(15,8);
textcolor(26);
writeln('"le Recherche du solutions de l"equation :xü+2x+1"');
entree;
baly(xmin,seuil);
end;
2:
begin
clrscr;
gotoxy(28,4);
textcolor(26);
writeln('ZIOUCHE Abdelhak D0307010') ;
textcolor(14);
gotoxy(23,6);
writeln('le mini projet d"analyse Nemurique ');
gotoxy(15,8);
textcolor(26);
writeln('"le Recherche du solutions de l"equation :xü+2x+1"');
entree;
dicho(xmin,xmax,seuil);
end;
3:
begin
clrscr;
gotoxy(28,4);
textcolor(26);
writeln('ZIOUCHE Abdelhak D0307010') ;
textcolor(14);
gotoxy(23,6);
writeln('le mini projet d"analyse Nemurique ');
gotoxy(15,8);
textcolor(26);
writeln('"le Recherche du solutions de l"equation :xü+2x+1"');
entree;
newton(xmin,seuil);
end;
4:
begin
clrscr;
gotoxy(28,4);
textcolor(26);
writeln('ZIOUCHE Abdelhak D0307010') ;
textcolor(14);
gotoxy(23,6);
writeln('le mini projet d"analyse Nemurique ');
gotoxy(15,8);
textcolor(26);
writeln('"le Recherche du solutions de l"equation :xü+2x+1"');
entree;
pointfixe(xmin,seuil);
end;
5:
begin
clrscr;
gotoxy(28,4);
textcolor(26);
writeln('ZIOUCHE Abdelhak D0307010') ;
textcolor(14);
gotoxy(23,6);
writeln('le mini projet d"analyse Nemurique ');
gotoxy(15,8);
textcolor(26);
writeln('"le Recherche du solutions de l"equation :xü+2x+1"');
entree;
Fausep(xmin,xmax,seuil);
end;
6:
begin
clrscr;
gotoxy(28,4);
textcolor(26);
writeln('ZIOUCHE Abdelhak D0307010') ;
textcolor(14);
gotoxy(23,6);
writeln('le mini projet d"analyse Nemurique ');
gotoxy(15,8);
textcolor(26);
writeln('"le Recherche du solutions de l"equation :xü+2x+1"');
entree;
Lagrange(xmin,seuil);
end;
end;
readln;
until s=7;
end.

aidez -moi Au moment le plus tôt s-v-p

exucuter ce prg pour resoudre l'equation x³+2x+1 =0 sachant que cette equation n a pas une solution uniquement
mais le prg realise la avec les méthodes :NEWTON, DECHOTOMIE, LAGRANGE ,BALAYAGE, point fixe,fausse position
j 'espère que vous recherche soit ce sujet

desoler , ok

j ai un problem à l algo qui triangilariser une matrice j'espère que vous ayez eu ce dernier