Calculando determinante 2x2 turbo pascal

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

Determinante

Si A= a    b

        c    d

 El determinante de A/) seria:

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

 */

 }

  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('El total del det. es: ',total);

  end;

  

  if(total = 0) then begin

  writeln('Error el det. da 0');

  end;

  

  

 

 

  

 readkey;

End.

Descargar ejemplo:

Determinante 2x2 pascal