DarkOli a écrit a écrit :
Pourquoi tu ne mets pas ce que a trouver ca peux servir à d'autres !!! (sinon ca fait un sujet de plus qui sert à rien car y'a pas la reponse).
|
Tu as raison..voila...La saisie des coeff se fait dans des "edit"..G fait un prog pour calculer des matrice 2*2 si vous voulez d'autre info..demandez!Je ne suis pas un boss je débute mais je peux vous transmettre d'autre partie de la source...
function inverse(x:tmat):Tmat;
Var
det:real;
begin
det:=x[0,0]*x[1,1]-x[1,0]*x[0,1];
if det=0
then showmessage ('La matrice inverse n''existe pas car'+chr(13)+
'le déterminant de la matrice est nul'
else
begin
inverse[0,0]:=(1/det)*(x[1,1]);
inverse[0,1]:=(1/det)*(x[0,1]);
inverse[1,0]:=(1/det)*(x[1,0]);
inverse[1,1]:=(1/det)*(x[0,0]);
end;