Llenar array

[[escafandra]]

Veo que falta el sol, fácil, el bucle debe comenzar en cero:

Código Delphi [-]
var
  i:      integer;
  xx:     array[0..5]  of double;
  planet: array[1..12] of double;
  pName:  array[0..19] of Char;
  serr:   PChar;
  JulDay: double;
begin
  Memo1.Clear;
  JulDay:= DateTimeToJulianDate(Now);
  for i:= 0 to 10 do
  begin
    swe_calc(JulDay, i, 0, xx[0], serr);
    planet[i]:= xx[0];
    swe_get_planet_name(i, pName);
    Memo1.Lines.Add(Format('%10s:   %3.5n', [pName, planet[i]]));
  end;
end;

Código Delphi [-]
       Sun:   332,76175
      Moon:   313,82886
   Mercury:   340,89081
     Venus:   16,35077
      Mars:   273,76076
   Jupiter:   288,01368
    Saturn:   297,35349
    Uranus:   33,39225
   Neptune:   347,80923
     Pluto:   294,04669
 mean Node:   95,48878

Saludos.