program ValutazionePolinomioMedianteHorner;
const
N = 4;
var
pl : Polinomio;
x : real;
function Horner (p: Polinomio; i: Index; valore: real): real;
var
val : real;
begin
if i < N then
val := p[i] + valore * Horner(p, i + 1, valore)
else
val := p[i];
writeln('valutazione sezione da ', i:2, ' a ', N:2, ' = ', val:10:2);
Horner := val;
end;
begin
writeln('lettura polinomio');
LeggiPolinomio(pl);
writeln(' mi hai dato il polinomio seguente:');
ScriviPolinomio(pl);
writeln('valore della variabile nel quale calcolare il polinomio? ');
readln(x);
writeln(Horner(pl, 0, x):10:2);
writeln('ciao')
end.