Проверка: лежит ли точка на параболе

@fd_Nikolas · Регистрация: 26.06.2012

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

Всем привет,необходимо решить задачу,никак не могу с ней справится:
Пользователь вводит координаты точки х и у,программа должна проверить,лежит ли данная точка на параболе.Для того чтобы точка лежала на параболе, необходимо чтобы она была одинаково удалена от фокуса этой параболы и от директрисы параболы.Как можно осуществить данную теорему в виде VBA?

Прошу помощи.

@ikki · 28.06.2012, 20:22

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

Пользователь вводит координаты точки х и у,программа должна проверить,лежит ли данная точка на параболе

а парабола откуда берётся? или Вы полагаете, что она живёт внутри VBA?

@Казанский · 28.06.2012, 20:35

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

Для того чтобы точка лежала на параболе, необходимо чтобы она была одинаково удалена от фокуса этой параболы и от директрисы параболы.

По-моему, для этого достаточно, чтобы х,у удовлетворяли уравнению параболы.

@fd_Nikolas · 28.06.2012, 21:07 **[ТС]**

Уравнение параболы не дано.

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

а парабола откуда берётся?

Забыл добавить,пользователь сам,через (если я не ошибаюсь) inputbox, "строит" параболу.

@ikki · 28.06.2012, 21:22

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

пользователь сам,через (если я не ошибаюсь) inputbox, "строит" параболу

не могу себе такое представить

если уравнения параболы нет, то могу лишь предположить наличие уравнения директрисы и координат фокуса.
как (под)вариант - для директрисы заданы две принадлежащие ей точки.

@fd_Nikolas · 29.06.2012, 13:12 **[ТС]**

Нет,в задании уравнения директрисы и координат фокуса не даны...просто даны координаты точки х,у и проверить,лежит ли это точка на параболе.

Добавлено через 13 часов 14 минут
Ап,неужто нельзя такое решить?
Ну а если самому задать уравнение параболы?Ибо я другого выхода не вижу...

@ikki · 29.06.2012, 13:47

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

Как можно осуществить данную теорему в виде VBA?

fd_Nikolas, я правильно понимаю это Ваше предложение? загвоздка у Вас только в VBA?
предлагаю Вам решить поставленный Вами вопрос - в том виде, как Вы его поставили, без VBA - средств аналитической геометрии для этого достаточно.
при этом самому определиться, что это за "парабола" в постановке задачи и как она задается (не забываем: задача - Ваша).

решение выложить сюда.

в реализации Вашего решения на языке VBA мы Вам поможем.

иначе - получается как в той сказке: "иди туда, не знаю куда, принеси то, не знаю что"

@Sasha_Smirnov · 29.06.2012, 16:54

(1) y = ax² + bx + c (уравнение);
(2) {x; y} (точка)

Если (2) при подстановке в (1) даёт истину (верное равенство), то — лежит, иначе — нет.

@Казанский · 29.06.2012, 19:03

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

Нет,в задании уравнения директрисы и координат фокуса не даны...просто даны координаты точки х,у и проверить,лежит ли это точка на параболе.

А откуда тогда взялись понятия директрисы и фокуса? О_о
Может, в этой конторе парабола это y=x² и больше никакая другая?

@fd_Nikolas · 01.07.2012, 17:24 **[ТС]**

Ну вот дано уравнение у=0,5х^2 - далее пользователь указывает точку х и точку у - высвечивается результат.
Или необходимо еще задать уравнение директрисы/фокуса ?

@Казанский · 01.07.2012, 19:02

Не прошло и недели - появилось уравнение

Visual Basic
1
2
3
4
5
6
Sub bb()
Dim x#, y#
x = InputBox("Введите X", , 4)
y = InputBox("Введите Y", , 8)
If y = 0.5 * x ^ 2 Then MsgBox "Лежит" Else MsgBox "Не лежит"
End Sub

@Novichek =) · 02.07.2012, 12:50

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

Или необходимо еще задать уравнение директрисы/фокуса ?

Ничего не надо.

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

(1) y = ax² + bx + c (уравнение);
(2) {x; y} (точка)
Если (2) при подстановке в (1) даёт истину (верное равенство), то — лежит, иначе — нет.

Вот все что нужно.

Visual Basic
1
2
3
4
5
6
Sub parabola()
x = InputBox("", "Введите Х")
y = InputBox("", "Введите Y")
If y - 0.5 * x ^ 2 = 0 Then MsgBox ("Лежит")
If y - 0.5 * x ^ 2 <> 0 Then MsgBox ("Не лежит")
End Sub

Вот код, пример ниже.

@Novichek =) · 02.07.2012, 12:52

Сообщение от Казанский

Не прошло и недели - появилось уравнение

Упс... Вторую станицу не прочитал

А уже оказывается все сделали!

@ikki · 02.07.2012, 12:54

проверим?
x=0.2
y=0.02

@Sasha_Smirnov · 02.07.2012, 13:00

да... вычислители избалованы ручкой и бумагой в клеточку!

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@fd_Nikolas 53 / 0 / 1 Регистрация: 26.06.2012 Сообщений: 25

	Проверка: лежит ли точка на параболе 28.06.2012, 20:10. Показов 9566. Ответов 14 Метки нет (Все метки) Всем привет,необходимо решить задачу,никак не могу с ней справится: Пользователь вводит координаты точки х и у,программа должна проверить,лежит ли данная точка на параболе.Для того чтобы точка лежала на параболе, необходимо чтобы она была одинаково удалена от фокуса этой параболы и от директрисы параболы.Как можно осуществить данную теорему в виде VBA? Прошу помощи. 0

@fd_Nikolas 53 / 0 / 1 Регистрация: 26.06.2012 Сообщений: 25
	29.06.2012, 13:12 [ТС]
	Нет,в задании уравнения директрисы и координат фокуса не даны...просто даны координаты точки х,у и проверить,лежит ли это точка на параболе. Добавлено через 13 часов 14 минут Ап,неужто нельзя такое решить? Ну а если самому задать уравнение параболы?Ибо я другого выхода не вижу... 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	29.06.2012, 16:54
	(1) y = ax² + bx + c (уравнение); (2) {x; y} (точка) Если (2) при подстановке в (1) даёт истину (верное равенство), то — лежит, иначе — нет. 0

@fd_Nikolas 53 / 0 / 1 Регистрация: 26.06.2012 Сообщений: 25
	01.07.2012, 17:24 [ТС]
	Ну вот дано уравнение у=0,5х^2 - далее пользователь указывает точку х и точку у - высвечивается результат. Или необходимо еще задать уравнение директрисы/фокуса ? 0

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	02.07.2012, 12:54
	проверим? x=0.2 y=0.02 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	02.07.2012, 13:00
	да... вычислители избалованы ручкой и бумагой в клеточку! 0

Проверка: лежит ли точка на параболе

Решение