Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 10.12.2012, 21:09   #1 (permalink)
Алена
Новичок
 
Регистрация: 10.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Паскаль. Рисование 12-угольника

помогите пожалуйста,мне нужна в паскале написать программу для 12угольника
Миниатюры
121120121149.jpg  
Алена вне форума   Ответить с цитированием

Старый 10.12.2012, 21:09
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Аналогичные проблемы уже обсуждались ранее

Рисование 3D "создание будущего корпуса усилителя"
Паскаль АBC
Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл
Фризлайт, или рисование светом
Паскаль
Паскаль

Старый 11.12.2012, 11:08   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,298
Сказал(а) спасибо: 290
Поблагодарили 512 раз(а) в 169 сообщениях
Репутация: 93301
По умолчанию

Цитата:
Сообщение от Алена Посмотреть сообщение
помогите пожалуйста,мне нужна в паскале написать программу для 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.
Миниатюры
twelve.jpg  
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:44.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.