Microsoft Small Basic

Program Listing: DCC503

List Program

' Divisors 0.1
' Copyright (c) 2012 Nonki Takahashi. All rights reserved.
'
' History:
' 0.1 2012/10/03 Created.
'
TextWindow.WriteLine("Divisors 0.1")
TextWindow.WriteLine("")
While "True"
TextWindow.Write("Number? ")
num = TextWindow.ReadNumber()
t0 = Clock.ElapsedMilliseconds
nd = 0 ' number of divisors
sqr = Math.SquareRoot(num)
For i = 1 To sqr
If Math.Remainder(num, i) = 0 Then
TextWindow.Write(i + " ")
nd = nd + 1
dv[nd] = num / i
EndIf
EndFor
If Math.Remainder(num, sqr) = 0 Then
nd = nd - 1
EndIf
For i = nd To 1 Step -1
TextWindow.Write(dv[i] + " ")
EndFor
TextWindow.WriteLine("")
t1 = Clock.ElapsedMilliseconds
TextWindow.WriteLine("(" + ((t1 - t0) / 1000) + "[s])")
TextWindow.WriteLine("")
EndWhile