Изобразить планету вокруг которой движется спутник

@Іванка · Регистрация: 18.06.2012

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

помогите написать программу:изобразить планету вокруг которой движется спутник.

cpp_developer · 18.06.2012, 23:36

Іванка, читаете сюда
Краткое руководство по работе с классом TCanvas для начинающих
рисуете два кружочка, один из них двигаете вокруг другого, как это сделать - на форуме обсуждалось.

Добавлено через 4 минуты

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
46
47
48
49
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x,y;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  PaintBox1->Canvas->Ellipse(x,y,x+50,y+50);
  PaintBox1->Canvas->Pen->Color=clBlack;
  x++;
  y++;
  PaintBox1->Canvas->Ellipse(x,y,x+50,y+50);
  PaintBox1->Canvas->Pen->Color=clBtnFace;
  if(x>PaintBox1->Width) {
    x=PaintBox1->Left;
    y=PaintBox1->Top;
  }
  if(y>PaintBox1->Height) {
    y=PaintBox1->Top;
    x=PaintBox1->Left;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  x=PaintBox1->Left;
  y=PaintBox1->Top;
  Form1->Timer1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Form1->Timer1->Enabled=false;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Form1->Timer1->Enabled=true;        
}

Например:

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
#include "math.h"
...
int x,y;
int a,b,cntrx,cntry;
double alpha;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  PaintBox1->Canvas->Pen->Color=clBtnFace;
  PaintBox1->Canvas->Ellipse(x-25,y-25,x+25,y+25);
  x = cntrx + floor(a*cos(alpha));
  y = cntry + floor(b*sin(alpha));
  PaintBox1->Canvas->Pen->Color=clBlack;
  PaintBox1->Canvas->Ellipse(x-25,y-25,x+25,y+25);
  alpha += 0.1;
  if (alpha >= 2*M_PI)
    alpha = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  x = PaintBox1->Width/2;
  y = PaintBox1->Height/3;
  a = 100;
  b = 100;
  alpha = 0;
  cntrx = PaintBox1->Width/2;
  cntry = PaintBox1->Height/2;
  Form1->Timer1->Enabled = true;
}

Как сделать, чтобы в центре этой анимации был неподвижный шарик?

C++
1
PaintBox1->Canvas->Ellipse(cntrx-25,cntry-25,cntrx+25,cntry+25);

// Движение точки по окружности
В 2х-мерном пространстве: x = r*cos(a) + u; y = r*sin(a) + v, где r - радиус, a - угол, (u,v) - координаты центра окружности.

Движение по окружности

Построить точку, которая двигалась бы по окружности? Вопрос сводится к круговому движению.

(x-a)^2+(y-b)^2=R^2 - формула окружности.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var ang, //текущее положение в радианах
    spd, //скорость (на сколько радиан передвигать каждый раз)
    rad: Double; //радиус окружности
    cx, cy, //координаты центра окр. 
    x, y: Integer; //текущие коорд. точки
 
procedure TForm1.Timer1_Timer(Sender: TObject);
begin
  Canvas.Pixels[x, y]:=clBtnFace;
  ang:=ang + spd;
  x:=cx + Round(Cos(ang) * rad);
  y:=cy + Round(Sin(ang) * rad);
  Canvas.Pixels[x, y]:=clBlack;
end;

Примерно так. Только через Pixels[x,y] - медленно будет.

Квадрат по прямоугольнику и ромб по восьмиугольнику

Добавлено через 4 часа 24 минуты
Анимация: правильный n-угольник двигается по периметру изображения

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Іванка 0 / 0 / 0 Регистрация: 18.06.2012 Сообщений: 6

	Изобразить планету вокруг которой движется спутник 18.06.2012, 17:35. Показов 2793. Ответов 1 Метки нет (Все метки) помогите написать программу:изобразить планету вокруг которой движется спутник. 0

Изобразить планету вокруг которой движется спутник

Решение