CALCUL DES RACINES D'UNE FONCTION DU SECOND DEGRÉ DANS LES RÉELS ET LES COMPLEXES

Commentaire de mehdizsoft le 18/04/2007 20:18:35

J'ai un autre probleme ,avec un autre programme !  
voila le programme en Pascal :

program TP3;
var a,b :real ;
    i,j :integer ;
begin
a:= 1;
while (((a+1)-a)-1=0) do
  begin
    a:=a*2;
    {writeln(a);}
    i:=i+1;
  end;
writeln('a=', a,'   i=', i);
{-------------------------}
b:=1;
while (((a+b)-a)-b) <> 0 do
  begin
    b:=b+1;
    j:=j+1;
  end;
writeln('b=', b, '   j=', j);
end.

et voila l'affichage :

a= 1.0995116278E+12   i=40
b= 2.0000000000E+00   j=1

et voila un résultat plus détaillé :

2.0000000000E+00
4.0000000000E+00
8.0000000000E+00
1.6000000000E+01
3.2000000000E+01
6.4000000000E+01
1.2800000000E+02
2.5600000000E+02
5.1200000000E+02
1.0240000000E+03
2.0480000000E+03
4.0960000000E+03
8.1920000000E+03
1.6384000000E+04
3.2768000000E+04
6.5536000000E+04
1.3107200000E+05
2.6214400000E+05
5.2428800000E+05
1.0485760000E+06
2.0971520000E+06
4.1943040000E+06
8.3886080000E+06
1.6777216000E+07
3.3554432000E+07
6.7108864000E+07
1.3421772800E+08
2.6843545600E+08
5.3687091200E+08
1.0737418240E+09
2.1474836480E+09
4.2949672960E+09
8.5899345920E+09
1.7179869184E+10
3.4359738368E+10
6.8719476736E+10
1.3743895347E+11
2.7487790694E+11
5.4975581389E+11
1.0995116278E+12
a= 1.0995116278E+12   i=40
b= 2.0000000000E+00   j=1

J'ai  remarqué d'apres cet l'affichage  que la valeur de « a »  
se multiplie par « 2 » à chaque fois .
arrivé à la ligne « 36 » il ya un changement au niveau de la valeur de « a »
donc la multiplication n'est pas exacte , elle perd de la précision :
« 6.8719476736E+10 x 2 » différent de « 1.3743895347E+11 »

voila !  
Je ne comprends pas pk la 1ere  boucle s'arrete et pk la 2eme boucle ne s'execute qu'une seule fois !
Si kélkin a une idée ,kil m'explique  :(  :)
Merci beaucoup.