, hvordan til at beregne månens faser, bidragyder: alan graff, {, som robert forbes sagde at alle den 25. april 94,   rf > nogen idé om, hvordan man får en algoritme,   rf > beregning af moonphase på date?her, værsgo, type datetype = record,       dag: ord;,       måned: ord;,       år: ord;,       dow: ord;,      ; (=================================================================}, procedure gregoriantojuliandn (år, måned, dag: heltal,                                var juliandn: longint), var.,    århundrede,    xyear: longint; begynder (gregoriantojuliandn},    hvis måned < = 2 så begynde,      år: = fremherskende (år),      måned: = måned + 12,     ;,    måned: = måned - 3,    århundrede: = år div 100,    xyear: = år mod 100,    århundrede: = (århundrede (d1) shr 2,    xyear: = (xyear * d0) shr 2,    juliandn: = ((((måned * 153) + 2) div. 5) + dag) +d2,,                                      + xyear + århundrede;,   ; (gregoriantojuliandn} {=================================================================}, funktion moonphase (dato: datetype): ægte;,    (***************************************************************),    (* *),    (* bestemmer omtrentlige fase af månen (procentdel lit) *),    (* = 0,00 new moon, 1 = fuldmåne *),    (* på grund af afrunding, fuld værdier, kan man aldrig    (* *), gyldige fra olt, 15, 1582 til februar 28, 4 *),    (* beregninger og grundlæggende program findes i*),    (* " 119 konkrete programmer for trs-80 lomme pc " *),    (* john clark craig, tab af bøger, 1982 *),    (* omlægning til turbo pascal af alan graff, wheelersburg, åh *),    (* *),    (***************************************************************), var, j: longint; m: faste, begynder,    gregoriantojuliandn (dato. år. måned, dag. dag, j),    m = j + 4.867) /29.53058;,    m = 2 * (m-int (m)) - 1,    moonphase: = abs (m);,;,