Microsoft Small Basic

Program Listing: MCW956

List Program

textwindow.WriteLine("Dit programma zoekt lange ketens voor het 2n+1 probleem")

textwindow.Write("Geef het startgetal:")
number=TextWindow.readnumber()

maxsize=0

While "true"
x=number
size=0
While (x<>1)
size=size+1
If Math.Remainder(x,2)=0 Then
x=x/2
Else
x=3*x+1
endif
endwhile


if size>maxsize Then
TextWindow.WriteLine(number+":"+size)
maxsize=size
endif


number=number+1
endwhile