**HP Prime and Casio fx-CG50: Trapezoid Midsegment, Height, Area**

The program
TRAPEZ calculates the following:

Midsegment
length: M = (A + B)/2

Height: H = √( (-A+B+C+D)(A-B+C+D)(A-B+C-D)(A-B-C+D)
)/(2 * abs(B-A))

Area: K = M * H

**HP Prime Program TRAPEZ**

EXPORT
TRAPEZ()

BEGIN

// trapezoid

// 2017-06-23 EWS

INPUT({A,B,C,D},

"Trapezoid",

{"a: ","b: ","c:
","d: "},

{"Top","Bottom","Left","Right"});

M:=(A+B)/2;

I:=(−A+B+C+D)*(A-B+C+D)*(A-B+C-D)*

(A-B-C+D);

IF I≤0 THEN

PRINT();

PRINT("Invalid Trapezoid");

ELSE

H:=√(I)/(2*ABS(B-A));

K:=H*M;

PRINT();

PRINT("Midlength = "+M);

PRINT("Height = "+H);

PRINT("Area = "+K);

END;

END;

**Casio fx-CG50 Program TRAPEZ**

"TOP"?->A

"BOTTOM"?->B

"LEFT"?->C

"BOTTOM"?->D

(A+B)/2->M

((-)A+B+C+D)(A-B+C+D)(A-B+C-D)(A-B-C+D)->I

If I<=0

Then

"INVALID
TRAPEZIOD"DispsElse

√I/(2Abs
(B-A))->H

M*H->K

ClrText

Locate
1,1,"MIDLENGTH="

Locate 1,2,M

Locate
1,3,"HEIGHT="

Locate 1,4,H

Locate
1,5,"AREA="

Locate 1,6,K

IfEnd

**Example**

A = 13, B = 23,
C = 6, D = 7

Results:

Midlength, M =
18

Height, H =
4.139493194

Area, A =
74.3848775

Source:

“Trapezoid” Wikipedia.
Edited July 7, 2014. Retrieved
July 8, 2014

Current page: https://en.wikipedia.org/wiki/Trapezoid

Eddie

This blog is
property of Edward Shore, 2017.

## No comments:

## Post a Comment