VOLUMES for the TI-81 This program will solve anything involving a shape's volume for the following shapes: 1. Sphere 2. Cylinder 3. Cone 4. Cube 5. Pyramid The program is pretty self-explanatory, just choose an option when it comes up. ~ is squared \/ is the square root sign ^ is cubed ^\/ is the cube root sign (under the math menu) @ is pi Prgm:VOLUMES :ClrHome :Disp " VOLUMES" :Disp "1 SPHERE" :Disp "2 CYLINDER" :Disp "3 CONE" :Disp "4 CUBE" :Disp "5 PYRAMID" :Disp "ANY OTHER QUITS" :Input N :ClrHome :If N=1 :Goto 1 :If N=2 :Goto 2 :If N=3 :Goto 3 :If N=4 :Goto 4 :If N=5 :Goto 5 :End :Lbl 1 :Disp " FIND WHAT?" :Disp "1 RADIUS" :Disp "2 VOLUME" :Input N :ClrHome :If N=1 :Goto 6 :If N=2 :Goto 7 :Lbl 6 :Disp "VOLUME?" :Input V :^\/(3V/4/@ :Disp "RADIUS IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program :Lbl 7 :Disp "RADIUS?" :Input R :4@R^/3 :Disp "VOLUME IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program :Lbl 2 :Disp " FIND WHAT?" :Disp "1 RADIUS" :Disp "2 HEIGHT" :Disp "3 VOLUME" :Input N :ClrHome :If N=1 :Goto 8 :If N=2 :Goto 9 :If N=3 :Goto 0 :Lbl 8 :Disp "VOLUME?" :Input V :Disp "HEIGHT?" :Input H :\/(V/@/H :Disp "RADIUS IS" :Disp Ans :Pause :Prgm# replace the '#" sign with the letter or number of this program :Lbl 9 :Disp "VOLUME?" :Input V :Disp "RADIUS?" :Input R :V/@/R~ :Disp "HEIGHT IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program :Lbl 0 :Disp "RADIUS?" :Input R :Disp "HEIGHT?" :Input H :@R~ :Disp "VOLUME IS" :Disp Ans :Pause :Prgm# replace the '#" sign with the letter or number of this program :Lbl 3 :Disp " FIND WHAT?" :Disp "1 RADIUS" :Disp "2 HEIGHT" :Disp "3 VOLUME" :Input N :ClrHome :If N=1 :Goto A :If N=2 :Goto B :If N=3 :Goto C :LBl A :Disp "VOLUME?" :Input V :Disp "HEIGHT?" :Input H :\/(3V/@/H :Disp "RADIUS IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program :Lbl B :Disp "VOLUME?" :Input V :Disp "RADIUS?" :Input R :3V/@/R~ :Disp "HEIGHT IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program :Lbl C :Disp "RADIUS?" :Input R :Disp "HEIGHT?" :Input H :@R~H/3 :Disp "VOLUME IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program :Lbl 4 :Disp " FIND WHAT?" :Disp "1 SIDE" :Disp "2 VOLUME" :Input N :ClrHome :If N=1 :Goto D :If N=2 :Goto E :Lbl D :Disp "VOLUME?" :Input V :^\/V :Disp "SIDE IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program :Lbl E :Disp "SIDE?" :Input S :S^ :Disp "VOLUME IS" :Disp Ans :Pause :Prgm# replace the '#" sign with the letter or number of this program :Lbl 5 :Disp " FIND WHAT?" :Disp "1 AREA OF BASE" :Disp "2 HEIGHT" :Disp "3 VOLUME" :Input N :ClrHome :If N=1 :Goto F :If N=2 :Goto G :If N=3 :Goto H :Lbl F :Disp "VOLUME?" :Input V :Disp "HEIGH?" :Input H :3V/H :Disp "AREA OF BASE IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program :Lbl G :Disp "VOLUME?" :Input V :Disp "AREA OF BASE?" :Input B :3V/B :Disp "HEIGHT IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program :Lbl H :Disp "AREA OF BASE?" :Input B :Disp "HEIGHT?" :Input H :BH/3 :Disp "VOLUME IS" :Disp Ans :Pause :Prgm# replace the '#' sign with the letter or number of this program Vicken Aghazarian vicken_a@hotmail.com