PROGRAM:DMSDD

EffÉcran

Disp ""
Disp "**************************"
Disp ""
Disp "Convertir DMS -> DD      1"
Disp ""
Disp "Convertir DD -> DMS      2"
Disp ""
Disp "**************************"
Disp ""

Input "Votre choix = ",C
If C=1:Goto DM
If C=2:Goto DD
If C<1 ou C>2:Goto F
EffÉcran

Lbl DM
EffÉcran

Disp "**************************"
Input "Degrés  = ",D:Output(2,14,"°")
Input "Minutes = ",M:Output(3,14,"'")
Input "Seconde = ",S:Output(4,17,"''")
Disp "--------------------------"

While D>360 ou M>60 ou S>60
If D>360:D-360→D
If M>60:M-60→M
If S>60:S-60→S
End

S/60→R
M+R→R

Output(6,2,"D  ="):Output(6,8,D):Output(6,11,"°")
Output(6,13,R):Output(6,20,"'")
R/60→R
D+R→R
Output(8,2,"DD = "):Output(8,8,R):Output(8,16,"°")
Output(10,1,"**************************")

Goto F

Lbl DD
EffÉcran

Disp "**************************"
Input "Degrés = ",D
Output(2,18,"°")
Disp "--------------------------"

While D>360
D-360→D
End

partEnt(D)→E
partDéc(D)→R

R*60→M

Output(4,2,"D ="):Output(4,6,E):Output(4,9,"°")
Output(5,2,"M ="):Output(5,6,M):Output(5,13,"'")

partDéc(M)→S
partEnt(M)→M

S*60→S
arrondir(S,2)→S
Output(7,2,"D ="):Output(7,6,E):Output(7,9,"°")
Output(8,2,"M ="):Output(8,6,M):Output(8,9,"'")
Output(9,2,"S ="):Output(9,6,S):Output(9,12,"''")
Output(10,1,"**************************")
Goto F

Lbl F
Pause 
EffÉcran