Bonjour,
j'aimerais quelque explication, commentaire facile de comprehension sur ceci:
matrices
i,j : integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (i=1) and (j=1)then mata[i,j]:=strtofloat(edit1.Text);
------------------------------------------------------------------
calcul de racine
begin
n:=0;
nombre := StrToFloat(eNombre.Text);
resultat:=(1+nombre)/2;
repeat
resultat0:=resultat;
resultat:=(resultat0+nombre/resultat0)*0.5;
inc(n);
test:=(resultat-resultat0)/resultat0;
if (test<0)then test:=-test;
until(test<0.01);
eRacine.Text := FloatToStr(resultat);
eIteration.Text := IntToStr(n);
------------------------------------------------------------------
equation second degré
begin
x1:=-b/(2*a);
label1.Caption:='X 1 = X 2 = ' +floattostr(x1);
label1.Visible:=true;
end;
if delta > 0 then
begin
if a=0 then
begin
x1:=-c/b;
label7.Visible:=false;
label2.Caption:='X = '+floattostr(x1);
end
else
begin
x1:=(-b -(sqrt(delta)))/(2*a);
x2:=(-b +(sqrt(delta)))/(2*a);
label1.Caption:='X1 = ' +floattostr(x1);
label1.Visible:=true;
label2.Caption:='X2 = ' +floattostr(x2);
end;
---------------------------------------------------
Memo1.Lines.Add('Et soit l'' égualité suivante :') ;
Memo1.Lines.Add('a² + 2ab + b² = Ax² + Bx + C') ;
Memo1.Lines.Add('') ;
Memo1.Lines.Add('Calcule de b :') ;
Memo1.Lines.Add('B = 2ab') ;
Memo1.Lines.Add('b = B / 2a') ;
Memo1.Lines.Add('a = 1 donc') ;
Memo1.Lines.Add('b = B / 2') ;
Memo1.Lines.Add('b = '+FloatToStr(b)+' / 2') ;
Memo1.Lines.Add('b = '+FloatToStr(X)) ;
Memo1.Lines.Add('') ;
Memo1.Lines.Add('Calcule de C :') ;
Memo1.Lines.Add('C = b² + (C - b²)') ;
Memo1.Lines.Add(ValeurC+' = '+FloatToStr(X*X)+' + ('+ValeurC+' - '+FloatToStr(X*X)+')') ;
Memo1.Lines.Add(ValeurC+' = '+FloatToStr(X*X)+' '+Signe3+' '+FloatToStr(abs(C - X * X))) ;
Memo1.Lines.Add('') ;
Memo1.Lines.Add('On remplace le C transformé :') ;
Memo1.Lines.Add(ValeurA+'x² '+Signe+' '+FloatToStr(abs(B))+'x + '+FloatToStr(X*X)+' '+Signe3+' '+FloatToStr(abs(C - X * X))) ;
Memo1.Lines.Add('') ;
Memo1.Lines.Add('On factorise avec A² + 2ab + B² = ( a + b )² :') ;
Memo1.Lines.Add('(x '+Signe4+' '+FloatToStr(Abs(X))+')² '+Signe3+' '+FloatToStr(abs(C - X * X))) ;