al = année lumière
al = 365,25j × 86 400 s/j × 299 792 458 m/s = 9 460 730 472 580 800 m
al = environ 9 461milliards de kilomètres ou environ 0,306 59 parsec
     ou encore =9 460,730 téramètres ou 9,460 730 pétamètres.
c  = vitesse de la lumière dans le vide299 792 458 m/s

ua = unité astronomique 149 597 870 700 mètres (distance Terre Soleil)
pc = parsec c'est la contraction de parallaxe-seconde
distance à laquelle une ua est vue sous un angle d'une seconde d'arc
nouvelle définition: "648000 ua / pi" ou ≈ 3,26 al

1 parsec = (648 000/π) unités astronomiques ≈ 206 264,806 247 ua ;
1 pc = (96 939 420 213 600 000/π) mètres ≈ 3,085 677 581 × 1016 m ;
1 pc = (96 939 420 213 600 000/(9 460 730 472 580 800 π)) années-lumière (= (10 246 429 500/(999 992 651 π)) années-lumière)
soit 1 pc ≈ 3,261 563 777 al.
---------------------------------------------
PROGRAM:PARSEC

0→A:0→P
0→C:0→N:0→R
EffÉcran

Disp "--------------------------"
Disp "Convertir al en parsec
Disp "année(s)-lumière.......= 1
Disp "--------------------------"
Disp "Convertir parsec en al
Disp "parallaxe-seconde......= 2
Disp "--------------------------"

Input "Votre choix = ",C
If C=1 ou C=2:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

If C=1
N/3,261563777→R

If C=2
N*3,261563777→R

EffÉcran

If C=1:Then
Output(2,1,N)
Output(2,20,"annlum."
Output(9,1,R)
Output(9,20,"parsec."
End

If C=2:Then
Output(2,1,N)
Output(2,20,"parsec."
Output(9,1,R)
Output(9,20,"annlum."
End

Output(5,5,"correspondent à")

Pause 
EffÉcran

---------------------------------------------
seconde-lumière...= 299 792 458 m
minute-lumière....= 17 987 547 480 m
heure-lumière.....= 1 079 252 848 800 m
jour-lumière......= 25 902 068 371 200 m
année-lumière.....= 9 460 730 472 580 800 m
siècle-lumière....= 946 073 047 258 080 000 m
---------------------------------------------