Trouver la mesure principale d'un angle orienté (Ti-89, Ti-89 Titanium, Ti-92+ et Voyage 200)

Bonjour,

Aujourd'hui je vais vous présenter un programme 68k permettant de trouver la mesure principale d'un angle orienté. Ainsi pour l'angle 7761π/763 [2π] il vous suffira simplement d'entrer les nombres 7761 et 763 pour que le programme vous donne la réponse avec, comme d'habitude, la démonstration à mettre sur la copie. Si ça c'est pas beau la vie ...

ATTENTION : Pour que ce programme fonctionne correctement, il faut que le mode Exact/Approx de votre Ti-89 soit réglé sur EXACT et non AUTO (par défaut)

Version téléchargeable Ti-89 et Ti-89 Titanium ici

1er écran

:mespinci(x,y) :Prgm :ClrIO :Disp "**************************" :Disp "Calcul de la mesure" :Disp " principale" :Disp "**************************" :Disp "Il faut"&string(2y)&"π/"&string(y)&" pour faire" :Disp " un tour" :Pause

2ème écran

:ClrIO :Local z,t :int(x/(2y))→z :x-z*2*y→z :Disp string(x)&"="&string(2y)&"*" &string(z)&"+"&string(t) :Disp string(x)&"π/"&string(y)&"=" &string(t)&"π[2π]/"&string(y) :t*π/y→t :Disp "="&string(t)&"[2π]" :If t>π Then :t-2π→t :EndIf :Disp string(t)&"c]-π:π]", "donc "&string(t)&" est la mesure", "principale de"&string(x*π/y) :EndPrgm

Loïc