Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2009, 22:26   #1
Romchik911
 
Регистрация: 21.01.2009
Сообщений: 5
Печаль Помогите с програмой на Delphi

Нужна програма на Delphi которая находит площадь окружности вписанной в треугольник и графически отображает это ! Притом что даны только координаты 3 точек(они могут быть каждый раз разными, и вводитса з клавиатуры)
Буду очень благодарен за помощь!!!
Romchik911 вне форума Ответить с цитированием
Старый 22.01.2009, 01:20   #2
werser
Форумчанин
 
Регистрация: 11.06.2007
Сообщений: 233
По умолчанию

Три точки это кординаты вершин треугольника?
werser вне форума Ответить с цитированием
Старый 22.01.2009, 11:16   #3
Romchik911
 
Регистрация: 21.01.2009
Сообщений: 5
Печаль

Цитата:
Сообщение от werser Посмотреть сообщение
Три точки это кординаты вершин треугольника?
Да это координаты треугольника!!!
Romchik911 вне форума Ответить с цитированием
Старый 22.01.2009, 11:19   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А как ты это на бумаге вычисляешь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.01.2009, 12:09   #5
Romchik911
 
Регистрация: 21.01.2009
Сообщений: 5
По умолчанию

Так в том то и дело , что я незнаю какой алгоритм, програму я и сам написать могу(((
Я знаю как решить эту задачу только, без графики!!
А чтобы оно еще и рисовало немогу догнать, формулы не помню!!!
Romchik911 вне форума Ответить с цитированием
Старый 22.01.2009, 12:11   #6
werser
Форумчанин
 
Регистрация: 11.06.2007
Сообщений: 233
По умолчанию

Это помоему стандартная задача по вышке на первом курсе универа. Реши ее на бумаге потом просто на код переведи. Решаетса она так:
1. Находитса полупериметр через координаты (форумула модуль вектора)
2. Сторона одна(тоже таже формула)
3. Противоположный к этой стороне угол(тоже есть формула в векторах)
4. Вот формула S = pi * ((p-a)*tg(A/2))І
Где a, A — сторона и противолежащий угол соответственно, p — полупериметр
Вот и все

Последний раз редактировалось werser; 22.01.2009 в 12:12. Причина: Там в 4 пункте вконце квадрат(степень) стоит
werser вне форума Ответить с цитированием
Старый 22.01.2009, 12:12   #7
Romchik911
 
Регистрация: 21.01.2009
Сообщений: 5
По умолчанию

Площадь треугольника можно найти двумя разными способами:

S=p*r, (1)
где p - полупериметр треугольника, r - радиус вписанной в него окружности.

S=sqrt(p*(p-a)*(p-b)*(p-c)), (2)
где sqrt - функция вычисления квадратного корня, a, b и c - стороны треугольника.

По большому счету
p = (a+b+c)/2.

Зная координаты вершин треугольника, находим длину каждой из его сторон (например a=sqrt((xB-xC)*(xB-xC)-(yB-yC)*(yB-yC)), где xB и xC - абсциссы вершин B и C, а yB и yC - их ординаты).

Зная длины сторон, находим полупериметр.

Зная полупериметр, поформуле (2) находим площадь треугольника.

Затем по формуле (1) находим r.

Площадь вписанного в треугольник круга находится по формуле
Sк=PI*r*r,
где PI - число пи.
Вот так выглядит решение, если рисовать не нужно!!
Romchik911 вне форума Ответить с цитированием
Старый 22.01.2009, 12:18   #8
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

S треугольника=p*r;
s треугольника=sqrt(p*(p-a)*(p-b)*(p-c));
p=(a+b+c)/2;r-то что тебе надовыражай
вступлю в команду разработчиков ПО на Delphi

Последний раз редактировалось maladoy; 22.01.2009 в 12:22.
maladoy вне форума Ответить с цитированием
Старый 22.01.2009, 12:22   #9
Romchik911
 
Регистрация: 21.01.2009
Сообщений: 5
По умолчанию

1. Находитса полупериметр через координаты (форумула модуль вектора)
2. Противоположный к этой стороне угол(тоже есть формула в векторах)

А эти две формулы не могли бы подсказать!!! Пожалуйста!!!
Romchik911 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с Delphi Lenusik Помощь студентам 0 31.05.2008 21:36