| ← Декабрь 2020 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
6
|
|
|---|---|---|---|---|---|---|
|
7
|
8
|
9
|
13
|
|||
|
14
|
15
|
16
|
17
|
19
|
20
|
|
|
21
|
22
|
24
|
25
|
26
|
27
|
|
|
28
|
29
|
30
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: У меня есть программа, которая рисует круг и мне с его помощью нужно нарисовать пятиконечную звезду(это пятиугольник, в котором соединены внутренние точки) с бликом(просто в середине звезды должен быть маленький круг)? Как это написать?
Дата отправки: 13.12.2020, 05:34 Консультирует puporev (Профессор): Здравствуйте, QWERUIO! Код :: выделить код procedure TForm1.FormPaint(Sender: TObject);
var p:array[1..12] of TPoint;
cx,cy,r,i:integer;
u:double;
begin
cx:=ClientWidth div 2;
cy:=ClientHeight div 2;
r:=cy-50;
//вычисляем координаты вершин звезды
u:=pi/10; // от правого гор. луча
for i:=1 to 12 do
begin
if (i mod 2=0) then
begin // впадина
p[i].x:=cx+round(r*0.38*cos(u));
p[i].y:=cy-round(r*0.38*sin(u));
end
else
begin // луч
p[i].x:=cx+round(r*cos (u));
p[i].y:=cy-round(r*sin(u));
end;
u:=u+pi/5;
end;
Canvas.Pen.Color:=clRed;
Canvas.Brush.Color:=clRed;
Canvas.Polygon(p);
end;
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
