PATHAGORIAN THEORUM.bas<
@é<;˜b<;TEXTSmBa`@pÀd@pÀHSMainü
Nî8N6 N6ÁXºëdûøÁYtNº ' PATHAGORIAN THEORUM.bas
?CAT(87);
INPUT "SOLVE FOR 1-HYPOTENUSE 2-A SIDE 3-EQUAL SIDES: ", x
IF x=1 THEN
INPUT "ENTER LENGTH OF SIDES (A,B): ",y,z
h=SQR(POW(y,2)+POW(z,2))
? "HYPOTENUSE = ";h
ELIF x=2
INPUT "ENTER LENGTH OF (HYPOTENUSE,SIDE): ",y,z
s=SQR(POW(y,2)-POW(z,2)) 
? "OTHER SIDE = ";s 
ELIF x=3
INPUT "ENTER LENGTH OF HYPOTENUSE: ",y
s=SQR(POW(y,2)/2)
? "SIDES = ";s
FI
END

ND
Source: geocities.com/renwand
