TI-84
Plus CE and Sharp EL-9600c: Composite Area
The
program COMPAREA will compile a composite area made of the following geometric
shapes:
*
Right Triangle: base and height known
*
General Triangle: side lengths known
*
Rectangle: side lengths known
*
Square: length of side known
*
Ellipse: lengths of the semi-axis known
*
Circle: radius known
Holes
can accounted for entering one of the measurements as negative:
*
For circular holes, choose Ellipse with A = -radius, B = radius. (A < 0)
*
For square holes, choose Rectangle with A = -side
length, B = side length. (A <
0)
TI-84
Plus CE Program COMPAREA
"EWS
2017-07-12"
0→T
Lbl
0
Menu("COMPOSITE
AREA","RIGHT
TRIANGLE",1,"TRIANGLE",2,"RECTANGLE",3,"SQUARE",4,"ELLIPSE",5,"CIRCLE",6,"FINAL",7)
Lbl
1
Disp
"RIGHT TRIANGLE"
Prompt
B,H
T+B*H/2→T
Goto
0
Lbl
2
Disp
"TRIANGLE"
Prompt
A,B,C
(A+B+C)/2→S
√(S*(S-A)*(S-B)*(S-C))+T→T
Goto
0
Lbl
3
Disp
"RECTANGLE"
Prompt
A,B
T+A*B→T
Goto
0
Lbl
4
Disp
"SQUARE"
Prompt
A
T+A²→T
Goto
0
Lbl
5
Disp
"ELLIPSE"
Prompt
A,B
T+π*A*B→T
Goto
0
Lbl
6
Disp
"CIRCLE"
Input
"RADIUS: ",A
T+π*A²→T
Goto
0
Lbl
7
Disp
"TOTAL AREA=",T
Sharp
EL-9600c Program COMPAREA
0⇒T
Label
MENU
Print
“1. RIGHT TRIANGLE
Print
“2. TRIANGLE
Print
“3. RECTANGLE
Print
“4. SQUARE
Print
“5. ELLIPSE/CIRCLE
Print
“6. FINAL
Input
I
If
I=1 Goto RTRI
If
I=2 Goto GTRI
If
I=3 Goto RECT
If
I=4 Goto SQUA
If
I=5 Goto CIRC
If
I=6 Goto CALC
Goto
MENU
Label
RTRI
Print
“RIGHT TRIANGLE
Input
B
Input
H
T +
B*H/2 ⇒ T
Goto
MENU
Label
GTRI
Print
“TRIANGLE
Input
A
Input
B
Input
C
(A
+ B + C)/2 ⇒ S
√(S
* (S – A) * (S – B) * (S – C)) + T ⇒ T
Goto
MENU
Label
RECT
Print
“RECTANGLE
Input
A
Input
B
T +
A*B ⇒ T
Goto
MENU
Label
SQUA
Print
“SQUARE
Input
A
T +
A^2 ⇒ T
Goto
MENU
Label
CIRC
Print
“ELLIPSE/CIRCLE
Print
“CIRCLE: A=B
Input
A
Input
B
T +
π*A*B ⇒ T
Goto
MENU
Label
CALC
Print
“TOTAL AREA=
Print
T
Examples
Example
1:
Composite
area of:
(I): Right triangle: base of 3, height of 8
(II):
Rectangle: side lengths of 8 and 15
(III):
General triangle: side lengths of 8, 6, and 6
Result: 149.8885438
Example
2:
(I): Rectangle: lengths of 10 and 20
(II): Circular hole with radius of 2.5. (Enter as ellipse: A = -2.5, B = 2.5)
(III):
Square hole with side of 5 (Enter as rectangle, A = -5, B = 5)
Result: 155.3650459
Eddie
This
blog is property of Edward Shore, 2017.
