Anonymous user
Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 15:59, 18 February 2015
, 9 years agono edit summary
(→{{header|R}}: add reduce example and output) |
No edit summary |
||
Line 320:
t() ->
horner([-19,7,-4,6], 3).
</lang>
=={{header|ERRE}}==
<lang ERRE>
PROGRAM HORNER
! 2 3
! polynomial is -19+7x-4x +6x
!
DIM C[3]
PROCEDURE HORNER(C[],X->RES)
LOCAL I%,V
FOR I%=UBOUND(C,1) TO 0 STEP -1 DO
V=V*X+C[I%]
END FOR
RES=V
END PROCEDURE
BEGIN
C[]=(-19,7,-4,6)
HORNER(C[],3->RES)
PRINT(RES)
END PROGRAM
</lang>
| |||