**TI86** Program file dated 09/10/98, 15:29ÿp™‡5 øAreaity2øöLbl TOPÖClLCDÖDisp ""ÖDisp " Area"ÖDisp " Formulas"ÖOutpt(7,1," By JAT - 5/27/98")ÖMenu(1,"Square",SQR,2,"Triangle",TRI,3,"Circle",CIR,4,"Rectangle",REC,5,"Ellipse",ELL,6,"Trapezoid",TRA,7,"Parallelogram",PAR,8,"Parabola",PAB,9,"Circular Ring",CRR,10,"Exit",EXT)ÖLbl SQRÖClLCDÖDisp "Area of Square"ÖDisp "A=s"ÖDisp ""ÖInput "length of side=",SÖSAÖround(A,3)AÖDisp "area="ÖOutpt(5,6,A)ÖPause ÖGoto TOPÖLbl TRIÖClLCDÖDisp "Area of Triangle"ÖDisp "A=(1/2)bh or A=(3/4)s"ÖDisp ""ÖDisp "1. A=(1/2)bh"ÖDisp "2. A=(3/4)s"ÖDisp ""ÖInput "Equation: ",EÖIf E==1ÖGoto TRIAÖIf E==2ÖGoto TRIBÖGoto TRIÖLbl TRIAÖClLCDÖDisp "Area of Triangle"ÖDisp "A=(1/2)bh"ÖDisp ""ÖInput "base=",BÖInput "height=",HÖ(1/2)B*HAÖround(A,3)AÖDisp "area="ÖOutpt(6,6,A)ÖPause ÖGoto TOPÖLbl TRIBÖClLCDÖDisp "Area of Triangle"ÖDisp "A=(3/4)s"ÖDisp ""ÖInput "side=",SÖ(3/4)SAÖround(A,3)AÖDisp "area="ÖOutpt(5,6,A)ÖPause ÖGoto TOPÖLbl CIRÖClLCDÖDisp "Area of Circle"ÖDisp "A=Är"ÖDisp ""ÖInput "radius=",RÖÄRAÖround(A,3)AÖDisp "area="ÖOutpt(5,6,A)ÖPause ÖGoto TOPÖLbl RECÖClLCDÖDisp "Area of Rectangle"ÖDisp "A=LW"ÖDisp ""ÖInput "length=",LÖInput "width=",WÖL*WAÖround(A,3)AÖDisp "area="ÖOutpt(6,6,A)ÖPause ÖGoto TOPÖLbl ELLÖClLCDÖDisp "Area of Ellipse"ÖDisp "A=Äab"ÖDisp ""ÖInput "a=",AÖInput "b=",BÖÄA*BAÖround(A,3)AÖDisp "area="ÖOutpt(6,6,A)ÖPause ÖGoto TOPÖLbl TRAÖClLCDÖDisp "Area of Trapezoid"ÖDisp "A=(1/2)(B1+B2)h"ÖDisp ""ÖInput "base 1=",B1ÖInput "base 2=",B2ÖInput "height=",HÖ(1/2)(B1+B2)HAÖround(A,3)AÖDisp "area="ÖOutpt(7,6,A)ÖPause ÖGoto TOPÖLbl PARÖClLCDÖDisp "Area of Parallelogram"ÖDisp "A=bh"ÖDisp ""ÖInput "base=",BÖInput "height=",HÖB*HAÖround(A,3)AÖDisp "area="ÖOutpt(6,6,A)ÖPause ÖGoto TOPÖLbl PABÖClLCDÖDisp "Area of Parabola"ÖDisp "A=(2/3)bh"ÖDisp ""ÖInput "base=",BÖInput "height=",HÖ(2/3)B*HAÖround(A,3)AÖDisp "area="ÖOutpt(6,6,A)ÖPause ÖGoto TOPÖLbl CRRÖClLCDÖDisp "Area of Circular Ring"ÖDisp "A=2Äpw"ÖDisp ""ÖInput "p=",PÖInput "w=",WÖ2ÄP*WAÖround(A,3)AÖDisp "area="ÖOutpt(6,6,A)ÖPause ÖGoto TOPÖLbl EXT£¹