-
Kalanos.
User deleted
program Matrici;
uses crt;
var a, b, c, d, DeltaM : integer;
X: array[1..3,1..3] of integer;
begin
for a:=1 to 3 do
for b:=1 to 3 do
begin
writeln('Inserire il valore di posizione ',a,',', b,' della martice 3x3');
readln(X[a,b]);
end;
c:= X[1,1]*X[2,2]*X[3,3] + X[1,2]*X[2,3]*X[3,1] + X[2,1]*X[3,2]*X[1,3];
d:= X[1,3]*X[2,2]*X[3,1] + X[1,2]*X[2,1]*X[3,3] + X[1,1]*X[2,3]*X[3,2];
DeltaM := c - d;
writeln('Il Determinante della matrice e'' ', DeltaM);
readln;
end.
. -
=|DeBBuppOlA|=.
User deleted
MATRICI 4X4
program Matrici4x4;
uses crt;
var a, b, c, d, DeltaM : integer;
X: array[1..4,1..4] of integer;
begin
for a:=1 to 4 do
for b:=1 to 4 do
begin
writeln('Inserire il valore di posizione ',a,',', b,' della martice 3x3');
readln(X[a,b]);
end;
c:= X[1,1]*X[2,2]*X[3,3]*X[4,4] + X[1,2]*X[2,3]*X[3,4]*X[4,1] + X[2,1]*X[3,2]*X[1,4]*X(4,3)+ X[1,3]*X[2,4]*X[3,1]*X[4,2];
d:= X[1,4]*X[2,3]*X[3,2]*X[4,1] + X[3,1]*X[2,2]*X[1,3]*X[4,4] + X[4,2]*X[3,3]*X[2,4]*X[1,1]+ *X[2,1]*X[1,2]*X[4,3]*X[3,4];
DeltaM := c - d;
writeln('Il Determinante della matrice e'' ', DeltaM);
readln;
end.
. -
Robys93.
User deleted
Ciaoooo...a me servirebbe la matrice 4x3... riusciresti mica vero? grazie millleee!! . -
marilena1990.
User deleted
matrice 3X3
[0 1 3 ]
[7 4 5]
[3 5 7].