{ File: eso1-1.pas }

{ Scopo: primo esercizio della prima simulazione di una prova di esonero }

program EsoneroFacSimile;
const
  N = 4;
  M = 5;
type
  MATRICE = array [1..N,1..M] of integer;
  VETTORE = array [1..N] of integer;

var
  mat      : MATRICE;
  vet      : VETTORE;
  filedati : text;
  nomefile : string[12];
  i,j      : integer;
           
{*****************************************************************}
{*****************************************************************}
{***** NB la procedura Esercizio1 va messa nel file SOL1.PAS *****}
{*****************************************************************}
{*****************************************************************}
{$I SOL1.PAS}  { Inclusione del file con la definizione della procedura
                 Esercizio1 }


begin {ESONERO - fac-simile -}
  writeln;
  writeln('--- inizio programma ---');
  writeln;

  writeln('nome file di test ?');
  readln(nomefile);
  assign(filedati, nomefile);
  reset(filedati);
  for i:=1 to N do
    for j:=1 to M do
      read(filedati,mat[i,j]);
  close(filedati);
  writeln('matrice letta:');
  for i:=1 to N do
  begin
    for j:=1 to M do write(mat[i,j]:4);
    writeln;
  end;
  writeln;

  writeln('CHIAMATA procedura Esercizio1');
{***************************************}
  Esercizio1(mat,vet);
{***************************************}

  writeln;
  writeln('stato del vettore dopo l''esecuzione di esercizio1');
  for i:=1 to N do write(VET[I]:4);
  writeln;
  writeln('--- fine programma ---');
end. { EsoneroFacSimile }