Final few http://tibasicdev.wikidot.com/forum/t-1090787/final-few Posts in the discussion thread "Final few" - for now Wed, 22 Apr 2026 14:28:17 +0000 http://tibasicdev.wikidot.com/forum/t-1090787#post-2222581 Re: Final few http://tibasicdev.wikidot.com/forum/t-1090787/final-few#post-2222581 Mon, 02 Feb 2015 01:45:45 +0000 Timtech 2029530 Please do.

]]> http://tibasicdev.wikidot.com/forum/t-1090787#post-2220352 Re: Final few http://tibasicdev.wikidot.com/forum/t-1090787/final-few#post-2220352 Fri, 30 Jan 2015 13:47:16 +0000 Trenly 1905506 If you want that would be great! Is it just set up as one program? How exactly is is set up?

]]> http://tibasicdev.wikidot.com/forum/t-1090787#post-2219985 Re: Final few http://tibasicdev.wikidot.com/forum/t-1090787/final-few#post-2219985 Fri, 30 Jan 2015 02:28:08 +0000 Silver Phantom 1430989 … reminds me of my 2 year endeavor to program every area and volume into the calc. if you want it, i can upload it

]]> http://tibasicdev.wikidot.com/forum/t-1090787#post-2219984 Final few http://tibasicdev.wikidot.com/forum/t-1090787/final-few#post-2219984 Fri, 30 Jan 2015 02:25:11 +0000 Trenly 1905506 I know its a lot so here ya go
1:

Lbl R ClrHome ClrDraw Menu("Object?","Regular",1,"Cone",2,"Pyramid",3,"Sphere",4,"Cylynder",5,"Irregular",6,"Exit?",7 Pause Lbl 7 Menu("Are you sure?","Yes",8,"No",R Pause Lbl 8 Asm(prgmZDONE) Return Pause Lbl 1 Input "Length:",L Input "Width:",W Input "Height:",H L*W*H->A ClrHome Output(1,1,"Volume:" Output(1,9,A) Pause ClrHome Menu("Exit?","Yes",8,"No",R Lbl 2 ClrHome Input "Radius:",R Input "Height:",H piR^^2(H/3)->A ClrHome Output(1,1,"Volume:" Output(1,9,A) Pause ClrHome Menu("Exit?","Yes",8,"No",R Lbl 3 ClrHome Input "Base area:",B Input "Height:",H (B*H)/3->A ClrHome Output(1,1,"Volume:" Output(1,9,A Pause ClrHome Menu("Exit?","Yes",8,"No",R Lbl 4 ClrHome Input "Radius:",R (4/3)pi(R^^3)->A A/2->B ClrHome Output(1,1,"Volume:" Output(1,9,A Output(2,1,"Hemi.Vol:" Output(2,11,B) Pause ClrHome Menu("Exit?","Yes",8,"No",R Lbl 5 ClrHome Input "Radius:",R Input "Height:",H piR^^2*H->A ClrHome Output(1,1,"Volume:" Output(1,9,A Pause ClrHome Menu("Exit?","Yes",8,"No",R Lbl 6 ClrHome Input "Base:",B Input "Height:",H B*H->A ClrHome Output(1,1,"Volume:" Output(1,9,A Pause ClrHome Menu("Exit?","Yes",8,"No",R

2: 
Lbl R ClrHome Menu("Shape?","Regular",1,"Triangle",2,"Circle",3,"Trapezoid",4,"Regular polygon",5,"Exit?",8 Lbl 8 ClrHome Asm(prgmZDONE) Return Lbl 1 ClrHome Input "Base:",B Input "Height:",H BH->A ClrHome Output(1,1,"Area=" Output(1,6,A) Pause Goto 7 Lbl 2 ClrHome Input "Base:",B Input "Height:",H .5BH->A ClrHome Output(1,1,"Area=" Output(1,6,A Pause Goto R Lbl 3 Menu("Type?","Circle",CR,"Sector",AS,"Exit?",R Lbl CR ClrHome Input "Radius:",R piR^^2->A ClrHome Output(1,1,"Area=" Output(1,6,A Pause Goto R Lbl AS Input "theta=",A Input "Radius=",R (A/360)(piR^^2)->B ClrHome Output(1,1,"Area=" Output(1,6,B Pause Goto R Lbl 4 ClrHome Input "Base 1:",B Input "Base 2:",C Input "Height:",H (B+C)/2->D DH->A ClrHome Output(1,1,"Area=" Output(1,6,A Pause Goto R Lbl 5 ClrHome Input "Numb. of sides:",N Input "Perimeter:",P 360/N->Z P/N->S S/2->H Z/2->B 270-B->O H*tan(O)->Y Y*H->T T*N->A ClrHome Output(1,1,"Area=" Output(1,6,A Pause Goto R

3: 
ClrHome ClrDraw Lbl R Menu("Shape:","Regular",1,"Sphere",2,"Hemisphere",3,"Cone",4,"Pramid",5,"Other",6,"Exit?",7 Lbl 7 ClrHome Menu("Are you sure?","Yes",8,"No",R Lbl 8 ClrHome Asm(prgmZDONE) Return Lbl 1 ClrHome Input "Length:",L Input "Width:",W Input "Height:",H (L*W*2)+(H*W*2)+(L*H*2)->A ClrHome Output(1,1,"Surface Area:" Output(2,1,A) Pause ClrHome Menu("Exit?","Yes",8,"No",R Lbl 2 ClrHome Input "Radius:",R 4piR^^2->A ClrHome Output(1,1,"Surface Area:" Output(2,1,A Pause Menu("Exit?","Yes",8,"No",R Lbl 3 ClrHome Input "Radius:",R 3piR^^2->A ClrHome Output(1,1,"Surface Area:" Output(2,1,A Pause Menu("Exit?","Yes",8,"No",R Lbl 4 ClrHome Input "Radius:",R Input "Slant Height:",L (piRL)+(piR^^2)->A ClrHome Output(1,1,"Surface Area:" Output(2,1,A Pause Menu("Exit?","Yes",8,"No",R Lbl 5 ClrHome Input "Number of sides:",N Input "Side length:",L Input "Slant height:",H Input "Base area:",B (.5*L*H*N)+B->A ClrHome Output(1,1,"Surface Area:" Output(2,1,A) Pause Menu("Exit?","Yes",8,"No",R Lbl 6 ClrHome Menu("Other Shapes:","Cylynder",9,"Polygon",10,"Exit?",7 Lbl 9 ClrHome Input "Radius:",R Input "Height:",H (2piR^^2)+(2piRH)->A ClrHome Output(1,1,"Surface Area:" Output(2,1,A Pause Menu("Exit?","Yes",8,"No",R Lbl 10 ClrHome Input "Number of sides:",N Input "Side length:",L Input "Height:",H Input "Base area:",B (N*L*H)+(2B)->A ClrHome Output(1,1,"Surface Area:" Output(2,1,A) Pause Menu("Exit?","Yes",8,"No",R

4: 
Lbl N AxesOff PlotsOff ClrDraw ClrHome Disp "(A,B)(C,D)" Input ("A: ",A) Input ("B: ",B) Input ("C: ",C) Input ("D: ",D) (B+D)/2->Z (C-A)->E (D-B)/(E)->S B-SA->I (A+C)/2->X round(I,2)->I (C-A)^^2+(D-B)^^2->R round(S,2)->S round(R,2)->R round(X,2)->X round(Z,2)->Y Text(1,1,"(",A,",",B,")(",C,",",D,")" Text(7,1,"---------------------------------------------" Text(14,1,"Slope: ",S Text(21,1,"Y-int: ",I Text(28,1,"Midpoint: (",X,",",Z,")" Text(35,1,"Distance: sqrt(",R,")" Text(42,1,"Distance: ",round(sqrt(R),4) Text(49,1,"SI Form: Y=",S,"X+",I," Text(56,1,"PS Form: Y-",B,"=",S,"(X-",A,")" Pause Menu("Exit?","Yes",Z,"No",N Lbl Z ClrHome ClrDraw AxesOn Asm(prgmZDONE) Return

5: 
Lbl RE ClrHome Degree Menu("TYPE","SSS",1,"SAS",2,"SAA",3,"ASA",4,"ASS",5,"Exit?",8 Lbl 6 ClrHome Float Asm(prgmZDONE) Return Lbl 1 Input "SIDE AB: ",C Input "SIDE BC: ",A Input "SIDE AC: ",B (A+B+C)/2->S sqrt(S(S-A)(S-B)(S-C)->R cos^-1((B^^2+C^^2-A^^2)/(2BC))->D cos^-1((A^^2+C^^2-B^^2)/(2AC))->E 180-D-E->F Lbl O Fix 4 ClrHome Output(1,1,"ANG a: " Output(1,8,round(D,4) Output(2,1,"ANG b: " Output(2,8,round(E,4) Output(3,1,"ANG c: " Output(3,8,round(F,4) Output(4,1,"A: " Output(4,4,round(A,4) Output(5,1,"B: " Output(5,4,round(B,4) Output(6,1,"C: " Output(6,4,round(C,3 Output(7,1,"AREA: " Output(7,6,round(R,4 Pause ClrHome Menu("Exit?","Yes",6,"No",RE Float Return Lbl 2 Input "SIDE AB: ",C Input "ANGLE b: ",E Input "SIDE BC: ",A sqrt(A^^2+C^^2-2ACcos(E))->B cos^-1((B^^2+C^^2-A^^2)/(2BC))->D 180-D-E->F .5ABsin(F)->R Goto O Lbl 3 Input "SIDE AB: ",C Input "ANGLE b: ",E Input "ANGLE c: ",F 180-E-F->D Csin(D)/sin(F)->A sqrt(A^^2+C^^2-2ACcos(E))->B (A+B+C)/2->S sqrt(S(S-A)(S-B)(S-C))->R Goto O Lbl 4 Input "ANGLE a: ",D Input "SIDE AB: ",C Input "ANGLE b: ",E 180-D-E->F Csin(D)/sin(F)->A Csin(E)/sin(F)->B (A+B+C)/2->S sqrt(S(S-A)(S-B)(S-C))->R Goto O Lbl 5 Input "SIDE AB: ",C Input "SIDE BC: ",A Input "ANGLE c: ",F sin^-1((Asin(F)/C)->D 180-D-F->E (sin(E)*C)/sin(F)->B Goto O Lbl 8 Menu("Exit?","Yes",6,"No",RE

6: 
Lbl R ClrHome Fix 1 ClrDraw Menu("Have?","Coords",1,"Radius",2,"Exit?",7 Lbl 7 ClrHome Menu("Are you sure?","Yes",8,"No",R Lbl 8 ClrHome Float Asm(prgmZDONE) Return Lbl 2 ClrHome Menu("Need?","Circumfrence",3,"Diameter",4,"Area",5,"Point",6,"Equation",9,"Exit?",7 Lbl 1 ClrHome Menu("Need?","Radius",A,"Diameter",B,"Circumfrence",C,"Area",D,"Equation",F,"Exit?",7 Lbl 3 ClrHome Input "Radius:",R 2piR->A ClrHome Output(1,1,"Circumfrence:" Output(2,1,A) Pause Goto Z Lbl 4 ClrHome Input "Radius:",R 2R->A ClrHome Output(1,1,"Diameter:" Output(1,10,A) Pause Goto Z Lbl 5 ClrHome Input "Radius:",R piR^^2->A ClrHome Output(1,1,"Area:" Output(1,6,A Pause Goto Z Lbl A Output(1,1,"(A,B)(X,Y)" Pause ClrHome Prompt A,B,X,Y sqrt((A-X)^^2+(B-Y)^^2)->A ClrHome Output(1,1,"Radius:" Output(1,9,A) Pause Goto Z Lbl B ClrHome Output(1,1,"(A,B)(X,Y)" Pause ClrHome Prompt A,B,X,Y 2(sqrt((A-X)^^2+(B-Y)^^2)->A ClrHome Output(1,1,"Diameter:" Output(1,10,A) Pause Goto Z Lbl C ClrHome Output(1,1,"(A,B)(X,Y)" Pause ClrHome Prompt A,B,X,Y 2pi(sqrt((A-X)^^2+(B-Y)^^2)->A ClrHome Output(1,1,"Circumfrence:" Output(2,1,A) Pause Goto Z Lbl D ClrHome Output(1,1,"(A,B)(X,Y)" Pause ClrHome Prompt A,B,X,Y pi((A-X)^^2+(B-Y)^^2)->A ClrHome Output(1,1,"Area:" Output(1,6,A) Pause Goto Z Lbl F ClrHome Output(1,1,"(A,B)(X,Y)" Pause ClrHome Prompt A,B,X,Y ClrHome Output(1,1,"R=sqrt((") Output(1,6,A) Output(1,7,"-" Output(1,8,X) Output(1,9,")^^2+") Output(2,7,"(" Output(2,8,B) Output(2,9,"-") Output(2,10,Y) Output(2,11,")^^2)" Pause Goto Z Lbl 6 ClrHome Input "Radius:",R Input "X:",X Input "Y:",Y Y+R->A ClrHome Output(1,1,"Point at:" Output(2,1,"X:" Output(2,3,X) Output(3,1,"Y:" Output(3,3,A) Pause Goto Z Lbl 9 ClrHome Input "Radius:",R Input "X:",X Input "Y:",Y Y+R->A ClrHome Output(1,1,"R=sqrt((" Output(1,6,X Output(1,8,"-" Output(1,9,X Output(1,11,")^^2+" Output(2,7,"(" Output(2,8,A) Output(2,10,"-" Output(2,11,Y) Output(2,13,")^^2)" Pause Goto Z Lbl Z ClrHome Menu("Exit?","Yes",8,"No",R
]]>