- {$mode delphi}
- var
- coeff: array [0..5] of single = (5.0, 4.0, 3.0, 2.0, 0.0, 1.0);
- function horner(x: single): single;
- var
- i: integer;
- begin
- result := coeff[3];
- . for i := 4 downto 0 do result := result * x + coeff[i];
- end;
- begin
- writeln(horner(5.0):1:1);
- end.