program ordine1;
(* regola pratica per determinante terzo ordine *)
(* dati assegnati da programma per esempio *)

uses crt;
var a1,a2,a3,b1,b2,b3,c1,c2,c3:integer;
    ds:real;
    s:string;
begin
clrscr;
s:='      ';
writeln('calcolo determinante terzo ordine:regola di SARRUS ');
a1:=2;b1:=-2;c1:=-1;
a2:=1;b2:=3;c2:=2;
a3:=0;b3:=1;c3:=3;
writeln(a1,s,b1,s,c1);
writeln(a2,s,b2,s,c2);
writeln(a3,s,b3,s,c3);
writeln;
ds:=a1*b2*c3+b1*c2*a3+c1*a2*b3-a3*b2*c1-b3*c2*a1-c3*a2*b1;
writeln('determinante=',ds:4:3);
readln;
end.

calcolo determinante terzo ordine:regola di SARRUS
2      -2      -1
1      3      2
0      1      3

determinante=19.000

inizio