Microsoft Small Basic

Program Listing: SFH478

List Program

p = "3.141592653589793238462643383279502884197"
TextWindow.WriteLine("p=" + p)
q = p / 2
TextWindow.WriteLine("q=" + q)
x="1.5707963267948967005658284064500000000000000000000"
Show()
x="1.5707963267948967005658284064500000000000000000001"
Show()
Sub Show
TextWindow.Write("x=" + x)
y = Math.Tan(x)
TextWindow.WriteLine(" y=" + y)
EndSub