Matrici 3×3

di

Con le seguenti dichiarazioni

Type
    MAT3x3: Array[1..3, 1..3] Of Real;
Var
    M1, M2, M3: MAT3x3;

completa gli esercizi seguenti

Procedure Visualizza(M: MAT3x3);
Var
    ri, co: Integer;
Begin
    For ri:=1 To 3 Do
    Begin
        For co:=1 To 3 Do
            Write(M[ri,co]:10:2);
        Writeln;
    End;
End;

 

Procedure Azzera(Var M: MAT3x3); // modificato...

 

Procedure Trasponi(Var M: MAT3x3); // modificato...

 

Procedure Copia(mIN: MAT3x3; Var mOUT: MAT3x3);

 

Function Minimo(M: MAT3x3): Real;

 

Function Massimo(M: MAT3x3): Real;

 

Function Totale(M: MAT3x3): Real;

 

Function Prodotto(M: MAT3x3): Real;

 

Function Totale_Quadrati(M: MAT3x3): Real;

 

Function Media(M: MAT3x3): Real;

 

Procedure Minimo_Massimo(M: MAT3x3; Var min, max:Real);

 

Procedure Totale2(mIN1, mIN2: MAT3x3; Var mOUT: MAT3x3;

 

Function Uguali(mIN1, mIN2: MAT3x3): Boolean;