Треугольник, вращающийся в плоскости

@Жанерке · Регистрация: 22.09.2013

Студворк — интернет-сервис помощи студентам

Изобразить на экране правильный треугольник, вращающийся в плоскости экрана вокруг своего центра. И перемещающегося с постоянной скоростью от одного края экрана до другого с постоянной скоростью.

нарисовала треугольник, и оно движется от одного края до другого

но незнаю как можно сделать что бы оно вращалось вокруг своего центра

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#include <vcl.h>
#pragma hdrstop
#include<math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void Shar(int xx,int yy, TColor cc)
{
Form1->Canvas->Pen->Color=cc;
Form1->Canvas->Brush->Color=cc;
TPoint pnt[3];
pnt[0]=Point(xx+0,yy+60);
pnt[1]=Point(xx+60,yy+60);
pnt[2]=Point(xx+30,yy+0);
Form1->Canvas->Polygon(pnt,2);
 
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Canvas->Pen->Color = clBlack;
Canvas->Brush->Color = clWhite;
Canvas->Rectangle(0,10,865,140);
double x=20, y=1;
while (x<865 && y<=1000) {
Shar(x,40,clYellow);
Sleep(10);
Shar(x,40,clWhite);
x++;
}
}

@castaway · 02.11.2013, 17:44

C++
1
2
3
pnt[0]=Point( sin( phase ) * radius + xx, cos( phase ) * radius + yy );
pnt[1]=Point( sin( phase + PI2 / 3 ) * radius + xx, cos( phase + PI / 3 ) * radius + yy );
pnt[2]=Point( sin( phase - PI2 / 3 ) * radius + xx, cos( phase - PI / 3 ) * radius + yy );

где,
radius - радиус окружности по которой вращается треугольник
phase - фаза, т.е. вещественный тип, от которого зависит угол поворота треугольника
xx и yy - координаты центра окружности по которой вращается треугольник
PI - 6.283185307179586476925286766559 (2 Пи)

@Жанерке · 02.11.2013, 22:49 **[ТС]**

castaway,

сделала как вы подсказали

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include<math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void Shar(int xx,int yy,int radius,int phase, TColor cc)
{
Form1->Canvas->Pen->Color=cc;
Form1->Canvas->Brush->Color=cc;
TPoint pnt[3];
const PI=3.14 ;
pnt[0]=Point( sin( phase ) * radius + xx, cos( phase ) * radius + yy );
pnt[1]=Point( sin( phase + PI*2 / 3 ) * radius + xx, cos( phase + PI / 3 ) * radius + yy );
pnt[2]=Point( sin( phase - PI*2 / 3 ) * radius + xx, cos( phase - PI / 3 ) * radius + yy );
 
Form1->Canvas->Polygon(pnt,2);
 
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Canvas->Pen->Color = clBlack;
Canvas->Brush->Color = clWhite;
Canvas->Rectangle(0,10,865,140);
double x=20,phase;
while (x<865 ) {
for(phase=0;phase<6.28;phase+=0.1) {
Shar(x,40,60,phase,clYellow);
Sleep(10);
Shar(x,40,60,phase,clWhite);}
x++;
}
}
//---------------------------------------------------------------------------

оно вращается как на 1 картинке

а можно сделать так что оно вращалось как на 2 картинке

@Жанерке · 02.11.2013, 23:21 **[ТС]**

а неет
я нашла свою ошибку
все правильно спасибо вам))))

@castaway · 03.11.2013, 11:23

Я тоже опечатался.. Надо везде два Пи.

@Жанерке · 03.11.2013, 21:15 **[ТС]**

castaway, ДАА ЭТО Я САМА ЗАМЕТИЛА

@Жанерке · 28.11.2013, 09:20 **[ТС]**

как можно сделать вращение этой фигуры, не получается((((((

C++
1
2
3
4
5
6
7
8
9
10
11
Form1->Canvas->Pen->Color=cc;
Form1->Canvas->Brush->Color=cc;
TPoint pnt[6];
pnt[0]=Point(xx+0,yy+0);
pnt[1]=Point(xx+70,yy+60);
pnt[2]=Point(xx+140,yy+0);
pnt[3]=Point(xx+80,yy+80);
pnt[4]=Point(xx+70,yy+160);
pnt[5]=Point(xx+60,yy+80)  ;
 
Form1->Canvas->Polygon(pnt,5);

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Жанерке 35 / 35 / 8 Регистрация: 22.09.2013 Сообщений: 170
	02.11.2013, 23:21 [ТС]
	а неет я нашла свою ошибку все правильно спасибо вам)))) 0

@castaway 4986 / 3093 / 456 Регистрация: 10.11.2010 Сообщений: 11,170 Записей в блоге: 10
	03.11.2013, 11:23
	Я тоже опечатался.. Надо везде два Пи. 0

@Жанерке 35 / 35 / 8 Регистрация: 22.09.2013 Сообщений: 170
	03.11.2013, 21:15 [ТС]
	castaway, ДАА ЭТО Я САМА ЗАМЕТИЛА 0