Цитата:
Сообщение от Алена
помогите пожалуйста,мне нужна в паскале написать программу для 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.