0 / 0 / 2
Регистрация: 19.06.2011
Сообщений: 72

Найти расстояние от точки до ближайшей стороны треугольника

22.09.2011, 22:35. Показов 2241. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны координаты вершин треугольника и координаты некоторой точки М внутри него. Испрользуя процедуру ( или функцию) подсчета расстояния от точки до прямой, найти расстояние от точки М до ближайшей стороны треугольника.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
22.09.2011, 22:35
Ответы с готовыми решениями:

Найти расстояние от данной точки до ближайшей стороны треугольника
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от данной точки до ближайшей стороны...

Найти расстояние от данной точки внутри треугольника до ближайшей его стороны
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Составить программу, находящую расстояние от данной точки до...

Найти расстояние от данной точки до ближайшей стороны треугольника, заданного координатами вершин
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от данной точки до ближайшей стороны...

6
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,168
23.09.2011, 17:06
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
uses crt;
const t=0.001;
//функция определения площади треугольника по координатам его вершин
function Plosh(ax,ay,bx,by,cx,cy:real):real;
begin
Plosh:=abs(ax*(by-cy)+bx*(cy-ay)+cx*(ay-by))/2;
end;
//функция определения принадлежности точки треугольнику
function Prin(ax,ay,bx,by,cx,cy,mx,my:real):boolean;
var s,s1,s2,s3:real;
begin
s:=Plosh(ax,ay,bx,by,cx,cy);{площадь данного треугольника}
s1:=Plosh(ax,ay,bx,by,mx,my);{1 маленький}
s2:=Plosh(bx,by,cx,cy,mx,my);{2}
s3:=Plosh(ax,ay,cx,cy,mx,my);{3}
{если площади равны с заданной точностью}
Prin:=abs((s1+s2+s3)-s)<t;
end;
function Dist(ax,ay,bx,by,mx,my:real):real;
var s:real;
begin
//найдем площадь треугольника, образованного точкой и концами стороны
s:=Plosh(ax,ay,bx,by,mx,my);
//вычислим высоту из формулы s=h*a/2
Dist:=2*s/sqrt(sqr(ax-bx)+sqr(ay-by));
end;
var ax,ay,bx,by,cx,cy,mx,my,sa,sb,sc,mn:real;
begin
clrscr;
repeat
writeln('Введите координаты вершин треугольника:');
writeln('Вершина А:');
readln(ax,ay);
writeln('Вершина B:');
readln(bx,by);
writeln('Вершина C:');
readln(cx,cy);
if Plosh(ax,ay,bx,by,cx,cy)=0 then writeln('Это не треугольник, повторите  ввод');
until Plosh(ax,ay,bx,by,cx,cy)>0;
repeat
writeln('Введите координаты точки M, лежащей внутри треугольника:');
readln(mx,my);
if not Prin(ax,ay,bx,by,cx,cy,mx,my) then writeln('Точка не в треугольнике, повторите ввод');
until Prin(ax,ay,bx,by,cx,cy,mx,my);
sa:=Dist(bx,by,cx,cy,mx,my);
sb:=Dist(ax,ay,cx,cy,mx,my);
sc:=Dist(ax,ay,bx,by,mx,my);
mn:=sa;
if sb<mn then mn:=sb;
if sc<mn then mn:=sc;
writeln('Расстояния от точки М до сторон треугльника:');
writeln(sa:0:2,'  ',sb:0:2,'  ',sc:0:2);
write('Минимальное расстояние=',mn:0:2);
readln
end.
3
2 / 2 / 1
Регистрация: 15.01.2011
Сообщений: 45
27.09.2011, 19:44
А можно написать алгоритм к этой задаче,просто это понятно, только вот мне надо по действиям

например

1.начало
2.ввод к шагу 3
3...... и т.д.
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,168
27.09.2011, 21:41
Цитата Сообщение от Emilg Посмотреть сообщение
только вот мне надо по действиям
Так в комментариях практически все написано, да и тебе, пишешь, понятно. Так что, за тебя еще и типа отчет написать?
1
0 / 0 / 2
Регистрация: 19.06.2011
Сообщений: 72
17.10.2011, 19:46  [ТС]
за прогу большое спасибо!)
но это немного не то что мне нужно...
препод сказал задание почитай!
там сказанно найти расстояние от точки "М" до ближайшей стороны треугольника!
а в данной проге от т. М до вершин!!! тоесть в программе нужно только изменить что-то, а так все верно!)
Помогите пожалуста исправить)))
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,168
17.10.2011, 20:22
Цитата Сообщение от Ghost_13 Посмотреть сообщение
найти расстояние от точки "М" до ближайшей стороны треугольника!
а в данной проге от т. М до вершин!!!
С чего это ты придумал?
Эта функция
Pascal
1
2
3
4
5
6
7
8
function Dist(ax,ay,bx,by,mx,my:real):real;
var s:real;
begin
//найдем площадь треугольника, образованного точкой и концами стороны
s:=Plosh(ax,ay,bx,by,mx,my);
//вычислим высоту из формулы s=h*a/2
Dist:=2*s/sqrt(sqr(ax-bx)+sqr(ay-by));
end;
как раз и находит расстояние от точки до стороны треугольника. Пошли бы вы со своим преподом куда-нибудь, например он в дворники, а ты в армию.
1
 Аватар для NIch
401 / 312 / 74
Регистрация: 17.03.2010
Сообщений: 1,119
17.10.2011, 21:11
Цитата Сообщение от Puporev Посмотреть сообщение
например он в дворники, а ты в армию.

Не по теме:

Блин в точку)))

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.10.2011, 21:11
Помогаю со студенческими работами здесь

Найти расстояние от данной точки до ближайшей стороны треугольника.
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от данной точки до ближай- шей стороны...

Расстояние от точки до стороны треугольника
Добрый день, у меня возникла проблема с следующей задачей. Я пробывал решал ее с помощю процедур и формулы площади через полупериметр,...

Найти расстояние точки до ближайшей стороны треугольника
Всем привет! Помогите решить данную задачу. Заданы координаты вершин треугольника и координаты точки в нем. Найти расстояние этой...

Найти расстояние от данной точки до ближайшей стороны треугольника
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от данной точки до ближайшей стороны...

найти расстояние от данной точки до ближайшей стороны треугольника
Помогите пожалуйста даны координаты вершин треугольника и координаты некоторой точки внутри него найти расстояние от данной точки до...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

Новые блоги и статьи
И решил я переделать этот ноут в машину для распределенных вычислений
Programma_Boinc 09.11.2025
И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .
Мысли в слух
kumehtar 07.11.2025
Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.
Новая зверюга
volvo 07.11.2025
Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .
Инференс ML моделей в Java: TensorFlow, DL4J и DJL
Javaican 05.11.2025
Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .
Mapped types (отображённые типы) в TypeScript
Reangularity 03.11.2025
Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .
Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна
GameUnited 02.11.2025
Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .
Протоколы в Python
py-thonny 31.10.2025
Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .
C++26: Read-copy-update (RCU)
bytestream 30.10.2025
Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .
Изображения webp на старых x32 ОС Windows XP и Windows 7
Argus19 30.10.2025
Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .
Passkey в ASP.NET Core identity
stackOverflow 29.10.2025
Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru