Составить программу, определяющую, принадлежит ли точка с введёнными координатами заштрихованной части плоскости

@krokoz9lbr · Регистрация: 15.09.2013

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

Необходимо написать программу, определяющую, принадлежит ли точка с координатами (х;у) заштрихованной части плоскости

Комментарий модератора

Сообщение от Правила форума

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

Ссылка удалена, вложение загружено.

У меня получилось :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim x As Double, y As Double
InputBox ("Введите х")
InputBox ("Введите у")
x = Sqr(x)
y = Sqr(y)
If x <= 1 And x >= 0 And y <= 1 And y >= 0 And a = x ^ 3 Then
If a <= 1 And a >= 0 Then
MsgBox ("Точка А принадлежит плоскости")
Else: MsgBox ("Точка А не принадлежит плоскости")
End If
End If

Однако получается, что точка всегда принадлежит плоскости, вне зависимости от координат

mobile · 15.09.2013, 15:28

Visual Basic
1
2
3
4
5
If x>= 0 And (y >= x^3 And y <= 1-x^2) Then
  MsgBox ("Точка А принадлежит плоскости")
Else 
  MsgBox ("Точка А НЕ принадлежит плоскости")
End If

@krokoz9lbr · 15.09.2013, 15:53 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim x As Double, y As Double
InputBox ("Введите x")
InputBox ("Введите y")
x = Sqr(x)
y = Sqr(y)
If x >= 0 And (y >= x ^ 3 And y <= 1 - x ^ 2) Then
  MsgBox ("Точка А принадлежит плоскости")
Else
  MsgBox ("Точка А не принадлежит плоскости")
End If

По прежнему при вводе заведомо не подходящих координат, например (20;20), точка всё равно принадлежит

mobile · 15.09.2013, 16:00

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

По прежнему при вводе заведомо не подходящих координат, например (20;20), точка всё равно принадлежит

Конечно. Вы же не задаете X и Y. Инпутбоксы в себя направлены, в нуль-пространство. Надо:

Visual Basic
1
2
x = InputBox("Введите x")
y = InputBox("Введите y")

Да, еще. Не надо брать корни от заданных x, y. Вот эти предложения надо убрать

Visual Basic
1
2
x = Sqr(x)
y = Sqr(y)

@krokoz9lbr · 15.09.2013, 16:05 **[ТС]**

Ой, извиняюсь. Я и не заметил

Да, теперь всё работает. Спасибо)

Аксима · 16.09.2013, 10:57

mobile, а почему такое уравнение?

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

Visual Basic
1
If x>= 0 And (y >= x^3 And y <= 1-x^2) Then

Если я не ошибаюсь, то уравнение окружности с радиусом 1 таково:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}+{y}^{2}=1$ или $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}=\pm \sqrt{1-{x}^{2}}$

При y>=0:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}=\sqrt{1-{x}^{2}}$

Поэтому мне кажется, что данная строка кода должна иметь вид:

Visual Basic
1
If x >= 0 And y >= x ^ 3 And y <= Sqr(1 - x ^ 2) Then

С уважением,

Aksima

mobile · 16.09.2013, 13:20

Конечно, Aksima, недоглядел... Спасибо.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@krokoz9lbr 0 / 0 / 0 Регистрация: 15.09.2013 Сообщений: 8
	15.09.2013, 16:05 [ТС]
	Ой, извиняюсь. Я и не заметил Да, теперь всё работает. Спасибо) 0

mobile 26826 / 14506 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	16.09.2013, 13:20
	Конечно, Aksima, недоглядел... Спасибо. 0