Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Снова задача с планетой (http://www.tehnari.ru/f41/t35030/)

darkdragon 11.04.2010 13:15

Снова задача с планетой
 
Планета вращается по орбите !
это надо сделать так:
вывести изображение цветом ,затем вывести изображение еще раз цветом фона,затем вывести изображение цветом с новыми координатами!
причем сделать через Sin и cos !

З.Ы. Я просто тему не понял,так как болею и на занятия не хожу...поэтому прошу помощи!(напишите пожалуйста с коментариями...а то толку от того что задача решена будет мало...мне нужно понять,а попросить объснить некого...очень надеюсь на вашу помощь!

darkdragon 11.04.2010 13:35

пока аолучается только вот такая телепортирующаяся планета...

program planet_ubi;
uses graph,crt;
var y,x,d,m,xc,yc,r1,r2,r3,x1,y1:integer;
begin
xc:=320;
yc:=240;
r1:=145;
r2:=45;
r3:=10;
initgraph(d,m,'');
repeat
for x:=0 to 360 do begin
y:=round(x*pi/180);
x1:=round(xc+(x-xc)*cos(y)+(y-yc)*sin(y));
y1:=round(yc+(y-yc)*cos(y)-(x-xc)*sin(y));
circle(x1,y1,r3);
setfillstyle(1,7);
circle(xc,yc,r1);
circle(xc,yc,r2);
floodfill(320,240,15);
delay(50);
cleardevice;
end;
until keypressed;

end.

darkdragon 11.04.2010 14:16

помогите

Валерий 11.04.2010 14:24

Тебе придётся подождать когда на форуме появится Vladimir_S...

darkdragon 11.04.2010 19:39

Я вот не пойму какие циклы и как их задавать с этими формулами!
for i:=0 to 360 do
t:=t*pi/180;
ну и еще что про синусы и косинусы...но я их незнаю так как на занятиях не был!
может кто нибудь хотябы формулы подскажет...может к ночи разберусь_)

darkdragon 11.04.2010 23:19

все все написал!


Часовой пояс GMT +4, время: 04:58.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.