مجموعة برامج بلغة الـ Q.basic

البرنامج رقم 1...
برنامج تحويل النظام العشري الى ستيني...

CLS
INPUT "Hour or Angle:"; X
N1 = INT(X)
N2 = INT((X - N1) * 60)
N3 = INT(((X - N1) * 60 - N2) * 60)
PRINT N1; N2; N3
END

**************************

البرنامج رقم 2...
برنامج تحويل النظام الستيني الى عشري...

CLS
INPUT "Hour:"; H
INPUT "Minute:"; N
INPUT "Second:"; S
X = H + (N + S / 60) / 60
PRINT "Hour or Angle:"; X
END

**************************

 البرنامج رقم 3...
برنامج حساب عدد الايام لتاريخ معين...

CLS
INPUT "Year:"; Y
INPUT "Month:"; M
INPUT "Day:"; D
INPUT "Hour:"; H
INPUT "Minute"; N
B = 0
IF 10000 * Y + 100 * M + D > 15821015 THEN B = 2 - INT(Y / 100) + INT(Y / 400)
M = M + 1
IF M < 4 THEN M = M + 12: Y = Y - 1
DD = INT(365.25 * Y) + INT(30.6 * M) + D + B + (H - Z + N / 60) / 24 - 429
PRINT "Days Since 1/1/1 AD:"; DD
PRINT " Days Since 1/1/2001 AD:"; DD - 730487
END

************************

البرنامج رقم 4...
برنامج لحساب التقويم الميلادي لعدد من الايام (عكس برنامج 3)...

CLS
INPUT "Days:"; DD
F = DD - INT(DD)
I = DD - F
IF I > 577736 THEN A = INT((I + 306) / 36524.25): I = I + A - INT(A / 4) - 2
Y = INT((I + 306) / 365.25)
C = I - INT(Y * 365.25) + 429
G = INT(C / 30.6001)
M = G - 1: IF G > 13 THEN M = M - 12
IF M < 3 THEN Y = Y + 1
D = C - INT(G * 30.6001)
PRINT "Date:"; Y; M; D; F * 24 END  

*************************

البرنامج رقم 5...
برنامج حساب الوقت النجمي لشروق وغروب جرم معين في موقع معين...

CLS
PI = 57.29577951#
INPUT "Decl:"; D
INPUT "RA:"; R
INPUT "Lat:"; T
D = D / PI
T = T / PI
K = -TAN(D) * TAN(T)
IF K < -1 THEN PRINT "Never Sets.": END
IF K > 1 THEN PRINT "Never Rises.": END
C = ATN(SQR(1 - K ^ 2) / K)
C = C * PI / 15
IF C < 0 THEN C = C + 12
RT = R - C
RT = RT - INT(RT / 24) * 24
ST = R + C
ST = ST - INT(ST / 24) * 24
PRINT "Siderial Rise Time:"; RT
PRINT "Siderial Set Time:"; ST
END
  ************************

البرنامج رقم 6...
برنامج معادلة كبلر لحساب الحصة الحقيقية للكوكب من الحصة الوسيطة...

CLS
PI = 57.29577951#
INPUT "Mean Anomaly:"; M
INPUT "Eccentricity:"; E
M = M / PI
T = M
1 D = (T - E * SIN(T) - M) / (1 - E * COS(T))
IF ABS(D) > .000001 THEN T = T - D: GOTO 1
R = 2 * ATN(SQR((1 + E) / (1 - E)) * TAN(T / 2)) * PI
PRINT "True Anomaly:"; R
END 

***********************

منقول من علاوي