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