11.04.2010, 13:15 | #1 (permalink) |
Member
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Снова задача с планетой
это надо сделать так: вывести изображение цветом ,затем вывести изображение еще раз цветом фона,затем вывести изображение цветом с новыми координатами! причем сделать через Sin и cos ! З.Ы. Я просто тему не понял,так как болею и на занятия не хожу...поэтому прошу помощи!(напишите пожалуйста с коментариями...а то толку от того что задача решена будет мало...мне нужно понять,а попросить объснить некого...очень надеюсь на вашу помощь! |
11.04.2010, 13:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Темы уже встречались, ознакомьтесь с информацией которую они содержат Компьютер включается и выключается. И так снова и снова Колонки для телефона Снова Паскаль И снова Windows XP И снова IE 8 И снова DrWeb..... |
11.04.2010, 13:35 | #2 (permalink) |
Member
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
пока аолучается только вот такая телепортирующаяся планета...
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 в 13:48 |
11.04.2010, 14:24 | #4 (permalink) |
Member
Регистрация: 11.04.2007
Адрес: Санкт-Петербург
Сообщений: 40,320
Записей в дневнике: 73
Сказал(а) спасибо: 885
Поблагодарили 2,792 раз(а) в 431 сообщениях
Репутация: 186775
|
Тебе придётся подождать когда на форуме появится Vladimir_S...
__________________
Пингвин птица гордая, пока не пнёшь - не полетит. |
11.04.2010, 19:39 | #5 (permalink) |
Member
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Я вот не пойму какие циклы и как их задавать с этими формулами!
for i:=0 to 360 do t:=t*pi/180; ну и еще что про синусы и косинусы...но я их незнаю так как на занятиях не был! может кто нибудь хотябы формулы подскажет...может к ночи разберусь_) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.04.2010, 23:19 | #6 (permalink) |
Member
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
все все написал!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|