Microsoft Small Basic

Program Listing: SHR235

List Program

GraphicsWindow.BackgroundColor = "SteelBlue"
GraphicsWindow.Title = "Circumferance of a Circle"
GraphicsWindow.Width = 320
GraphicsWindow.Height = 200
GraphicsWindow.Show()

Begin:

GraphicsWindow.Clear()
TextWindow.Clear()
i = Math.Pi
TextWindow.Write("Enter a Radius: ")
r = TextWindow.ReadNumber()
If r = 0 Then
Goto Diameter

Diameter:

TextWindow.Write("Enter a Diameter: ")
d = TextWindow.ReadNumber()
c = i * d
TextWindow.WriteLine("the circumference of your circle is = " + c)
GraphicsWindow.PenColor = "black"
GraphicsWindow.DrawEllipse(100, 50, 100, 100)
TextWindow.Hide()
GraphicsWindow.ShowMessage("circumference = " + c, "πr²")
Goto Begin
Else

Circumference:

c = i * (r * r)
TextWindow.WriteLine("the circumference of your circle is = " + c)
GraphicsWindow.PenColor = "black"
GraphicsWindow.DrawEllipse(100, 50, 100, 100)
TextWindow.Hide()
GraphicsWindow.ShowMessage("circumference = " + c, "πr²")
EndIf
Goto Begin