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

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

05.07.2016, 15:19. Показов 1267. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
05.07.2016, 17:14 2
Лучший ответ Сообщение было отмечено nik21 как решение

Решение

Delphi
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
56
57
58
59
60
{$R *.dfm}
const t=0.001;{точность сравнения вычисленных вещественных чисел}
//функция определения площади треугольника по координатам вершин
function plosh(x1,y1,x2,y2,x3,y3:real):real;
begin
plosh:=abs((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2;
end;
//функция проверки лежит ли точка в треугольнике
function prin(x1,y1,x2,y2,x3,y3,tx,ty:real):boolean;
begin
prin:=abs(plosh(x1,y1,x2,y2,x3,y3)-plosh(x1,y1,x2,y2,tx,ty)
-plosh(x1,y1,tx,ty,x3,y3)-plosh(tx,ty,x2,y2,x3,y3))<t
end;
//функция определения высоты
function vys(x1,y1,x2,y2,tx,ty:real):real;
begin
vys:=2*plosh(x1,y1,x2,y2,tx,ty)/sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var ax,ay,bx,by,cx,cy,tx,ty,d:real;
    s:string;
begin
ax:=strtofloat(Edit1.Text);
ay:=strtofloat(Edit2.Text);
bx:=strtofloat(Edit3.Text);
by:=strtofloat(Edit4.Text);
cx:=strtofloat(Edit5.Text);
cy:=strtofloat(Edit6.Text);
if plosh(ax,ay,bx,by,cx,cy)<t then
 begin
  ShowMessage('Треугольник вырожденный, повторите ввод');
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit1.SetFocus;
  exit;
 end;
tx:=strtofloat(Edit7.Text);
ty:=strtofloat(Edit8.Text);
if not prin(ax,ay,bx,by,cx,cy,tx,ty) then
 begin
  ShowMessage('Точка вне треугольника, повторите ввод');
  Edit7.Clear;
  Edit8.Clear;
  Edit7.SetFocus;
  exit;
 end;
s:='Расстояние от точки до стороны АВ='+formatfloat('0.00',vys(ax,ay,bx,by,tx,ty))+#13#10+
   'Расстояние от точки до стороны АC='+formatfloat('0.00',vys(ax,ay,cx,cy,tx,ty))+#13#10+
   'Расстояние от точки до стороны ВC='+formatfloat('0.00',vys(bx,by,cx,cy,tx,ty))+#13#10;
if vys(ax,ay,bx,by,tx,ty)<vys(ax,ay,cx,cy,tx,ty)then
d:=vys(ax,ay,bx,by,tx,ty)else d:=vys(ax,ay,cx,cy,tx,ty);
if vys(bx,by,cx,cy,tx,ty)<d then d:=vys(bx,by,cx,cy,tx,ty);
s:=s+'Наименьшее расстояние='+formatfloat('0.00',d);
ShowMessage(s);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2016, 17:14

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.