Пятиконечная звезда

  uses
  GraphABC;
 
const
  XConst  = 300;
  YConst  = 200;
  Rad     = 100;
 
var
  i: integer := 0;
  u: integer := 36;
  x1, x2, y1, y2: integer;
begin
  Window.Title := 'Первая графическая программа';
  SetCoordinateOrigin(XConst, YConst);
  DrawCircle(0, 0, Rad);
  DrawCircle(0, 0, Rad-50);
  DrawCircle(0, 0, 2); 
  // 
  PutPixel(0, 0 - Rad, clRed);
  while i<=360 do
  begin
    x1 := Round(Rad * Cos((i - 90) * pi / 180));
    y1 := Round(Rad * Sin((i - 90) * pi / 180));
    Line(0, 0, x1, y1);
    i := i + 72;
    x2 := Round((Rad/2) * Cos((u - 90) * pi / 180));
    y2 := Round((Rad/2) * Sin((u - 90) * pi / 180));
    Line(0, 0, x2, y2);
    u := u + 72;
    Line(x1, y1, x2, y2);
  end; 
end.

uses
  GraphABC;
 
const
  Rad  = 200;
 
begin
  Window.Title := 'Первая графическая программа';
  var X0 := Window.Width div 2;
  var Y0 := Window.Height div 2;
  SetCoordinateOrigin(X0, Y0);
  var a := random; //начальный угол - случайный
  Pen.Color := clGreen;
  Pen.Width := 2;
  for var i := 0 to 5 do begin
    a := a + 4 * pi / 5; //угол увеличиваем на (360/5)*2 = 144 градуса (в радианах)
    var x := Round(Rad * cos(a));
    var y := Round(Rad * sin(a));
    if i = 0 then MoveTo(x, y) //сначала устанавливаем точку
    else LineTo(x, y) //потом проводим отрезки
  end
end.

uses abcObjects,graphabc;
var s:starabc;
begin
s:=new StarABC(Window.Width div 2,Window.Height div 2,60,120,5,clYellow);
end.

uses abcObjects,graphabc;
var s:starabc;
begin
s:=new StarABC(Window.Width div 2,Window.Height div 2,60,120,5,clYellow);
for var i:=5 to 40 do
begin
Sleep(50);
S.Count:=I;
end;
for var i:=40 downto 5 do
begin
Sleep(50);
S.Count:=I;
end;
for var i:=1 to 360 do 
S.Angle:=I;
for var i:=360 downto 1 do 
S.Angle:=I;
end.