Re: My 2nd and 3rd Prime Programs Message #3 Posted by Michael de Estrada on 30 Oct 2013, 4:53 p.m., in response to message #2 by Michael de Estrada
Also, FWIW, I wrote a program to do this before Tim W chimed in as follows:
EXPORT PR_Convert()
BEGIN
LOCAL X1,X2;
CHOOSE(N,"PR_Convert","Polar","Rectangular");
CASE
IF N==1 THEN
INPUT({X1,X2},"To Polar",{"X =","Y ="},{"Enter X","Enter Y"},{0,0});
PRINT("R = " + sqrt(X1˛+X2˛) );
PRINT("angle = " + ATAN(X2/X1) );
END;
IF N==2 THEN
INPUT({X1,X2},"To Rectangular",{"R =","angle ="},{"Enter R","Enter angle"},{0,0});
PRINT("X = " + X1*COS(X2) );
PRINT("Y = " + X1*SIN(X2) );
END;
DEFAULT
END;
END;
|