Horner's rule for polynomial evaluation: Difference between revisions
Content deleted Content added
Added ada |
mNo edit summary |
||
Line 22: | Line 22: | ||
=={{header|Ada}}== |
=={{header|Ada}}== |
||
<lang Ada> |
<lang Ada> |
||
with Ada. |
with Ada.Float_Text_IO; use Ada.Float_Text_IO; |
||
use Ada.Text_IO, Ada.Float_Text_IO; |
|||
procedure horners_rule is |
procedure horners_rule is |
||
type Coef is array(Positive range <>) of Float; |
type Coef is array(Positive range <>) of Float; |