{ File: polidef.pas } { Definizioni generali per polinomi di grado N N.B. N viene lasciata da specificare nel file che usa queste definizioni. } type Index = 0..N; Polinomio = array [index] of integer; procedure LeggiPolinomio (var p: Polinomio); var i : Index; begin for i := 0 to N do begin write('coefficiente di grado ', i : 2, ' = '); readln(p[i]); end; writeln('fine lettura polinomio'); end; { LeggiPolinomio } procedure ScriviPolinomio (p: Polinomio); var i : Index; begin for i := 0 to N do begin write('coefficiente di grado', i : 2, ' = '); writeln(p[i] : 2); end; end; { ScriviPolinomio }