**TI92P*calculusRvolumeý¥Z£() Prgm setMode("Exact/Approx","APPROXIMATE") Local b,c,h,r,v Lbl top Dialog Title "Volume Formulas" DropDown "Object:",{"Prism","Pyramid","Cylinder","Cone","Sphere","Exit"},c EndDlog if ok=0 goto prge If c=1 Goto prism If c=2 Goto pyramid If c=3 Goto cylinder If c=4 Goto cone If c=5 Goto sphere If c=6 Goto prge Lbl prism Dialog Title "Volume of a Prism" Text "V=Bh" Request "Area of Base",b Request "Height",h EndDlog if ok=0 goto top expr(b)b expr(h)h b*hv Dialog Title "Volume of a Prism" Text "Answer: "&string(v) EndDlog Goto top Lbl pyramid Dialog Title "Volume of a Pyramid" Text "V=(1/3)Bh" Request "Area of Base",b Request "Height",h EndDlog if ok=0 goto top expr(b)b expr(h)h 1/3*b*hv Dialog Title "Volume of a Pyramid" Text "Answer: "&string(v) EndDlog Goto top Lbl cylinder Dialog Title "Volume of a Right Cylinder" DropDown "Formula to use:",{"V=(Œr^2)h","V=Bh"},c EndDlog if ok=0 goto top If c=1 Goto cyla If c=2 Goto cylb Lbl cyla Dialog Title "Volume of a Right Cylinder" Text "V=(Œr^2)h" Request "Radius",r Request "Height",h EndDlog if ok=0 goto cylinder expr(r)r expr(h)h Œ*r^2*hv Dialog Title "Volume of a Right Cylinder" Text "Answer: "&string(v) EndDlog Goto top Lbl cylb Dialog Title "Volume of a Right Cylinder" Text "V=Bh" Request "Area of Base",b Request "Height",h EndDlog if ok=0 goto cylinder expr(b)b expr(h)h b*hv Dialog Title "Volume of a Right Cylinder" Text "Answer: "&string(v) EndDlog Goto top Lbl cone Dialog Title "Volume of a Right Cone" Text "V=(1/3)(Œr^2)h" Request "Radius",r Request "Height",h EndDlog if ok=0 goto top expr(r)r expr(h)h 1/3*Œ*r^2*hv Dialog Title "Volume of a Right Cone" Text "Answer: "&string(v) EndDlog Goto top Lbl sphere Dialog Title "Volume of a Sphere" Text "V=(4/3)Œr^3" Request "Radius",r EndDlog if ok=0 goto top expr(r)r 4/3*Œ*r^3v Dialog Title "Volume of a Sphere" Text "Answer: "&string(v) EndDlog Goto top Lbl prge setMode("Exact/Approx","AUTO") EndPrgmäåÜ.t