|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
09.04.2012, 15:29
|
#1 |
|
Регистрация: 09.04.2012
Сообщений: 4
|
программа на паскале, в которой можно нарисовать несколько окружностей произвольного радиуса мышкой в графическом режиме
Прошу помочь! Создать программу на паскале в которой можно нарисовать несколько окружностей произвольного радиуса с помощью мышки в графическом режиме, а потом определить какие окружности не пересекаются с другими.
_________ Название темы должно адекватно отражать суть решаемой задачи/проблемы. На первый раз я исправил. В дальнейшем темы с подобным названием будут закрываться/удаляться, а автор такой темы получать штрафы. Прошу учесть на будущее... Модератор. Последний раз редактировалось Serge_Bliznykov; 09.04.2012 в 15:42. |
|
|
|
09.04.2012, 15:43
|
#2 |
|
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
А в каком именно Паскале?
|
|
|
|
|
09.04.2012, 16:13
|
#3 |
|
Регистрация: 09.04.2012
Сообщений: 4
|
Turbo Pascal 7.1
|
|
|
|
|
09.04.2012, 23:43
|
#4 |
|
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
На Delphi я бы с удовольствием написал, но вот Паскаль я не знаю.
Если помог, проси поставить минус. Будь оригинален!
|
|
|
|
|
10.04.2012, 06:56
|
#5 | |
|
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
на Delphi 500 руб.
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
|
|
|
|
|
10.04.2012, 09:54
|
#6 | |
|
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
А значит, прийдётся использовать посторонний модуль. Это раз. во-вторых, графические приложение под MS DOS вообще, а с поддержкой мышки - ОСОБЕННО, крайне глючно выполняются под Windows (версия >= XP - причем, чем старше версия Windows - тем проблематичнее поддержка старых программ). Это тоже не пугает? Дело в том, что эта задача ЭЛЕМЕНТАРНАЯ, если только не брать во внимание то, что я сказал выше. Вот, взял чужой код, чуть подпортил его: TSTDOM.rar попробуйте, запустите TSTDOM.EXE выберите "New game" понажимайте мышкой в разных местах экрана. смотрите, отображаются ли координаты точки нажатия. (выход по нажатию правой кнопки мышки) denisbrain, ну у Вас и расценки!!  От желающих заказать у вас программу на TP, наверное, отбою нет?! 
Последний раз редактировалось Serge_Bliznykov; 10.04.2012 в 10:26. |
|
|
|
|
|
10.04.2012, 17:02
|
#7 |
|
Регистрация: 09.04.2012
Сообщений: 4
|
ребят спасибо за разъяснения.
А если окружности уже имеются на плоскости. И надо выявить все окружности, не песресекающиеся с другими. |
|
|
|
|
10.04.2012, 18:51
|
#8 |
|
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
Если вам даны координаты центров окружностей и их радиус, то это не сложно.
Существует отрезок a((x1,y1),(x2,y2)), длина которого равна корень[(x2-x1)^2+(y2-y1)^2]. Если длина этого отрезка больше R1+R2, значит окружности не пересекаются(рис.1), если длина меньше, то окружности пересекаются (рис.2).
Если помог, проси поставить минус. Будь оригинален!
|
|
|
|
|
10.04.2012, 21:50
|
#9 |
|
Регистрация: 09.04.2012
Сообщений: 4
|
Спасибо!
Но мне хотелось бы на код посмотреть. Может кто знает?: |
|
|
|
|
11.04.2012, 00:19
|
#10 | |
|
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
|
|
|
|
|
|
| Опции темы | Поиск в этой теме |
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Нарисовать несколько окружностей, включая то, что они могут быть поверх друг друга | smith732 | Помощь студентам | 4 | 19.12.2011 14:48 |
| не работает в графическом режиме | AllX | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 09.11.2011 19:56 |
| «Работа в графическом режиме» | Антонова Евгения | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 27.04.2010 10:33 |
| Нарисовать в графическом режиме ромб. Ширину и высоту задавать с клавиатуры | mulatoschka1990 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 02.12.2009 10:11 |
