Паскаль. Рисование 12-угольника

[Алена]

Паскаль. Рисование 12-угольника

помогите пожалуйста,мне нужна в паскале написать программу для 12угольника

 

[Vladimir_S]

помогите пожалуйста,мне нужна в паскале написать программу для 12угольника

Да без проблем:

Uses Graph, CRT;
Var
 X0,Y0,X1,Y1,X2,Y2,R:Word;
 i,j:Byte;
Begin
 InitGraph(..., ...); [COLOR=Red][B]{Параметры процедуры инициализации графики задайте сами}[/B][/COLOR]
 R:=GetMaxY div 2;
 X0:=GetMaxX div 2;
 Y0:=GetMaxY div 2;
 MoveTo(X0,Y0-R);
 For i:=0 to 11 do
  begin
   X1:=X0+Round(R*Sin(i*Pi/6));
   Y1:=Y0-Round(R*Cos(i*Pi/6));
   For j:=i+1 to 12 do
    begin
     X2:=X0+Round(R*Sin(j*Pi/6));
     Y2:=Y0-Round(R*Cos(j*Pi/6));
     Line(X1,Y1,X2,Y2);
    end;
  end;
 ReadKey;
 CloseGraph;
End.