|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.03.2008, 18:59 | #1 |
Регистрация: 27.03.2008
Сообщений: 7
|
Построить треугольник по координатам его вершин и описать около него окружность.
Люди добрые помогить пожалуйста сделать программу в Turbo Delphi 2006.vcl forms application.Я уже неделю мучаюсь сделать эту задачу ничего не получается,мне надо правда сдавать её уже завтра,кто нибудь попробует её сделать до завтра, до 13.00???
я уже все формулы перерыл ну чё то тугодумне судите строго. труегольник строю и всё замыкается,а как описать окружность никак. окружность пробовал рисовать через canvas.arc но не могу додумать какие точки надо туда вписывать. Последний раз редактировалось Lion; 27.03.2008 в 19:07. |
27.03.2008, 19:21 | #2 |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
http://img91.imageshack.us/my.php?image=graphic1ho4.jpg
Появились идеи? Можно ещё решить систему трёх квадратных урвнений. |
27.03.2008, 21:39 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Если треугольник существует, то:
1.Находим уравнения двух сторон. 2. Находим уравнения нормалей к этим сторонам, проходящих через середины сторон. 3.Решаем систему из двух уравнений с двумя неизвестными-находим центр окружности. 4.Находим радиус-расстояние от центра до любой вершины. 5.Рисуем окружность. Все формулы в школьном учебнике геометрии, или в любом учебнике по аналитической геометрии. |
28.03.2008, 11:24 | #4 |
Регистрация: 27.03.2008
Сообщений: 7
|
Да это понятно что формулы есть все,а как это организовать в делфи.
Там получаются действительные числа а нужно целые для описания окружности.Может кто нибудь попробует её сделать,плииззз Напишите код Последний раз редактировалось Lion; 28.03.2008 в 12:01. |
28.03.2008, 12:07 | #5 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
При описании координат точек применяется функция Round, например
x+round(sin(x))-это целое количество пикселей. |
28.03.2008, 19:19 | #6 |
Регистрация: 27.03.2008
Сообщений: 7
|
|
28.03.2008, 19:47 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Я то могу ее сделать, но учить вместо тебя геометрию, которую подзабыл, полдня считать координаты за тебя не собираюсь, мне это не интересно.
|
29.03.2008, 11:20 | #8 |
Регистрация: 27.03.2008
Сообщений: 7
|
PHP код:
|
29.03.2008, 18:47 | #9 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ну вы поймите, что вам нужно посчитать для начала центр треугольника!!!! Как - вам рассказал Puporev (смотрите выше...)
То, что Вы написали - никуда не годится. К сожалению, это не так просто, как хотелось бы! ;-( |
29.03.2008, 20:32 | #10 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Кстати, есть такая книжка:
Название: Программирование в алгоритмах Автор: Окулов С.М. Издательство: Бином Год: 2002 Страниц: 341 она была в сети в эл.виде.. например, попробуйте глянуть тут... Там есть все нужные Вам алгоритмы и формулы (только прийдётся немножко подумать, как их применить). вот, цитирую оттуда: как проверить, можно ли построить треугольник. Даны три отрезка а, b, с. Для существования треугольника с такими длинами сторон требуется одновременное выполнение условий (а+Ь>с), (Ь+с>а) и (а+с>Ь). <...> Три перпендикуляра к сторонам треугольника, проведенные через их середины, пересекаются в одной точке, служащей центром описанного круга. В тупоугольном треугольнике эта точка лежит вне треугольника, в остроугольном — внутри, в прямоугольном — на середине гипотенузы. Его радиус вычисляется по формуле R=(a*b*c)/(4*SQRT(p*(p-a)*(p-b)*(p-c))). где p=(a+b+c)/2 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные | ProWinD | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 16.06.2008 20:12 |
Поиск разделяющих вершин в произвольном графе... | Agnazar | Помощь студентам | 4 | 29.05.2008 22:51 |
нарисовать окружность состоящую из 36 разноцветных квадратов | Invisible Hunter | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 29.05.2008 18:03 |
Нужно передвигать окружность с ускорением/ Задачка по Делфи7 | НУБ!!! | Помощь студентам | 4 | 20.05.2008 21:29 |
Сайт был недоступен около 40 часов, официальные причины. | Alar | О форуме и сайтах клуба | 2 | 09.03.2007 16:46 |