Float
ClrHome
0→T:0→U
Lbl 0
Menu("         GEOMETRY         ","AREA",A,"VOLUME",B,"SURFACE AREA",C,"EXIT",CL
Lbl CL
ClrHome
Stop
Lbl A
Menu("           AREA           ","TRIANGLE",A1,"PARALLELOGRAM",A2,"TRAPEZOID",A3,"REGULAR GON",A4,"CIRCLE",A5,"ELLIPSE",A6,"",0
Lbl B
Menu("          VOLUME          ","PRISM",B1,"PYRAMID",B2,"CYLINDER",B3,"CONE",B4,"SPHERE",B5,"FRUSTUM",B6,"",0
Lbl C
Menu("      SURFACE AREA        ","CUBE",C1,"RECTANGULAR",C2,"CYLINDER",C3,"CONE",C4,"SPHERE",C5,"",0

Lbl A1
Disp "A=BH/2
Prompt B,H
BH/2→Z
Goto ST
Lbl A2
Disp "A=BH
Prompt B,H
BH→Z
Goto ST
Lbl A3
Disp "A=(B₁+B₂)H/2
Input "B₁=",A
Input "B₂=",B
Input "H=",H
(A+B)H/2→Z:1→T
Goto ST
Lbl A4
Degree
Disp "       POLYGON AREA
Input "SIDES=",A
Input "LENGTH=",B
AB²/(4tan(180/A))→Z
Goto ST
Lbl A5
Disp "A=πR²
Prompt R
πR²→Z:­1→T
Goto SU
Lbl A6
Disp "A=πab
Input "a=",A
Input "b=",B
πAB→Z
Goto SU
Lbl B1
Disp "V=LWH
Prompt L,W,H
LWH→Z:1→T
Goto ST
Lbl B2
Disp "V=BH/3
Prompt B,H
BH/3→Z
Goto ST
Lbl B3
Disp "V=πR²H
Prompt R,H
πR²H→Z
Goto SU
Lbl B4
Disp "V=πR²H/3
Prompt R,H
πR²H/3→Z
Goto SU
Lbl B5
Disp "V=4/3πR
Prompt R
4/3πR²→Z:­1→T
Goto SU
Lbl B6
Disp "V=π(r²+rR+R²)H/3
Input "r=",Q
Input "R=",R
Input "H=",H
π(Q²+QR+R²)H/3→Z:1→T
Goto SU
Lbl C1
Disp "SA=6S²
Prompt S
6S²→Z:­1→T
Goto ST
Lbl C2
Disp "SA=2(LW+WH+LH)
Prompt L,W,H
2(LW+WH+LH→Z:1→T
Goto ST
Lbl C3
Disp "2πR(H+R)
Prompt R,H
2πR(H+R→Z
Goto SU
Lbl C4
Disp "πR√(H²+R²)+πR²
Prompt R,H
πR√(H²+R²)+πR²→Z
Goto SU
Lbl C5
Disp "4πR²
Prompt R
4πR²→Z:­1→T
Goto SU
Lbl SU
Z/π→Z:1→U
Lbl ST
Z→X
abs(Ans→Y
Ans→V
While Ans-round(Ans,0)
1/fPart(Y→Y
conj(V+imag(Vint(Ans→V
imag(Ans
End
abs(round({Ans,Ans/X→⌊A
⌊A(1→E
⌊A(2→F


1+int(log(E→A
1+int(log(F→B
Disp " "
If U=1
Output(4+T,26,"π
If (E≥0 and F=1)
Output(4+T,27-A-U,E
If U=1
Disp Zπ
If E≥1 and F>1
Then
Output(4+T,27-A-B-U-1,E
Output(4+T,27-B-U-1,"/
Output(4+T,27-B-U,F
If U=0
Disp Z
End
Pause