Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 13:04, 18 August 2019
, 4 years agoHorner's rule for polynomial evaluation en FreeBASIC
(Horner's rule for polynomial evaluation en FreeBASIC) |
|||
Line 623:
Z = Z*X + Y
10 Y = Y*X + A(I)
END
</lang>
=={{header|FreeBASIC}}==
<lang freebasic>
Function AlgoritmoHorner(coeffs() As Integer, x As Integer) As Integer
Dim As Integer i, acumulador = 0
For i = Ubound(coeffs, 1) To 0 Step -1
acumulador = (acumulador * x) + coeffs(i)
Next i
Return acumulador
End Function
Dim As Integer x = 3
Dim As Integer coeficientes(3) = {-19, 7, -4, 6}
Print "Algoritmo de Horner para el polinomio 6*x^3 - 4*x^2 + 7*x - 19 para x = 3: ";
Print AlgoritmoHorner(coeficientes(), x)
End
</lang>
{{out}}
<pre>
Algoritmo de Horner para el polinomio 6*x^3 - 4*x^2 + 7*x - 19 para x = 3: 128
</pre>
=={{header|FunL}}==
| |||