CLS

PRINT "SADEYA/INFORTECNICA"
PRINT

10 PRINT "CALCULO DEL PERIODO ORBITAL P"
PRINT
INPUT "INTROD. UNIDAD DE MASA (Sol=1, Tierra=2, Kg=3)"; MM1

INPUT "MASA 1"; m1
INPUT "MASA 2"; m2

IF MM1 = 3 THEN m1 = m1 / (1.989 * 10 ^ 30)
IF MM1 = 3 THEN m2 = m2 / (1.989 * 10 ^ 30)
IF MM1 = 2 THEN m1 = m1 * .000003
IF MM1 = 2 THEN m2 = m2 * .000003


INPUT "INTROD. UNIDAD DE DISTANCIA (U.A.=1, A.L.=2, Km=3)"; MN1



INPUT "DISTANCIA RADIO"; D

alua = 300000 / 149600000 * 3600 * 24 * 365.25
IF MN1 = 3 THEN D = D / 149600000
IF MN1 = 2 THEN D = D * alua




G = 4 * (3.141592 ^ 2)
P2 = G / (G * (m1 + m2)) * D ^ 3
p = SQR(P2)
P2 = p * 365.25
PRINT
PRINT "PERIODO ORBITAL (A,D)="; p; P2
PRINT
GOTO 10