Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 03.02.2016
Сообщений: 29
1

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

03.02.2016, 05:58. Показов 1402. Ответов 2
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2016, 05:58
Ответы с готовыми решениями:

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

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

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

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

2
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
03.02.2016, 15:50 2
Лучший ответ Сообщение было отмечено mmoonnika как решение

Решение

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
procedure TForm1.Button1Click(Sender: TObject);
var a:array of TPoint;
    n,i,xt,yt,r:integer;
begin
randomize;
n:=strtoint(Edit1.Text);
setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i].X:=2+random(Image1.Width-4);
  a[i].Y:=2+random(Image1.Height-4);
 end;
xt:=0;
yt:=0;
for i:=0 to n-1 do
 begin
  xt:=xt+a[i].X;
  yt:=yt+a[i].Y;
 end;
xt:=round(xt/n);
yt:=round(yt/n);
r:=round(sqrt(sqr(xt-a[0].X)+sqr(yt-a[0].Y)));
for i:=0 to n-1 do
if sqr(xt-a[i].X)+sqr(yt-a[i].Y)<r*r then
r:=round(sqrt(sqr(xt-a[i].X)+sqr(yt-a[i].Y)));
with Image1.Canvas do
 begin
  for i:=0 to n-1 do
   begin
    brush.Color:=clBlue;
    ellipse(a[i].X-2,a[i].Y-2,a[i].X+2,a[i].Y+2);
    pen.Color:=clGreen;
    moveto(xt,yt);
    lineto(a[i].X,a[i].Y);
   end;
  brush.Color:=clYellow;
  ellipse(xt-r,yt-r,xt+r,yt+r);
  brush.Color:=clRed;
  ellipse(xt-3,yt-3,xt+3,yt+3);
  font.Size:=12;
  brush.Style:=bsClear;
  textout(Image1.Width div 2-30,Image1.Height-40,'Радиус='+inttostr(r));
 end;
end;
1
0 / 0 / 0
Регистрация: 03.02.2016
Сообщений: 29
04.02.2016, 06:48  [ТС] 3
Спасибо большое)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2016, 06:48

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

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

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

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


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

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

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