2020年2月29日 18:03 by wst
高中数学编程利用循环求多项式的值,这里按照课本上的程序,动手编写而成:
' Gambas module file
Public Sub Main()
Dim n, a, x, v, i As Float
Input n, a, x
v = a
i = n - 1
While i >= 0
Print "i="; i
Input a
v = v * x + a
i = i - 1
Wend
Print v
End
运行后在控制台,先输入:5 0.83 5,这三个数表示多项式的次数、首项的系数、x的值。
然后依次输入系数,最终计算结果为:2881.75