Технический форум - Паскаль. Рисование 12-угольника

Цитата:

Сообщение от Алена (Сообщение 831749)

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

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

Код:

Uses Graph, CRT;

Var

 X0,Y0,X1,Y1,X2,Y2,R:Word;

 i,j:Byte;

Begin

 InitGraph(..., ...); {Параметры процедуры инициализации графики задайте сами}

 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.