Roots and powers playing nicely together...

[Kernelpanic]

Don't get the problem - not really. When does it become inaccurate? -- I still have to practice with Locate so that the columns are next to each other.

Input 10,000 results in: 4.0000

Code: (Select All)

'Logarithmusuebung. Wann Programmabsturz? - 1. Okt. 2022

Declare Function Log10(wert As Double) As Long

Dim As Double wert
Dim As Integer i

Input "Log(i): ", i

For i = 1 To i
  wert = Log10(i)
  Print Using "####.#####"; wert
Next

Function Log10 (value As Double) Static

  Dim ergebnis As Double

  ergebnis = Log(value) / Log(10)
  Log10 = ergebnis
End Function