Determinante de Matriz Matemática em Pascal

Determinante Pascal.png

Mais um programa clássico em Pascal que é o cálculo do determinante de uma matriz.

Antes de mais nada é preciso lembrar como calcular.

Matriz A

A= a11 a12 a13
a21 a22 a23
a31 a32 a33


Determinante

det(A) = a11a22a33 + a21a32a13 + a31a12a23
- a11a32a23 - a21a12a33 - a31a22a13

Vamos ao programa:

 Program Calculo_de_Determinante_3_x_3;  
 Uses Crt;  
 var  
  a : Array [1..3,1..3] of Integer;  
  i, j : Integer;  
  d : Integer;  
 begin  
  ClrScr;  
  WriteLn ('Calculo de Determinante');  
  WriteLn;  
  // Entrada dos dados da Matriz A  
  for i := 1 to 3 do  
   for j := 1 to 3 do  
   begin  
    Write ('a',i,j,'=');  
    ReadLn (a[i,j]);  
   end;  
  // Calculo  
  d := a[1,1]*a[2,2]*a[3,3]+a[2,1]*a[3,2]*a[1,3]+a[3,1]*a[1,2]*a[2,3]-  
     a[1,1]*a[3,2]*a[2,3]-a[2,1]*a[1,2]*a[3,3]-a[3,1]*a[2,2]*a[1,3];  
  WriteLn;  
  WriteLn ('O Determinante da Matriz A e: ',d);  
  ReadLn;  
 end.  

Nenhum comentário:

Postar um comentário