Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.74/27: Рейтинг темы: голосов - 27, средняя оценка - 4.74
2 / 2 / 1
Регистрация: 25.10.2011
Сообщений: 50
1

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

09.11.2011, 20:55. Показов 5027. Ответов 1
Метки нет (Все метки)

Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника. (При определении расстояний учесть, что площадь треугольника вычисляется и через три его стороны, и через основание и высоту.)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.11.2011, 20:55
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
10.11.2011, 15:51 2
Лучший ответ Сообщение было отмечено как решение

Решение

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('Точки расположены на 1 прямой, повторите  ввод');
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.
5
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.11.2011, 15:51

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

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

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

Найти расстояние от данной точки внутри до ближайшей стороны треугольника
Добрый день!) нужна помощь в решении одной задачи:)Заранее спасибо:) Даны координаты вершин...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru