{ File: eso1-2.pas } { Scopo: secondo esercizio della prima simulazione di una prova di esonero } program Esonero2; const N = 4; { numero di righe } M = 5; { numero di colonne } type TipoMatrice = array [1..N,1..M] of integer; var nome_file : string; finput : text; h1, h2, k1, k2 : integer; {*****************************************************************} {*****************************************************************} {***** NB la funzione Esercizio2 va messa nel file SOL2.PAS *****} {*****************************************************************} {*****************************************************************} {$I SOL2.PAS} { Inclusione del file con la definizione della funzione Esercizio2 } begin { lettura del nome del file } writeln('Nome file?'); readln(nome_file); { apertura del file in lettura } assign(finput, nome_file); reset(finput); { lettura degli indici che delimitano la sottomatrice } readln(finput, h1, h2, k1, k2); { attivazione della funzione Esercizio2 e stampa del risultato } writeln(Esercizio2(finput, h1, h2, k1, k2)); close(finput) end. { Esonero2 }