Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 11.04.2010, 22:30   #1 (permalink)
darkdragon
Member
 
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите доделать.

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

program planet_ubi;
uses graph,crt;
var y2,x2,i,y,x,d,m,xc,t,yc,r,x1,y1:integer;
begin
xc:=320;
yc:=240;
r:=55;
initgraph(d,m,'');
setfillstyle(1,14);
circle(xc,yc,r);
floodfill(xc,yc-1,15);
circle(xc,yc,r+55);
circle(xc,yc,y+200);
x:=xc+142;
y:=yc+142;
x2:=xc+77;
y2:=yc+77;
repeat
for i:=0 to 360 do begin
t:=round(i*pi/180);
x1:=round(xc+(x-xc)*cos(t)+(y-yc)*sin(t));
y1:=round(yc+(y-yc)*cos(t)-(x-xc)*sin(t));
setcolor(4);
circle(x1,y1,15);
delay(50);
setcolor(0);
circle(x1,y1,15);
end;
for i:=0 to 360 do begin
t:=round(i*pi/180);
x1:=round(xc+(xc-x2)*cos(t)+(y2-yc)*sin(t));
y1:=round(yc+(yc-y2)*cos(t)-(x2-xc)*sin(t));
setcolor(2);
circle(x1,y1,10);
delay(50);
setcolor(0);
circle(x1,y1,10);
end;
until keypressed;
end.
darkdragon вне форума   Ответить с цитированием

Старый 11.04.2010, 22:30
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пока люди думают, что вам ответить вы можете ознакомиться с подобными темами

Как доделать микрофон? Как правильно к капсюлю припаять кабели и какой кабель?
Помогите доделать задание на массив

Старый 11.04.2010, 22:38   #2 (permalink)
darkdragon
Member
 
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

все доделал ...теперь надо только одновременно их пустить

program planet_ubi;
uses graph,crt;
var h,y2,x2,i,y,x,d,m,xc,yc,r,x1,y1:integer;
t,o:real;
begin
xc:=320;
yc:=240;
r:=55;
initgraph(d,m,'');
setfillstyle(1,14);
circle(xc,yc,r);
floodfill(xc,yc-1,15);
circle(xc,yc,r+55);
circle(xc,yc,r+145);
x:=xc+142;
y:=yc+142;
x2:=xc+77;
y2:=yc+77;
repeat
for i:=0 to 360 do begin
t:=(i*pi/180);
x1:=round(xc+(x-xc)*cos(t)+(y-yc)*sin(t));
y1:=round(yc+(y-yc)*cos(t)-(x-xc)*sin(t));
setcolor(4);
circle(x1,y1,15);
delay(50);
setcolor(15);
circle(xc,yc,r+145);
setcolor(0);
circle(x1,y1,15);
end;
for h:=0 to 360 do begin
o:=(h*pi/180);
x1:=round(xc+(xc-x2)*cos(o)+(y2-yc)*sin(o));
y1:=round(yc+(yc-y2)*cos(o)-(x2-xc)*sin(o));
setcolor(2);
circle(x1,y1,10);
delay(50);
setcolor(15);
circle(xc,yc,r+55);
setcolor(0);
circle(x1,y1,10);
end;
until keypressed;
end.

Последний раз редактировалось darkdragon; 11.04.2010 в 22:57
darkdragon вне форума   Ответить с цитированием
Старый 11.04.2010, 23:07   #3 (permalink)
darkdragon
Member
 
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

все сделал ))))
помогите устранить моргание на экране!

program planet_ubi;
uses graph,crt;
var h,y2,x2,i,y,x,d,m,xc,yc,r,x1,y1:integer;
t,o:real;
begin
xc:=320;
yc:=240;
r:=55;
initgraph(d,m,'');
setfillstyle(1,14);
circle(xc,yc,r);
floodfill(xc,yc-1,15);
circle(xc,yc,r+55);
circle(xc,yc,r+145);
x:=xc+142;
y:=yc+142;
x2:=xc+77;
y2:=yc+77;
repeat
for i:=0 to 360 do begin
t:=(i*pi/180);
x1:=round(xc+(x-xc)*cos(t)+(y-yc)*sin(t));
y1:=round(yc+(y-yc)*cos(t)-(x-xc)*sin(t));
setcolor(4);
circle(x1,y1,15);
delay(50);
setcolor(15);
circle(xc,yc,r+145);
setcolor(0);
circle(x1,y1,15);
x1:=round(xc+(xc-x2)*cos(t)+(y2-yc)*sin(t));
y1:=round(yc+(yc-y2)*cos(t)-(x2-xc)*sin(t));
setcolor(2);
circle(x1,y1,10);
delay(50);
setcolor(15);
circle(xc,yc,r+55);
setcolor(0);
circle(x1,y1,10);
end;
until keypressed;
end.
darkdragon вне форума   Ответить с цитированием
Старый 11.04.2010, 23:17   #4 (permalink)
darkdragon
Member
 
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

все всем огромное спасибо все написал!
darkdragon вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.