40 lines
1.1 KiB
Text
40 lines
1.1 KiB
Text
' FB 1.05.0 Win64
|
|
|
|
Function ArithmeticMean(array() As Double) As Double
|
|
Dim length As Integer = Ubound(array) - Lbound(array) + 1
|
|
Dim As Double sum = 0.0
|
|
For i As Integer = LBound(array) To UBound(array)
|
|
sum += array(i)
|
|
Next
|
|
Return sum/length
|
|
End Function
|
|
|
|
Function GeometricMean(array() As Double) As Double
|
|
Dim length As Integer = Ubound(array) - Lbound(array) + 1
|
|
Dim As Double product = 1.0
|
|
For i As Integer = LBound(array) To UBound(array)
|
|
product *= array(i)
|
|
Next
|
|
Return product ^ (1.0 / length)
|
|
End Function
|
|
|
|
Function HarmonicMean(array() As Double) As Double
|
|
Dim length As Integer = Ubound(array) - Lbound(array) + 1
|
|
Dim As Double sum = 0.0
|
|
For i As Integer = LBound(array) To UBound(array)
|
|
sum += 1.0 / array(i)
|
|
Next
|
|
Return length / sum
|
|
End Function
|
|
|
|
Dim vector(1 To 10) As Double
|
|
For i As Integer = 1 To 10
|
|
vector(i) = i
|
|
Next
|
|
|
|
Print "Arithmetic mean is :"; ArithmeticMean(vector())
|
|
Print "Geometric mean is :"; GeometricMean(vector())
|
|
Print "Harmonic mean is :"; HarmonicMean(vector())
|
|
Print
|
|
Print "Press any key to quit the program"
|
|
Sleep
|