'Menu Program
'Calculates Area of a Circle and Area of a Rectangle
'CAlculates Perimeter of a rectangle and Circumference of a Circle
'Variables include:
' Choice - To let the program know what to calculate (or exit)
' PI - The Trancendental Function (we're using 3.14159) and it's used more as a constant
' Len- length of the Rectangle (Keyed Input)
' Wid - Width of the Rectangle (keyed Input)
' Rec Area - Area of the Rectangle (Calculated by the Program
' Rec Perim - Perimter of the Circle (Calculated by the Program)
' Rad - Radius of the circle (Keyed Input)
' CirCirc - Circumference of the Circle (Calculated by the Program)
' CirArea - Area of the Circle (Calculated by the Program)
'
'
Choice = "Y"
Pi = 3.14159
While (Choice <> "X")
menu()
If Choice <> "A" and Choice <> "C" and Choice <> "X" Then
Choice = "Err"
EndIf
If Choice = "A" Then
AreaOfCir()
EndIf
If Choice = "C" Then
CircofCir()
EndIf
If Choice = "Err" Then
TextWindow.Clear()
TextWindow.WriteLine("Bad Parameter. Try Again.")
TextWindow.Pause()
EndIf
TextWindow.WriteLine("O.K.")
EndWhile
'End Of Program
'Calculation Subroutines Start Here
Sub menu
TextWindow.Clear()
TextWindow.WriteLine("")
TextWindow.WriteLine(" Menu")
TextWindow.WriteLine("")
TextWindow.WriteLine("Select the calculation from the list below (Use caps)")
TextWindow.WriteLine("")
TextWindow.WriteLine("A - Area of a Circle")
TextWindow.WriteLine("C - Circumference of a Circle")
TextWindow.WriteLine("")
TextWindow.WriteLine("X - Exit")
Choice = TextWindow. Read()
EndSub
Sub CircOfCir
TextWindow.Pause()
EndSub
Sub AreadOfCir
TextWindow.Pause()
EndSub
Added (1). The program will run, but when I enter the command to get the answer to display, nothing appears. I can't figure it out… I've been looking at it for an hour
>>> Issue with this code? I can't figure it out!