Problemi con array 2 – Programmare con Pascal

Con le seguenti dichiarazioni

Const
    DIM=10;
Type
    VETTORE: Array[1..DIM] Of Real;
Var
    V1, V2, V3: VETTORE;

completa gli esercizi seguenti

Procedure Visualizza(v: VETTORE);
Var
   i: Integer;
Begin
   For i:=1 To DIM Do
      Writeln(i:5, ': ', v[i]:10:2);
End;

Procedure Visualizza_Capovolto(v: VETTORE);

Procedure Visualizza_Quadrati(v: VETTORE);

Procedure Azzera(Var v: VETTORE); // modificato...

Procedure Capovolgi(Var v: VETTORE); // modificato...

Copia il contenuto di un array sorgente in un array destinazione

Procedure Copia(vIN: VETTORE; Var vOUT: VETTORE);

Function Minimo(v: VETTORE): Real;
Var
   i: Integer;
   m: Real;
Begin
   m:=v[1];
   For i:=2 To DIM Do
      If(v[i] < m) Then
         m:=v[i];
   Minimo:=m;
End;

Function Massimo(v: VETTORE): Real;

Function Totale(v: VETTORE): Real;

Function Prodotto(v: VETTORE): Real;

Function Totale_Quadrati(v: VETTORE): Real;

Function Media(v: VETTORE): Real;

Function Mediana(v: VETTORE): Real;

Produce 2 risultati quindi non è una funzione…

Procedure Minimo_Massimo(v: VETTORE; Var min, max:Real);

Somma posizione per posizione i primi 2 array e salva nel terzo

Procedure Totale2(vIN1, vIN2: VETTORE; Var vOUT: VETTORE);
Var
   i: Integer;
Begin
   For i:=1 To DIM Do
      vOUT[i]:=vIN1[i]+vIN2[i];
End;

Moltiplica posizione per posizione i primi 2 array e salva nel terzo

Procedure Prodotti2(vIN1, vIN2: VETTORE; Var vOUT: VETTORE);

Function Uguali(vA, vB: VETTORE): Boolean;