Изображение фигуры

[FlayGlam]

Изобразить такую фигуру, состоящую из эллипсов, у которых длина одной оси вдвое больше длины другой. Длина меньшей оси самого маленького эллипса вводится. Эллипсы рисовать до тех пор, пока они умещаются на экране.

[Аватар]

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var a,b:real;
    i,z,x,y:integer;
begin
   a:=300;
   z:=1;
   Repeat
      Case z of
      1: b:=a/2;
      -1: a:=b/2;
      end;
      z:=-z;
      For i:=0 to 360 do
      begin
         x:=Round(a*Sin(i*pi/180));
         y:=Round(b*Cos(i*pi/180));
         x:=300+x;
         y:=150-y;
         If i=0 then
            Image1.Canvas.MoveTo(x,y) else
            Image1.Canvas.LineTo(x,y);
      end;
   Until (a<1) or (b<1);
end;