• Domingo 5 de Abril de 2020, 15:11

Autor Tema:  Auxiliooooo  (Leído 666 veces)

brunobruno

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Auxiliooooo
« en: Miércoles 10 de Mayo de 2006, 02:06 »
0
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;