Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/29: Рейтинг темы: голосов - 29, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 15.03.2013
Сообщений: 10
1

Движение Луны вокруг Земли а Земли вокруг Солнца

23.03.2013, 21:07. Просмотров 5428. Ответов 5
Метки нет (Все метки)


надо в паскале написать программу которая графически изобразит движение Луны вокруг Земли а Земли, в свою очередь, вокруг Солнца
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2013, 21:07
Ответы с готовыми решениями:

Разработайте динамическую модель: Солнца для Земли и Луны
Мне вручили задание в котором я абсолютный "0"((( Просьба к тем кто знает как это делать -...

Вращение планет вокруг Солнца
program graf_1; uses graph,crt; var g,m,i:integer; size:word; p,r:pointer; errCode:integer;...

Составить программу демонстрации движения планет вокруг Солнца
Составить программу демонстрации движения планет вокруг Солнца.

Вращение равнобедренного треугольника вокруг центра экрана, и одновременно вокруг своего центра. (Turbo Pascal)
Задача в заголовке. Как вращать треугольник вокруг центра я примерно знаю (писали аналогичное для...

5
Я не экстрасенс
380 / 337 / 34
Регистрация: 22.01.2013
Сообщений: 1,126
23.03.2013, 21:14 2
Что насчет масштаба времени и пропорций?
0
0 / 0 / 0
Регистрация: 15.03.2013
Сообщений: 10
23.03.2013, 22:40  [ТС] 3
Цитата Сообщение от barbudo59 Посмотреть сообщение
Что насчет масштаба времени и пропорций?
Особых критерий нет, просто что бы отчетливо было видно
0
Модератор
62858 / 46905 / 32327
Регистрация: 18.05.2008
Сообщений: 113,653
24.03.2013, 12:26 4
Лучший ответ Сообщение было отмечено как решение

Решение

Примерно так.
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
41
42
uses crt,graph;
procedure planety(r,x,y,c:integer);
begin
setcolor(c);
circle(x,y,r);
setfillstyle(1,c);
floodfill(x,y,c)
end;
var xc,yc,rs,rz,rl,r1,r2,x1,y1,x2,y2:integer;
    u1,u2:real;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
outtextXY(xc-30,10,'Exit any key');
rs:=100;
setcolor(14);
circle(xc,yc,100);
setfillstyle(1,14);
floodfill(xc,yc,14);
rz:=15;
rl:=3;
r1:=180;
r2:=25;
u1:=0;
u2:=0;
repeat
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,9);
planety(rl,x2,y2,6);
delay(100);
planety(rz,x1,y1,0);
planety(rl,x2,y2,0);
u1:=u1+0.05;
u2:=u2+0.3;
until keypressed
end.
readln
end.
3
232 / 214 / 63
Регистрация: 01.09.2012
Сообщений: 2,103
24.03.2013, 16:04 5
Puporev, я всегда поражаюсь вашей работоспособности и желанию помочь. Я очень многому у Вас научился
0
0 / 0 / 0
Регистрация: 15.03.2013
Сообщений: 10
24.03.2013, 17:17  [ТС] 6
Цитата Сообщение от Puporev Посмотреть сообщение
Примерно так.
Огромное спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2013, 17:17

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Отобразить модель солнечной системы: движение 9 кругов вокруг центрального круга
Прошу помочь решить задачу в паскале. Я в этом не разбираюсь, но мне очень нужно. ) Задача:...

Определить время падения камня на поверхность земли с высоты h
Помогите с решением на паскале :)

Определить время падения камня на поверхность земли с высоты h
определить время падения камня на поверхность земли с высоты h

определить время падения камня на поверхность земли с высоты h
определить время падения камня на поверхность земли с высоты h. напишите пожалуйста лабораторку по...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.