Matematické funkce XII - Druhá odmocnina
Public Function sqrt(ByVal x As Double)
MyTemp = 1
For i = 1 To 50
MyTemp = (MyTemp + x / MyTemp) / 2
Next i
sqrt = MyTemp
End Function
|
Matematické funkce XII - Druhá odmocnina |
|
|
|
Funkce: Public Function sqrt(ByVal x As Double) MyTemp = 1 For i = 1 To 50 MyTemp = (MyTemp + x / MyTemp) / 2 Next i sqrt = MyTemp End Function |
|
|
| Autor: The Bozena |