Anonymous user
Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 22:00, 19 December 2011
, 12 years agono edit summary
(→{{header|Pascal}}: add example) |
No edit summary |
||
Line 45:
128.0
</pre>
=={{header|Aime}}==
<lang aime>real
horner(list coeffs, real x)
{
integer i;
real z;
z = 0;
i = l_length(coeffs);
while (i) {
i -= 1;
z *= x;
z += l_q_real(coeffs, i);
}
return z;
}
integer
main(void)
{
list l;
l_append(l, -19r);
l_append(l, 7.0);
l_append(l, -real(4));
l_append(l, 6r);
o_real(1, horner(l, 3));
o_byte('\n');
return 0;
}</lang>
=={{header|ALGOL 68}}==
{{works with|ALGOL 68G}}
| |||