Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Kernelpanic on October 19, 2020, 02:34:54 pm

Title: Water lily puzzle
Post by: Kernelpanic on October 19, 2020, 02:34:54 pm
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.  
  4.  
  5. Declare Function Log10# (X#) Static
  6.  
  8. DIM Tage AS DOUBLE, Anzahl AS DOUBLE
  9.  
  10. y = 2.0
  11.  
  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?"
  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))
  24. PRINT USING "Der Teich ist nach ### Tagen halb bedeckt."; Tage
  25.  
  27.  
  28. 'Logarithmus zur Basis 10
  29. FUNCTION Log10# (X) STATIC
  30.   Log10 = LOG(X) / LOG(10.0)
  32.  
Title: Re: Water lily puzzle
Post by: bplus on October 19, 2020, 02:41:12 pm
If area doubles daily then x-1 days ;-))
Title: Re: Water lily puzzle
Post by: Kernelpanic on October 19, 2020, 04:21:01 pm
Quote from: bplus on October 19, 2020, 02:41:12 pm
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. ;)
Text Only | Text with Attachments