Рисование фигур(На Дельфи)

[Nach]

Помогите!!! Плиз! Срочно нужно

[Utkin]

А причем здесь рисование? Это чисто математическая задача.
Но если Вы уже хотите нарисовать это безобразие, то есть компонент TImage, который умеет не только рисовать, но и загружать готовый рисунок...

[Serge_Bliznykov]

или можно нарисовать графическими примитивами.
например, прямо на канве формы.


поместите вызов этой процедуры в событе формы OnPaint:

procedure TForm1.DrawGraphics;
const Xc = 300; Yc = 300;
  Const OneSize = 90;

begin
  with Canvas do begin
    Brush.Color := clWhite;
    FloodFill(0,0, clRed, fsBorder	);

    {фигура}
    Pen.Width := 2;
    Pen.Color := clBlack;

    Arc(Xc-OneSize,Yc-OneSize,Xc+OneSize,Yc+OneSize,
                Xc,  Yc+OneSize, Xc, Yc-OneSize);
    MoveTo(Xc, Yc-OneSize);
    LineTo(Xc-2*OneSize, Yc);
    LineTo(Xc, Yc+OneSize);

    Brush.Color := clSilver;
    Brush.Style := bsSolid;
    FloodFill(Xc,Yc, clBlack, fsBorder	);

    Brush.Color := clWhite;

    TextOut(Xc+OneSize+5, Yc-15, '1');
    TextOut(Xc-2*OneSize-15, Yc-15, '-2');
    Brush.Style := bsSolid;
    TextOut(Xc-10, Yc+10, '0');
    TextOut(Xc+10, Yc-OneSize-15, '1');
    TextOut(Xc+10, Yc+OneSize+15, '-1');

    {ось X}
    Pen.Color := clBlue;
    MoveTo(Xc-OneSize*3, Yc);
    LineTo(Xc+3*OneSize, Yc);
    MoveTo(Xc+(3*OneSize-5), Yc+5);
    LineTo(Xc+3*OneSize, Yc);
    MoveTo(Xc+(3*OneSize-5), Yc-5);
    LineTo(Xc+3*OneSize, Yc);
    TextOut(Xc+3*OneSize, Yc+10, 'X');
    {ось Y}
    MoveTo(Xc, Yc-3*OneSize);
    LineTo(Xc, Yc+3*OneSize);
    MoveTo(Xc+5, Yc-(3*OneSize-5));
    LineTo(Xc, Yc-3*OneSize);
    MoveTo(Xc-5, Yc-(3*OneSize-5));
    LineTo(Xc, Yc-3*OneSize);
    TextOut(Xc-15, Yc-3*OneSize, 'Y');
  end;
end;