Rosetta Code

Horner's rule for polynomial evaluation: Difference between revisions

Page Discussion

Horner's rule for polynomial evaluation (view source)

Revision as of 08:55, 3 January 2012

34 bytes added ,  12 years ago
m
→‎{{header|Ada}}: -- fixed indention and capitalization to conventions in the Ada community
(CoffeeScript)
m (→‎{{header|Ada}}: -- fixed indention and capitalization to conventions in the Ada community)
Line 21:
Cf. [[Formal power series]]
=={{header|Ada}}==
<lang Ada>with Ada.Float_Text_IO; use Ada.Float_Text_IO;▼
<lang Ada>
 
▲with Ada.Float_Text_IO; use Ada.Float_Text_IO;
procedure horners_ruleHorners_Rule is
type Coef is array(Positive range <>) of Float;
coefficients Coefficients : Coef := (-19.0,7.0,-4.0,6.0);
x X : Float := 3.0;
 
function hornerHorner(coeffsCoeffs: Coef; valVal: Float) return Float is▼
res Res : Float := 0.0;▼
begin▼
for pP in reverse coeffsCoeffs'Range loop▼
Res := Res*Val + Coeffs(P);
end loop;▼
return resRes;▼
end Horner;
 
▲ function horner(coeffs: Coef; val: Float) return Float is
▲ res : Float := 0.0;
▲ begin
▲ for p in reverse coeffs'Range loop
res := res*val + coeffs(p);
▲ end loop;
▲ return res;
end horner;
begin
put Put(hornerHorner(coefficientsCoefficients,xX),Aft=>1,Exp=>0);
end horners_ruleHorners_Rule;
</lang>
Output:
<pre>128.0</pre>
 
128.0
</pre>
=={{header|Aime}}==
<lang aime>real
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/144283"