Нахождение кратчайшего расстояния от точки до фигуры

@AnsyM · Регистрация: 04.11.2015

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Буду благодарна за помощь в решении данной задачи, ибо у меня ничего не получилось. Написала блок-схему на лист А4 размером и в конечном итоге даже программу не могу запустить, потому что ошибка на ошибке в условных блоках.

Требуется найти кратчайшее расстояние от произвольной точки М(Х,Y) с координатами X и Y до контура фигуры, точка может располагаться как внутри, так и вне геометрической фигуры. Необходимо рассмотреть все возможные варианты и составить для них формулы, на основании этих формул разработать алгоритм и программу, которая по введенным с клавиатуры значениям X и Y вычисляет расстояние и выводит результат на экран монитора.

Добавлено через 11 минут
найти кратчайшее расстояние от произвольной точки M(X,Y) с координатами X и Y до контура фигуры К сожадению никто не ответил тогда на эту задачу, может сейчас заметят...

@Апострофф · 05.11.2015, 06:46

Сообщение от AnsyM

Написала блок-схему на лист А4 размером и в конечном итоге даже программу не могу запустить, потому что ошибка на ошибке в условных блоках

А вы покажите то, что написали, задайте конкретный вопрос по программе - и процесс пойдёт, не сомневайтесь

shanemac51 · 05.11.2015, 07:42

здесь похоже 6 диапазонов для точек

x	y
-1+1	>0
<-1	>0
>1	>0
-2+2	<0
<-2	<0
>2	<0

@AnsyM · 05.11.2015, 20:04 **[ТС]**

Visual Basic
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
Option Explicit
Sub pr1()
Dim x, y, r As Single
x = InputBox("x=")
y = InputBox("y=")
If x <= -2 Then
  If y >= 0 Then
  r = Sqr(x ^ 2 + y ^ 2) - 1
  Else
  r = Sqr(x ^ 2 + y ^ 2)
  End If
MsgBox ("r=") & r
End If
If x > -2 And x <= -1 Then
  If y >= 0.5 Then
  r = Sqr(x ^ 2 + y ^ 2)
  ElseIf x < -0.5 Then
  r = Abs(y)
  Else
  r = Sqr(x ^ 2 + y ^ 2)
  End If
MsgBox ("r=") & r
End If
If x > -1 And x <= 1 Then
  If y >= 0.5 Then
  r = Abs(1 - y)
  Else
  r = Abs(y)
  End If
MsgBox ("r=") & r
End If
If x > 1 And x <= 2 Then
  If y >= 0.5 Then
  r = Sqr(x ^ 2 + y ^ 2)
  ElseIf x < 0.5 Then
  r = y
  Else
  r = Sqr(x ^ 2 + y ^ 2)
  End If
MsgBox ("r=") & r
End If
If x > 2 Then
  If y >= 0 Then
  r = Sqr(x ^ 2 + y ^ 2) - 1
  Else
  r = Sqr(x ^ 2 + y ^ 2)
  End If
MsgBox ("r=") & r
End If
End Sub

Апострофф, Подумала-подумала и написала покороче, но работает не на всех точках. На каких то точках вообще выдает ошибку, на других тупо проскакивает нужную ветку и идет по второму else. Помогите, кто сможет

shanemac51 · 05.11.2015, 22:27

вам же нарисовали схему

Visual Basic
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
Sub mm05()
pr1 "var.1", -3, -1
pr1 "var.2", -0.5, -1
pr1 "var.3", 2, -1
pr1 "var.1p", -2, 1
pr1 "var.2p", -0.5, 1.5
pr1 "var.2p", -0.5, 0.5
pr1 "var.3p", 2, 1
 
 
End Sub
Function pr1(v, x, y)
Dim r As Single
 
If x <= -2 And y < 0 Then
  r = Sqr((x - (-2)) ^ 2 + y ^ 2)
  Debug.Print v, x, y, r
  Exit Function
End If
''''''''''''''''''''''
  If (-1 <= x And x <= 1) And y < 0 Then
  r = -y
  Debug.Print v, x, y, r
  Exit Function
End If
''''''''''''''''''''''
If x > 1 And y < 0 Then
  r = Sqr((x - 1) ^ 2 + y ^ 2)
  Debug.Print v, x, y, r
  Exit Function
End If
''''''''''''''''''''''
If x < -1 And y > 0 Then
  r = Abs(Sqr((x - (-1)) ^ 2 + y ^ 2) - 1)
  Debug.Print v, x, y, r
  Exit Function
End If
''''''''''''''''''''''''
If (x > -1 And x <= 1) And y > 0 Then
  r = Abs(y - 1)
  Debug.Print v, x, y, r
  Exit Function
End If
'''''''''''''''
If x > 1 And y > 0 Then
 
  r = Abs(Sqr((x - 1) ^ 2 + y ^ 2) - 1)
 Debug.Print v, x, y, r
  Exit Function
End If
End Function

@AnsyM · 05.11.2015, 23:51 **[ТС]**

shanemac51, свою программу я написала почти по вашей же схеме. Думаю из того, как она написана, видно, что я не очень то еще разбираюсь в вба, поэтому то что написано в вашей программе неособо мне понятно. А именно 1-11 строчка и подстановки чисел в скобку к иксу, непример, здесь r = Sqr((x - (-2)) ^ 2 + y ^ 2)

shanemac51 · 06.11.2015, 06:34

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

SoftIce · 06.11.2015, 07:08

Не по теме:

убрал неверный вариант

shanemac51 · 06.11.2015, 08:52

подправила

Visual Basic
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
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub mm05()
Debug.Print "---отрицательные y--------"
pr1 "var.1", -3, -1, 1.4
pr1 "var.2", -0.5, -1, 1
pr1 "var.3", 3, -1, 1.4
Debug.Print "---положительные y--x<-1 --------"
pr1 "var.1p", -2, 1, 0.4
pr1 "var.1p", -1.5, 0.8, 0.1
pr1 "var.1p", -1.5, 0.3, 0.3
Debug.Print "---положительные y--середина--------"
pr1 "var.2p", -0.5, 1.5, 0.5
pr1 "var.2p", -0.5, 0.6, 0.4
pr1 "var.2p", -0.5, 0.2, 0.2
Debug.Print "---положительные y--x>1--------"
pr1 "var.3p", 3, 1, 1.2
pr1 "var.3p", 1.8, 0.8, 0.2
pr1 "var.3p", 1.2, 0.2, 0.2
 
 
 
End Sub
Function pr1(v, x, y, z)
Dim r As Single, r1, komm, rad
r1 = 0
rad = 1
komm = ""
If x <= -2 And y < 0 Then
  r = Sqr((x - (-2)) ^ 2 + y ^ 2)
  GoTo mfin
  End If
''''''''''''''''''''''
  If (-1 <= x And x <= 1) And y < 0 Then
  r = -y
  GoTo mfin
End If
''''''''''''''''''''''
If x > 1 And y < 0 Then
  r = Sqr((x - 2) ^ 2 + y ^ 2)
  GoTo mfin
End If
''''''''''''''''''''''
If x < -1 And y > 0 Then
  r1 = Abs(Sqr((x - (-1)) ^ 2 + y ^ 2) - rad)
  If r1 > y Then
  r = y
  komm = "ось"
  Else
  r = r1
  End If
  GoTo mfin
End If
''''''''''''''''''''''''
If (x > -1 And x <= 1) And y > 0 Then
  r1 = Abs(y - 1)
  If r1 > y Then
  r = y
  komm = "ось"
  Else
  r = r1
  End If
  GoTo mfin
End If
'''''''''''''''
If x > 1 And y > 0 Then
 
  r = Abs(Sqr((x - 1) ^ 2 + y ^ 2) - rad)
 GoTo mfin
End If
 
mfin:
Debug.Print v, "x="; x, "y="; y, "r="; Format(r, "0.00"); " ожидаемое ="; z, "r1="; Format(r1, "0.00"); " "; komm
pr1 = r
End Function

@texnik-san · 06.11.2015, 09:17

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

Code
1
2
3
4
5
МинРасстояние = 1000000
от х=Начало до х=Конец
    tmp = расстояние(ЗаданнаяТочка, ТочкаФигуры(х))
    если tmp<МинРасстояние то МинРасстояние=tmp
следующий х

@Казанский · 06.11.2015, 09:42

Фигура симметрична относительно оси У. Если сразу заменить x на Abs(x), число вариантов может снизиться

@AnsyM · 06.11.2015, 16:33 **[ТС]**

Спасибо всем за отклики! Я просто при запуске программы вводила значения через точку вместо запятой, и поэтому программа проскакивала условия, когда вбивались десятичные числа.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@AnsyM 0 / 0 / 0 Регистрация: 04.11.2015 Сообщений: 13

	Нахождение кратчайшего расстояния от точки до фигуры 04.11.2015, 23:43. Показов 1415. Ответов 11 Метки нет (Все метки) Доброго времени суток! Буду благодарна за помощь в решении данной задачи, ибо у меня ничего не получилось. Написала блок-схему на лист А4 размером и в конечном итоге даже программу не могу запустить, потому что ошибка на ошибке в условных блоках. Требуется найти кратчайшее расстояние от произвольной точки М(Х,Y) с координатами X и Y до контура фигуры, точка может располагаться как внутри, так и вне геометрической фигуры. Необходимо рассмотреть все возможные варианты и составить для них формулы, на основании этих формул разработать алгоритм и программу, которая по введенным с клавиатуры значениям X и Y вычисляет расстояние и выводит результат на экран монитора. Добавлено через 11 минут найти кратчайшее расстояние от произвольной точки M(X,Y) с координатами X и Y до контура фигуры К сожадению никто не ответил тогда на эту задачу, может сейчас заметят... 0

@AnsyM 0 / 0 / 0 Регистрация: 04.11.2015 Сообщений: 13
	05.11.2015, 23:51 [ТС]
	shanemac51, свою программу я написала почти по вашей же схеме. Думаю из того, как она написана, видно, что я не очень то еще разбираюсь в вба, поэтому то что написано в вашей программе неособо мне понятно. А именно 1-11 строчка и подстановки чисел в скобку к иксу, непример, здесь r = Sqr((x - (-2)) ^ 2 + y ^ 2) 0

shanemac51 Модератор 12208 / 5051 / 812 Регистрация: 07.08.2010 Сообщений: 14,905 Записей в блоге: 4
	06.11.2015, 06:34
	уже выключив комп поняла, что неточно прописала поиск для внутренних областей посмотрю попозже 0

SoftIce
	06.11.2015, 07:08
	Не по теме: убрал неверный вариант 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	06.11.2015, 09:42
	Фигура симметрична относительно оси У. Если сразу заменить x на Abs(x), число вариантов может снизиться 0

@AnsyM 0 / 0 / 0 Регистрация: 04.11.2015 Сообщений: 13
	06.11.2015, 16:33 [ТС]
	Спасибо всем за отклики! Я просто при запуске программы вводила значения через точку вместо запятой, и поэтому программа проскакивала условия, когда вбивались десятичные числа. 0