**TI92P*calculusRarea¿ ¥Z e() Prgm Local a,b,c,e,h,l,p,r,s,w,b1,b2 setMode("Exact/Approx","APPROXIMATE") Lbl top Dialog Title "Area Formulas" DropDown "Object:",{"Square","Triangle","Circle","Rectangle","Ellipse","Trapezoid","Parallelogram","Parabola","Circular Ring","Exit"},c EndDlog if ok=0 goto prge If c=1 Goto sqr If c=2 Goto tri If c=3 Goto cir If c=4 Goto rec If c=5 Goto ell If c=6 Goto tra If c=7 Goto par If c=8 Goto pab If c=9 Goto crr If c=10 Goto prge Lbl sqr Dialog Title "Area of a Square" Text "A=s^2" Request "Length of a side",s EndDlog if ok=0 goto top expr(s)s s^2a Dialog Title "Area of a Square" Text "The area is: "&string(a) EndDlog Goto top Lbl tri Dialog Title "Area of a Triangle" DropDown "Formula to use",{"A=(1/2)bh","A=¨(3/4)s^2"},e EndDlog if ok=0 goto tri If e=1 Goto tria If e=2 Goto trib Lbl tria Dialog Title "Area of a Triangle" Text "A=(1/2)bh" Request "Base",b Request "Height",h EndDlog if ok=0 goto tri expr(b)b expr(h)h 1/2*b*ha Dialog Title "Area of a Triangle" Text "The area is: "&string(a) EndDlog Goto top Lbl trib Dialog Title "Area of a Triangle" Text "A=¨(3/4)s^2" Request "Side",s EndDlog if ok=0 goto tri expr(s)s ¨(3/4)*s^2a Dialog Title "Area of a Triangle" Text "The area is: "&string(a) EndDlog Goto top Lbl cir Dialog Title "Area of a Circle" Text "A=Œr^2" Request "Radius",r EndDlog if ok=0 goto top expr(r)r Œ*r^2a Dialog Title "Area of a Circle" Text "The area is: "&string(a) EndDlog Goto top Lbl rec Dialog Title "Area of a Rectangle" Text "A=LW" Request "Length",l Request "Width",w EndDlog if ok=0 goto top expr(l)l expr(w)w l*wa Dialog Title "Area of a Rectangle" Text "The area is: "&string(a) EndDlog Goto top Lbl ell Dialog Title "Area of an Ellipse" Text "A=Œab" Request "a",a Request "b",b EndDlog if ok=0 goto top expr(a)a expr(b)b Œ*a*ba Dialog Title "Area of an Ellipse" Text "The area is: "&string(a) EndDlog Goto top Lbl tra Dialog Title "Area of a Trapezoid" Text "A=(1/2)(B1+B2)h" Request "Base 1",b1 Request "Base 2",b2 Request "Height",h EndDlog if ok=0 goto top expr(b1)b1 expr(b2)b2 expr(h)h 1/2*(b1+b2)*ha Dialog Title "Area of a Trapezoid" Text "The area is: "&string(a) EndDlog Goto top Lbl par Dialog Title "Area of a Parallelogram" Text "A=bh" Request "Base",b Request "Height",h EndDlog if ok=0 goto top expr(b)b expr(h)h b*ha Dialog Title "Area of a Parallelogram" Text "The area is: "&string(a) EndDlog Goto top Lbl pab Dialog Title "Area of a Parabola" Text "A=(2/3)bh" Request "Base",b Request "Height",h EndDlog if ok=0 goto top expr(b)b expr(h)h 2/3*b*ha Dialog Title "Area of a Parabola" Text "The area is: "&string(a) EndDlog Goto top Lbl crr Dialog Title "Area of a Circular Ring" Text "A=2Œpw" Request "p",p Request "w",w EndDlog if ok=0 goto top expr(p)p expr(w)w 2*Œ*p*wa Dialog Title "Area of a Circular Ring" Text "The area is: "&string(a) EndDlog Goto top Lbl prge setMode("Exact/Approx","AUTO") EndPrgmäåÜJ•