Final few

Forum Attachments

Summary:

for now

Final few

Trenly 30 Jan 2015 02:25

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

Re: Final few

Silver Phantom 30 Jan 2015 02:28

… reminds me of my 2 year endeavor to program every area and volume into the calc. if you want it, i can upload it

---

The Silver Phantom welcomes you

Re: Final few

Trenly 30 Jan 2015 13:47

If you want that would be great! Is it just set up as one program? How exactly is is set up?

Re: Final few

Timtech 02 Feb 2015 01:45

Please do.