|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
10.08.2010, 00:26 | #1 (permalink) |
Новичок
Регистрация: 10.08.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
N-угольник при нажатии одной кнопки "С++ Borland"
void __fastcall TForm1::Button1Click(TObject *Sender) { TPoint p[4] ; // четыре вершины // координаты вершин p[0].x = StrToInt(Edit1->Text); p[0].y = StrToInt(Edit2->Text) ; p[1].x = StrToInt(Edit3->Text); p[1].y = StrToInt(Edit4->Text); p[2].x = StrToInt(Edit5->Text); p[2].y = StrToInt(Edit6->Text); p[3].x = StrToInt(Edit7->Text); p[3].y = StrToInt(Edit8->Text); Canvas->Pen->Width = 2; Canvas->Pen->Color = clRed; Canvas->Polygon(p,3); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { char K; K = StrToInt(Form1->Edit9->Text);// растояние от каждой стороны на //котором должен рисоваться внутренний n-угольник TPoint p[4]; // координаты вершин p[0].x = StrToInt(Edit1->Text) + K; p[0].y = StrToInt(Edit2->Text) + K; p[1].x = StrToInt(Edit3->Text) + K; p[1].y = StrToInt(Edit4->Text) - K; p[2].x = StrToInt(Edit5->Text) - K; p[2].y = StrToInt(Edit6->Text) - K; p[3].x = StrToInt(Edit7->Text) - K; p[3].y = StrToInt(Edit8->Text) + K; Canvas->Pen->Width = 2; Canvas->Pen->Color = clBlack; Canvas->Polygon(p,3); } Помогите пожалуйста с обобщенной формулой для всех типов многоугольников |
10.08.2010, 00:26 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
С уверенностью могу сказать, что в этих темах есть множество полезной информации Если кнопки в "бешенстве" Пропали кнопки "Вперёд", "Назад" и "Вверх" |
10.08.2010, 00:50 | #4 (permalink) |
WrighT
Регистрация: 21.11.2006
Сообщений: 1,881
Записей в дневнике: 1
Сказал(а) спасибо: 4
Поблагодарили 8 раз(а) в 2 сообщениях
Репутация: 1570
|
Согласен, кричать не нужно на вас и так обратят должное внимание.
Правила форума |
10.08.2010, 00:58 | #5 (permalink) | |
Новичок
Регистрация: 10.08.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|