Anonymous user
Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 09:53, 16 September 2010
, 13 years agono edit summary
No edit summary |
|||
Line 246:
main = do
print (horner [-19, 7, -4, 6] 3)</lang>
=={{header|HicEst}}==
<lang HicEst>REAL :: x=3, coeffs(4)
DATA coeffs/-19.0, 7.0, -4.0, 6.0/
WRITE(Messagebox) Horner(coeffs, x) ! shows 128
FUNCTION Horner(c, x)
DIMENSION c(1)
Horner = 0
DO i = LEN(c), 1, -1
Horner = x*Horner + c(i)
ENDDO
END</lang>
=={{header|J}}==
| |||