PERIMETERS for the TI-81

This program will solve anything involving a shape's perimeter for the 
following shapes:

1. Circle
2. Triangle
3. Parallelogram
4. Rectangle
5. Rhombus
6. Square
7. Regular polygon.

The program is pretty self-explanatory, just choose an option when it comes 
up.

@ is pi
/->/ is the store sign
/<=/ is the less than or equal to sign

Prgm:PERIMETR
:ClrHome
:Disp "   PERIMETERS"
:Disp "1 CIRCLE"
:Disp "2 TRIANGLE"
:Disp "3 QUADRILATERAL 4 REG. POLYGON"
: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
:End
:Lbl 1
:Disp "   FIND WHAT?"
:Disp "1 CIRCUMFERENCE 2 DIAMETER"
:Input N
:ClrHome
:If N=1
:Goto 5
:If N=2
:Goto 6
:Lbl 5
:Disp "DIAMETER?"
:Input D
:@D
:Disp "CIRCUMFERENCE IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 6
:Disp "CIRCUMFERENCE?"
:Input C
:C/@
:Disp "DIAMETER IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 2
:Disp "   FIND WHAT"
:Disp "1 PERIMETER"
:Disp "2 ONE SIDE"
:Input N
:ClrHome
:If N=1
:Goto 7
:If N=2
:Goto 8
:Lbl 7
:Disp "SIDE 1?"
:Input A
:Disp "SIDE 2?"
:Input B
:Disp "SIDE 3?"
:Input C
:A+B+C
:Disp "PERIMETER IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 8
:Disp "PERIMETER?"
:Input P
:Disp "SIDE 1?"
:Input A
:Disp "SIDE 2?"
:Input B
:P-A-B
:If Ans/<=/0
:End
:Disp "OTHER SIDE IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 3
:Disp " QUADRILATERALS"
:Disp "1 PARALLELOGRAM 2 RECTANGLE"
:Disp "3 RHOMBUS"
:Disp "4 SQUARE"
:Input N
:ClrHome
:If N=1
:Goto 9
:If N=2
:Goto 9
:If N=3
:Goto 0
:If N=4
:Goto 0
:Lbl 9
:Disp "   FIND WHAT?"
:Disp "1 PERIMETER"
:Disp "2 LENGTH"
:Disp "2 WIDTH"
:Input N
:ClrHome
:If N=1
:Goto A
:If N=2
:Goto B
:If N=3
:Goto C
:Lbl A
:Disp "LENGTH?"
:Input L
:Disp "WIDTH?"
:Input W
:2L+2W
:Disp "PERIMETER IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl B
:Disp "PERIMETER?"
:Input P
:Disp "WIDTH?"
:Input W
:.5(P-2W
:Disp "LENGTH IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl C
:Disp "PERIMETER?"
:Input P
:Disp "LENGTH?"
:Input L
:.5(P-2L
:Disp "WIDTH IS"
:Disp Ans
:Pause
:Prgm# replace the '#" sign with the letter or number of this program
:Lbl 0
:Disp "   FIND WHAT?"
:Disp "1 PERIMETER"
:Disp "2 SIDE"
:Input N
:ClrHome
:If N=1
:Goto D
:If N=2
:Goto E
:Lbl D
:Disp "SIDE?"
:Input S
:4S
:Disp "PERIMETER IS"
:Disp Ans
:Pause
:Prgm# replace te '#' sign with the letter or number of this program
:Lbl E
:Disp "PERIMETER?"
:Input P
:P/4
:Disp "SIDE IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl 4
:Disp "   FIND WHAT?"
:Disp "1 PERIMETER"
:Disp "2 SIDE"
:Disp "3 NUM. OF SIDES"
:Input N
:ClrHome
:If N=1
:Goto F
:If N=2
:Goto G
:If N=3
:Goto H
:Lbl F
:Disp "SIDE?"
:Input S
:Disp "NUM. OF SIDES?"
:Input N
:SN
:Disp "PERIMETER IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl G
:Disp "PERIMETER?"
:Input P
:Disp "NUM. OF SIDES?"
:Input N
:P/N
:Disp "SIDE IS"
:Disp Ans
:Pause
:Prgm# replace the '#' sign with the letter or number of this program
:Lbl H
:Disp "PERIMETER?"
:Input P
:Disp "SIDE?"
:Input S
:P/S
:Disp "THERE ARE"
:Disp Ans
:Disp "SIDES"
:Pause
:Prgm# replace the '#' sign with the letter or number of this program

Vicken Aghazarian
vicken_a@hotmail.com