delphi
procedure DrawTriangle(Canvas: TCanvas; Axis: TPoint; Radix: Cardinal; Angle: Real); var Index, X, Y: Cardinal; Value: Real; begin for Index := 0 to 3 do begin Value := Angle + ((Index * 2) / 3) * Pi; X := Axis.X + Round(Radix * Cos(Value)); Y := Axis.Y + Round(Radix * Sin(Value)); if Index = 0 then Canvas.MoveTo(X, Y) else Canvas.LineTo(X, Y); end; end; procedure TForm1.Button1Click(Sender: TObject); begin DrawTriangle(Canvas, Point(6, 6), 6, 0); end;