Voici un petit programme simple qui permet de convertir la mesure d'un angle en degré ou en radian:
- Code:
EffEcr
Menu("ON VEUT","DEGRE",1,"RADIAN",2
Lbl 1
Input "ANGLE(RAD):",R
R180/pi->X
EffEcr
Disp "ANGLE(°):",X
Stop
Lbl 2
Input "ANGLE(°):",D
Dpi/180->X
EffECr
Disp "ANGLE(RAD):",X
Stop
Au passage comment peux t-on "simplifier" l'affichage du résultat en radian, avec la forme fractionnelle et π (pi) au numérateur ?
Je donne un exemple:
J'ai un angle de 52,5°, je voudrais qu'il affiche 7π/24...