10.12.2012, 21:09 | #1 (permalink) |
Новичок
Регистрация: 10.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Рисование 12-угольника
|
10.12.2012, 21:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные проблемы уже обсуждались ранее Рисование 3D "создание будущего корпуса усилителя" Паскаль АBC Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Фризлайт, или рисование светом Паскаль Паскаль |
11.12.2012, 11:08 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|