Water lily puzzle

[Kernelpanic]

I am trying with math functions right now.

The text is:
Water lily puzzle
A water lily covers a pond completely after 'x' days. After how many days is the pond half covered?

At it I discovered a problem with the German keyboard in QB64. (New little Bugreport)

Code: QB64: [Select]

1. 'Seerosenraetzel - 19. 0kt. 2020
2.  
3. OPTION _EXPLICIT
4.  
5. Declare Function Log10# (X#) Static
6.  
7. DIM y AS DOUBLE
8. DIM Tage AS DOUBLE, Anzahl AS DOUBLE
9.  
10. y = 2.0
11.  
12. CLS
13. PRINT "Seerosenraetzel"
14. PRINT "Eine Seerose bedeckt einen Teich nach 'x' Tagen vollstaendig."
15. PRINT "Nach wie vielen Tagen ist der Teich halb bedeckt?"
16. PRINT
17. INPUT "Anzahl der Tage bis der Teich vollbedeckt ist: ", Tage
18.  
19. 'Anzahl der Rosen und Teich halbbedeckt
20. Anzahl = ((y ^ Tage) / y)
21.  
22. Tage = (Log10(Anzahl) / Log10(y))
23. PRINT
24. PRINT USING "Der Teich ist nach ### Tagen halb bedeckt."; Tage
25.  
26. END
27.  
28. 'Logarithmus zur Basis 10
29. FUNCTION Log10# (X) STATIC
30.   Log10 = LOG(X) / LOG(10.0)
31. END FUNCTION
32.  

[bplus]

If area doubles daily then x-1 days ;-))

[Kernelpanic]

If area doubles daily then x-1 days ;-))

I know, it is an exercise only. - But twenty years ago or so, most people come mull over it. ;)