IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> вращение диска
Sensitive
сообщение 2.06.2007 13:32
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 132
Пол: Женский
Реальное имя: Юлия

Репутация: -  0  +


Вообще не знаю каким способом делать эту задачу.
Условие прилагается. Подскажите пожалуйста, как это всё реализовать.


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
klem4
сообщение 5.06.2007 18:08
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


В твоем конкретном случае, при использовании предложенной тут реализации, изменяется угол под которым проходит прямая, делящая окружность на 2 части.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Sensitive
сообщение 6.06.2007 18:54
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 132
Пол: Женский
Реальное имя: Юлия

Репутация: -  0  +


всё сижу над этим диском...
вот подпрограмма,которая рисует диск,но мне нужен такой же,только чтоб "дуги" чёрные на белом фоне были какбы отрзеркалины...то есть были не в правой части диска,а в левой...так как на рисунке... помогите переделать подпрограмму...

procedure   disk(f:real;   r:integer) ; 
var r2:integer;
begin
r2:=r+1;
arc(0,0,round(180+180*f/pi)-1,round(360+180*f/pi)+1,r);
arc(0,0,round(180*f/pi-1),round(46+180*f/pi),r-5);
arc(0,0,round(180*f/pi-1),round(46+180*f/pi),r-11);
arc(0,0,round(44+180*f/pi),round(91+180*f/pi),r-16);
arc(0,0,round(44+180*f/pi),round(91+180*f/pi),r-22);
arc(0,0,round(89+180*f/pi),round(136+180*f/pi),r-27);
arc(0,0,round(89+180*f/pi),round(136+180*f/pi),r-33);
arc(0,0,round(134+180*f/pi),round(181+180*f/pi),r-38);
arc(0,0,round(134+180*f/pi),round(181+180*f/pi),r-44);
line(round(r2*cos(pi+f)),-round(r*sin(pi+f)),round(r*cos(2*pi+f)),-round(r*sin(2*pi+f)));
line(round((r-4)*cos(pi/4+f)),-round((r-4)*sin(pi/4+f)),round((r-11)*cos(pi/4+f)),-round((r-11)*sin(pi/4+f)));
line(round((r-16)*cos(pi/4+f)),-round((r-16)*sin(pi/4+f)),round((r-22)*cos(pi/4+f)),-round((r-22)*sin(pi/4+f)));
line(round((r-16)*cos(pi/2+f)),-round((r-16)*sin(pi/2+f)),round((r-22)*cos(pi/2+f)),-round((r-22)*sin(pi/2+f)));
line(round((r-27)*cos(pi/2+f)),-round((r-27)*sin(pi/2+f)),round((r-33)*cos(pi/2+f)),-round((r-33)*sin(pi/2+f)));
line(round((r-27)*cos(3*pi/4+f)),-round((r-27)*sin(3*pi/4+f)),round((r-33)*cos(3*pi/4+f)),-round((r-33)*sin(3*pi/4+f)));
line(round((r-38)*cos(3*pi/4+f)),-round((r-38)*sin(3*pi/4+f)),round((r-44)*cos(3*pi/4+f)),-round((r-44)*sin(3*pi/4+f)));
setfillstyle(1,1);
floodfill(round(r/2*cos(3*pi/2+f)),-round(r/2*sin(3*pi/2+f)),1);
floodfill(round((r-8)*cos(pi/6+f)),-round((r-8)*sin(pi/6+f)),1);
floodfill(round((r-20)*cos(pi/3+f)),-round((r-20)*sin(pi/3+f)),1);
floodfill(round((r-30)*cos(2*pi/3+f)),-round((r-30)*sin(2*pi/3+f)),1);
floodfill(round((r-40)*cos(5*pi/6+f)),-round((r-40)*sin(5*pi/6+f)),1);
end;



Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Sensitive   вращение диска   2.06.2007 13:32
volvo   Если на диске должен быть только черный и белый се...   2.06.2007 18:11
Sensitive   Да,на диске на белой его части есть частички (чёрн...   2.06.2007 18:28
volvo   Несколько способов есть здесь (перевести то, что т...   2.06.2007 19:03
klem4   Помоему будет достаточно одного угла, второй то ...   2.06.2007 20:39
Sensitive   volvo, если можешь дай полную ссылку. Не смогла на...   2.06.2007 20:49
volvo   Если диск разделен по диаметру, то хватит и одного...   2.06.2007 20:47
volvo   Sensitive, я же дал полный путь к статьям :blink:...   2.06.2007 20:55
Sensitive   Ой,сорри,volvo, всё нашла. Сейчас буду разбираться...   2.06.2007 21:28
klem4   Вроде этого cx := GetMaxX div 2; cy := GetMaxY ...   2.06.2007 20:56
klem4   В общем вот черновой вариант, есть небольшие несты...   2.06.2007 21:57
Sensitive   К моему сожалению не смогла разобраться в тех прим...   4.06.2007 16:30
Sensitive   к моему сожалению не смогла разобраться в тех прим...   4.06.2007 16:33
Sensitive   Я прошу прощения еще раз... при повороте изображен...   5.06.2007 18:04
klem4   В твоем конкретном случае, при использовании предл...   5.06.2007 18:08
Sensitive   всё сижу над этим диском... вот подпрограмма,котор...   6.06.2007 18:54
volvo   Зачем тебе вручную рассчитывать все координаты, ко...   6.06.2007 20:29
Sensitive   да,действительно и без ручного расчета тот код,что...   6.06.2007 23:32
Sensitive   С диском так и "воюю"... как закрасить д...   9.06.2007 13:32
volvo   Вот так вращается одинаково: uses graph, crt; pro...   9.06.2007 14:10
Sensitive   volvo,спасибо большое. Программу почти доделала с ...   9.06.2007 16:27


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 5:52
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"