Тригонометричні ефемериди планет Сонячної системи

Image1.Canvas.Pen.Color:=clBlack;

Image1.Canvas.Brush.Style:=bsSolid;

Image1.Canvas.Brush.Color:=clBlack;

Image1.Canvas.Ellipse(x4,y4,x5,y5);

g:=0;

end

else

begin

Image1.Canvas.Brush.Style:=bsSolid;

Image1.Canvas.Brush.Color:=clWhite;

case ZPL1 of

1:Image1.Canvas.Pen.Color:=clRed;

2:Image1.Canvas.Pen.Color:=clAqua;

4:Image1.Canvas.Pen.Color:=clRed;

5:Image1.Canvas.Pen.Color:=clYellow;

6:Image1.Canvas.Pen.Color:=clLime;

7:Image1.Canvas.Pen.Color:=clGreen;8:Image1.Canvas.Pen.Color:=clBlue;

9:Image1.Canvas.Pen.Color:=clFuchsia;

end;

Image1.Canvas.Ellipse(x4,y4,x5,y5);

end;

end;

end;

end.

4. Тестування програми і результати її виконання.