Decrescita programmata 2

Matematica Senza Frontiere – 10/2/2015

Annamaria si diverte con le successioni numeriche.
Sceglie un numero intero naturale come primo numero della successione; calcola il successivo moltiplicando tra loro le cifre del numero.
Procede analogamente con il numero ottenuto finché non ottiene un numero con una sola cifra.
Ad esempio, iniziando da 68, ottiene la successione di quattro numeri 68, 48, 32, 6.

Quale numero intero naturale inferiore a 100 comporta, seguendo il procedimento descritto, la successione più lunga?

Visualizza su due colonne tutte le sequenze per i numeri da 1 99 (la soluzione è 77…)

'------------------------------------------- da 1 a 50 in 1° colonna
For i=1 To 50
   TextWindow.CursorTop =i 
   TextWindow.CursorLeft=1 
   num=i 
   NUMERO()
EndFor
'------------------------------------------- da 51 a 99 in 2° colonna
For i=51 To 99
   TextWindow.CursorTop =i-50
   TextWindow.CursorLeft=15 
   num=i 
   NUMERO()
EndFor
'------------------------------------------- il messaggio finale in basso
TextWindow.CursorTop =52
TextWindow.CursorLeft=1 
'------------------------------------------- 
'------------------------------------------- per ogni numero da 1 a 99
'------------------------------------------- 
Sub NUMERO
   TextWindow.Write(num + ": ")

   While(num >= 10)
      dd =Math.Floor(num/10)
      uu =Math.Remainder(num,10)
      num=dd*uu
      TextWindow.Write(num + " ")
   EndWhile
EndSub
'-------------------------------------------
'-------------------------------------------

…