11.04.2010, 22:30 | #1 (permalink) |
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. |
11.04.2010, 22:30 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пока люди думают, что вам ответить вы можете ознакомиться с подобными темами Как доделать микрофон? Как правильно к капсюлю припаять кабели и какой кабель? Помогите доделать задание на массив |
11.04.2010, 22:38 | #2 (permalink) |
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 |
11.04.2010, 23:07 | #3 (permalink) |
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. |
11.04.2010, 23:17 | #4 (permalink) |
Member
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
все всем огромное спасибо все написал!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|