PRINT
PRINT "標準表示　→　極座標表示"
PRINT
INPUT PROMPT " χ,ｙ   ":x,y
PRINT
LET r=ROUND(SQR(x^2+y^2),2)
IF x=0 THEN
   LET Z=PI/2
ELSE
   LET Z=ATN(y/x)
END IF
LET k=ROUND(Z*180/PI,2)
PRINT "(";r;"× cos (";k;"度 ) , ";r;"× sin (";k;"度 ) )"
PRINT
END



#####################################################################



PRINT
PRINT "極座標表示　→　標準表示"
PRINT
INPUT PROMPT " ｒ, θ（度）   ":r,k
PRINT
LET x=ROUND(r*cos(k*PI/180),2)
LET y=ROUND(r*sin(k*PI/180),2)
PRINT "( ";x;" , ";y;" )"
PRINT
END