4 / 4 / 2
Регистрация: 26.10.2012
Сообщений: 155
1

Изобразить модель системы Солнце-Земля-Луна

31.03.2013, 17:53. Показов 5297. Ответов 4
Метки нет (Все метки)

Изобразить модель системы Солнце-Земля-Луна:



Необходим код программы. Заранее спасибо!)

Добавлено через 1 минуту
движение луны вокруг солнца не сложно нарисовать, а вот с землей не выходит
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2013, 17:53
Ответы с готовыми решениями:

Построить модель солнце-земля-луна
Ребят, никак не получается последняя лаба program qq; const rSun = 60; L = 150; ...

Условно изобразить действующую модель Солнечной системы
Условно изобразить действующую модель Солнечной системы . Траектории движения планет изобразить...

Моделирование движения системы солнце-земля-луна по законам кеплера
Помогите пожалуйста не могу никак написать программу, необходимо смоделировать движение...

Построение траектории движения в системе Земля-Луна-Солнце
Здравствуйте! вот задание: Построить траектории Земли и Луны в гелиоцентрической системе...

4
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
31.03.2013, 18:16 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
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
uses crt,graphABC;
procedure planety(r,x,y,c:integer);
begin
setpencolor(c);
setbrushcolor(c);
circle(x,y,r);
end;
var xc,yc,rs,rz,rl,r1,r2,x1,y1,x2,y2:integer;
    u1,u2:real;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
rs:=90;
rz:=15;
rl:=3;
r1:=170;
r2:=25;
u1:=0;
u2:=0;
hidecursor;
clearwindow(clBlack);
lockdrawing;
repeat
clearwindow(clBlack);
setbrushstyle(bsClear);
setfontcolor(clWhite);
textout(80,10,'Выход любая клавиша');
planety(rs,xc,yc,clYellow);
u1:=u1-0.02;
u2:=u2+0.1;
x1:=xc+round(r1*cos(u1));
y1:=yc-round(r1*sin(u1));
x2:=x1+round(r2*cos(u2));
y2:=y1-round(r2*sin(u2));
planety(rz,x1,y1,clBlue);
planety(rl,x2,y2,clSilver);
delay(100);
redraw
until keypressed
end.
1
4 / 4 / 2
Регистрация: 26.10.2012
Сообщений: 155
31.03.2013, 18:19  [ТС] 3
Большое спасибо!!))
0
2 / 2 / 0
Регистрация: 14.10.2020
Сообщений: 135
10.06.2021, 15:04 4
Строка 4 : Нельзя преобразовать тип integer к System.Drawing.Color
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
10.06.2021, 15:24 5
Программа напмсана для простого АВС, в АВС.net нужно
Pascal
1
procedure planety(r,x,y:integer;c:Color);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2021, 15:24
Помогаю со студенческими работами здесь

Солнечная система Земля луна
Ребят вот в общем код солнечной системы. Как заставить луну крутиться вокруг земли. (Заранее...

Модель полета ракеты класса Земля-земля
Нужно создать математическую модель полета ракеты на MathCad. Условия задачи: начальная масса...

Почему Земля не падает на солнце?
Здравствуйте у меня такой вопрос почему Земля не падает на солнце, знаю только одно что благодаря...

Почему Земля не падает на солнце?
Здравствуйте у меня такой вопрос почему Земля не падает на солнце, знаю только одно что благодаря...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru