SoloCodigo

Programación General => Pascal => Mensaje iniciado por: brunobruno en Miércoles 10 de Mayo de 2006, 02:06

Título: Auxiliooooo
Publicado por: brunobruno en Miércoles 10 de Mayo de 2006, 02:06
Estoy tratando de programar en Pascal para poder calcular la inversa de una matriz triangular inferior de F*F, el codigo que escribi es el siguiente, sin embargo cuando la calculo todas las componenete se hacen 0, no se que es lo que hago mal, agradeceria muchisimo si alguien me puede ayudar.

Muchisimas Gracias. Bruno.

Procedure invertir_matriz(F:integer;var A:matriz; var C:matriz);
var i,j,k:integer; suma:real ;
Begin

      for i:=1 to F do
        begin
         C[i,i]:= 1/A[i,i];
        end;


      for j:=1 to F do
          for i:=j+1 to F do
              Begin
                   suma:=0;
                   for k:=1 to i-1 do
                      Begin
                           suma:= suma + A[i,k]*C[k,j];
                           C[i,j]:= - suma / A[i,i];
                      End;
              End;
End;