Calculando matriz inversa 2x2 turbo pascal.

• BY:Carlos
• 01/05/2015

{

En este ejemplo muestro un código en pascal con el que podrán calcular la matriz inversa 2x2 para lo cual solo deberían de entender la lógica en como se resuelven así:

Matriz inversa

con los numeros
4 2
0 1

En esta matriz debemos comprobar que existe la inversa la cual existiría si el determinante es diferente de 0|A| = 3·4 - 2·0 = 12 ==> existe la inversa
2º) Hallamos la matriz adjunta transpuesta, con este método práctico:■ Intercambiamos entre sí los elementos de la diagonal principal, y■ Cambiamos el signo de los elementos de la diagonal secundaria (dejándolos en su lugar)
3º) Dividimos la matriz adjunta transpuesta por el determinante de la matriz original, y así obtenemos la inversa A⁻¹ 

     [4 -2]
     [ 0 1]
A⁻¹ = –––––
       4

A⁻¹ = [1 -1/2] ◄ RESPUESTA
     [ 0 1/4]

aqui el codigo

 Program appletenhtml (input,output); 



uses
 crt; 
Var
 a, b, c,d,total: Integer;
 
Begin
 {
 /*
 |a00 a01|   |$a $b|
 |a10 a11| = |$c $d|
 determinante = $a*$d-$b*$c
 matriz inversa= d/det  -c/det
                -b/det  a/det
 
 */
 }
  writeln('Ingrese valores');
  writeln('|a b|');
  writeln('|c d|');
  writeln('Ingrese el valor de a: ');
  readln(a);
  writeln('Ingrese el valor de b: ');
  readln(b);
  writeln('Ingrese el valor de c: ');
  readln(c);
  writeln('Ingrese el valor de d: ');
  readln(d);
  total:= a*d-b*c;
  
  if(total <> 0) then begin
  writeln(' ',d div total, ' ',-c div total);
  writeln(' ',-b div total, ' ',a div total);
  end;
  
  if(total = 0) then begin
  writeln('Error el det. da 0');
  end;
  
  
 
 
  
 readkey;
End.

Descargar Ejemplo

Matriz inversa 2x2 pascal

}