Принадлежность точки заданной области

@SANEK1990 · Регистрация: 19.04.2013

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

Задание. Разработать программу, которая в ответ на вводимую с клавиатуры пару вещественных чисел, представляющих собой координаты X,Y точки A на плоскости, выдает текстовое сообщение о принадлежности этой точки заданной области. Например: "Точка принадлежит заданной области".
В программе должно быть предусмотрено неограниченное повторение всех операций.
Решение о повторе должен принимать пользователь с помощью клавиатуры.

@ikki · 05.01.2014, 22:48

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

Решение о повторе должен принимать пользователь с помощью клавиатуры.

шедеврально, блин.
и каким образом клавиатура помогает принимать решение?

@SANEK1990 · 05.01.2014, 23:21 **[ТС]**

забыл предоставить. Вы просто скажите где мне эту программу разработать или как. просто я заочник дали задания а методичек и литературы нет

SoftIce · 06.01.2014, 01:46

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

Вы просто скажите где мне эту программу разработать или как

На VB6 можно что-то подобное замутить

@SANEK1990 · 10.01.2014, 20:32 **[ТС]**

SoftIce, а ты можешь прислать мне код программы

SoftIce · 10.01.2014, 20:36

Это были просто наброски кода.

А у тебя есть Visual Basic 6 ?

Release · 10.01.2014, 20:39

Не по теме:

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

Это были просто наброски кода.

Не по теме:

но получилось не плохо, однако :)

@SANEK1990 · 10.01.2014, 20:42 **[ТС]**

в офисе нажал алт+ф11 и открылся вба

SoftIce · 10.01.2014, 20:47

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

в офисе нажал алт+ф11 и открылся вба

В программе всё рисуется на форме, а в VBA рисовать на форме не доставляет никакого удовольствия

SoftIce · 10.01.2014, 20:50

Покопался в помойке, нашел проект.

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Option Explicit
Dim Sk As Integer
Dim xEllips As Single, yEllips  As Single, a As Single, b As Single
Dim x1Line  As Single, x2Line  As Single, y1Line  As Single, y2Line  As Single
Dim xCircle As Single, yCircle As Single, rCircle As Single
 
Private Sub Form_Load()
    Randomize
    ScaleMode = 3: DrawStyle = 0:  AutoRedraw = True: BackColor = vbWhite
    Sk = 50
    Scale (-Sk, Sk)-(Sk, -Sk)
    ''''''''''''''''''
    xEllips = -10
    yEllips = -10
    a = 22: b = 40
    ''''''''''''''''''
    x1Line = -80: y1Line = 60: x2Line = 100: y2Line = -32
    ''''''''''''''''''
    xCircle = 6: yCircle = 6: rCircle = 32
    ''''''''''''''''''
    Call Graf
    Call Coord
    Call Pic
End Sub
 
Private Sub Command1_Click()
    Dim X As Single, Y As Single, Rand As Single
    Rand = Round(Rnd * 41 - 20, 2)
    X = CSng(Replace(InputBox("Введите координату Х", "Ввод координат точки", Rand), ".", ","))
    Rand = Round(Rnd * 41 - 5, 2)
    Y = CSng(Replace(InputBox("Введите координату Y", "Ввод координат точки", Rand), ".", ","))
    Cls
    Call Graf
    Call Coord
    Call Pic
    DrawWidth = 7: ForeColor = vbBlue: PSet (X, Y): CurrentX = CurrentX + 1: Print "C": ForeColor = 0
    MsgBox "Точка  C (" & X & "; " & Y & ")   " & Belong(X, Y), vbInformation, "Принадлежность точки заданной области"
End Sub
 
Private Sub Graf()
    Dim X As Single, Y As Single
    DrawWidth = 5: DrawStyle = 0
    For X = -Sk To Sk Step 0.7
          For Y = -Sk To Sk Step 0.7
             If Belong(X, Y) = "принадлежит области B" Then
                 PSet (X, Y), RGB(200, 200, 255)
             ElseIf Belong(X, Y) = "принадлежит области A" Then
                 PSet (X, Y), RGB(200, 255, 200)
             Else
             End If
          Next Y
    Next X
End Sub
 
Private Sub Pic()
    DrawWidth = 2: FontBold = True
    Circle (xCircle, yCircle), rCircle, RGB(255, 0, 0)
    Circle (xEllips, yEllips), b, RGB(255, 0, 0), , , b / a
    Line (x1Line, y1Line)-(x2Line, y2Line), vbRed
    CurrentX = -13: CurrentY = 14: Print "A"
    CurrentX = 22: CurrentY = 19: Print "B"
End Sub
 
Private Sub Coord()
   Dim i As Single
'Kоординатная сетка
      DrawWidth = 1
      DrawStyle = 2   ' Пунктирная линия
      FontBold = False
      For i = -Sk To Sk Step 5
       CurrentX = 0    ' оцифровка
       CurrentY = i
       Print Format$(i, "0")
       Line (-0.05, i)-(0.05, i)   ' засечка
       Line (-Sk, i)-(Sk, i)
      Next i
      For i = -Sk To Sk Step 5
       CurrentX = i    ' оцифровка
       CurrentY = 0
       Print Format$(i, "0")
       Line (i, -0.05)-(i, 0.05) ' засечка
       Line (i, -Sk)-(i, Sk)
      Next i
      DrawStyle = 0   ' Cплошная линия
      DrawWidth = 2
      Line (-Sk, 0)-(Sk, 0), RGB(0, 0, 255) 'ocb X
      Line (0, -Sk)-(0, Sk), RGB(0, 0, 255)   'ocb Y
End Sub
 
 
Private Function Belong(ByVal X As Single, ByVal Y As Single) As String
    Belong = "не принадлежит ни одной области."
    If Y >= 0 Then
        If BelongCircle(X, Y) = True Then
            If X > 0 Then
               If BelowLine(X, Y) = False And BelongEllipse(X, Y) = False Then Belong = "принадлежит области B"
            Else
               If BelowLine(X, Y) = True And BelongEllipse(X, Y) = True Then Belong = "принадлежит области A"
            End If
        End If
    End If
End Function
 
'Принадлежность эллипсу
Private Function BelongEllipse(ByVal X As Single, ByVal Y As Single) As Boolean
    If ((X - xEllips) ^ 2) / a ^ 2 + ((Y - yEllips) ^ 2) / b ^ 2 <= 1 Then BelongEllipse = True
End Function
'Принадлежность кругу
Private Function BelongCircle(ByVal X As Single, ByVal Y As Single) As Boolean
    If Sqr((X - xCircle) ^ 2 + (Y - yCircle) ^ 2) <= rCircle Then BelongCircle = True
End Function
'Выше-ниже линии
Private Function BelowLine(ByVal X As Single, ByVal Y As Single) As Boolean
    If (X - x1Line) * (y2Line - y1Line) - (Y - y1Line) * (x2Line - x1Line) >= 0 Then BelowLine = True
End Function

@SANEK1990 · 10.01.2014, 21:01 **[ТС]**

SoftIce, спасибо))

22.01.2014, 15:42

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

Покопался в помойке, нашел проект.

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Option Explicit
Dim Sk As Integer
Dim xEllips As Single, yEllips  As Single, a As Single, b As Single
Dim x1Line  As Single, x2Line  As Single, y1Line  As Single, y2Line  As Single
Dim xCircle As Single, yCircle As Single, rCircle As Single
 
Private Sub Form_Load()
    Randomize
    ScaleMode = 3: DrawStyle = 0:  AutoRedraw = True: BackColor = vbWhite
    Sk = 50
    Scale (-Sk, Sk)-(Sk, -Sk)
    ''''''''''''''''''
    xEllips = -10
    yEllips = -10
    a = 22: b = 40
    ''''''''''''''''''
    x1Line = -80: y1Line = 60: x2Line = 100: y2Line = -32
    ''''''''''''''''''
    xCircle = 6: yCircle = 6: rCircle = 32
    ''''''''''''''''''
    Call Graf
    Call Coord
    Call Pic
End Sub
 
Private Sub Command1_Click()
    Dim X As Single, Y As Single, Rand As Single
    Rand = Round(Rnd * 41 - 20, 2)
    X = CSng(Replace(InputBox("Введите координату Х", "Ввод координат точки", Rand), ".", ","))
    Rand = Round(Rnd * 41 - 5, 2)
    Y = CSng(Replace(InputBox("Введите координату Y", "Ввод координат точки", Rand), ".", ","))
    Cls
    Call Graf
    Call Coord
    Call Pic
    DrawWidth = 7: ForeColor = vbBlue: PSet (X, Y): CurrentX = CurrentX + 1: Print "C": ForeColor = 0
    MsgBox "Точка  C (" & X & "; " & Y & ")   " & Belong(X, Y), vbInformation, "Принадлежность точки заданной области"
End Sub
 
Private Sub Graf()
    Dim X As Single, Y As Single
    DrawWidth = 5: DrawStyle = 0
    For X = -Sk To Sk Step 0.7
          For Y = -Sk To Sk Step 0.7
             If Belong(X, Y) = "принадлежит области B" Then
                 PSet (X, Y), RGB(200, 200, 255)
             ElseIf Belong(X, Y) = "принадлежит области A" Then
                 PSet (X, Y), RGB(200, 255, 200)
             Else
             End If
          Next Y
    Next X
End Sub
 
Private Sub Pic()
    DrawWidth = 2: FontBold = True
    Circle (xCircle, yCircle), rCircle, RGB(255, 0, 0)
    Circle (xEllips, yEllips), b, RGB(255, 0, 0), , , b / a
    Line (x1Line, y1Line)-(x2Line, y2Line), vbRed
    CurrentX = -13: CurrentY = 14: Print "A"
    CurrentX = 22: CurrentY = 19: Print "B"
End Sub
 
Private Sub Coord()
   Dim i As Single
'Kоординатная сетка
      DrawWidth = 1
      DrawStyle = 2   ' Пунктирная линия
      FontBold = False
      For i = -Sk To Sk Step 5
       CurrentX = 0    ' оцифровка
       CurrentY = i
       Print Format$(i, "0")
       Line (-0.05, i)-(0.05, i)   ' засечка
       Line (-Sk, i)-(Sk, i)
      Next i
      For i = -Sk To Sk Step 5
       CurrentX = i    ' оцифровка
       CurrentY = 0
       Print Format$(i, "0")
       Line (i, -0.05)-(i, 0.05) ' засечка
       Line (i, -Sk)-(i, Sk)
      Next i
      DrawStyle = 0   ' Cплошная линия
      DrawWidth = 2
      Line (-Sk, 0)-(Sk, 0), RGB(0, 0, 255) 'ocb X
      Line (0, -Sk)-(0, Sk), RGB(0, 0, 255)   'ocb Y
End Sub
 
 
Private Function Belong(ByVal X As Single, ByVal Y As Single) As String
    Belong = "не принадлежит ни одной области."
    If Y >= 0 Then
        If BelongCircle(X, Y) = True Then
            If X > 0 Then
               If BelowLine(X, Y) = False And BelongEllipse(X, Y) = False Then Belong = "принадлежит области B"
            Else
               If BelowLine(X, Y) = True And BelongEllipse(X, Y) = True Then Belong = "принадлежит области A"
            End If
        End If
    End If
End Function
 
'Принадлежность эллипсу
Private Function BelongEllipse(ByVal X As Single, ByVal Y As Single) As Boolean
    If ((X - xEllips) ^ 2) / a ^ 2 + ((Y - yEllips) ^ 2) / b ^ 2 <= 1 Then BelongEllipse = True
End Function
'Принадлежность кругу
Private Function BelongCircle(ByVal X As Single, ByVal Y As Single) As Boolean
    If Sqr((X - xCircle) ^ 2 + (Y - yCircle) ^ 2) <= rCircle Then BelongCircle = True
End Function
'Выше-ниже линии
Private Function BelowLine(ByVal X As Single, ByVal Y As Single) As Boolean
    If (X - x1Line) * (y2Line - y1Line) - (Y - y1Line) * (x2Line - x1Line) >= 0 Then BelowLine = True
End Function

А откуда появились значения
xCircle = 6:
yCircle = 6:

и

xEllips = -10
yEllips = -10

?

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3, Box2D, FreeType и SDL3_ttf из исходников с помощью 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 позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

@SANEK1990 0 / 0 / 0 Регистрация: 19.04.2013 Сообщений: 9

	Принадлежность точки заданной области 05.01.2014, 22:34. Показов 5183. Ответов 11 Метки нет (Все метки) Задание. Разработать программу, которая в ответ на вводимую с клавиатуры пару вещественных чисел, представляющих собой координаты X,Y точки A на плоскости, выдает текстовое сообщение о принадлежности этой точки заданной области. Например: "Точка принадлежит заданной области". В программе должно быть предусмотрено неограниченное повторение всех операций. Решение о повторе должен принимать пользователь с помощью клавиатуры. 0

@SANEK1990 0 / 0 / 0 Регистрация: 19.04.2013 Сообщений: 9
	05.01.2014, 23:21 [ТС]
	забыл предоставить. Вы просто скажите где мне эту программу разработать или как. просто я заочник дали задания а методичек и литературы нет Миниатюры 0

@SANEK1990 0 / 0 / 0 Регистрация: 19.04.2013 Сообщений: 9
	10.01.2014, 20:32 [ТС]
	SoftIce, а ты можешь прислать мне код программы 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	10.01.2014, 20:36
	Это были просто наброски кода. А у тебя есть Visual Basic 6 ? 0

@SANEK1990 0 / 0 / 0 Регистрация: 19.04.2013 Сообщений: 9
	10.01.2014, 20:42 [ТС]
	в офисе нажал алт+ф11 и открылся вба 0

@SANEK1990 0 / 0 / 0 Регистрация: 19.04.2013 Сообщений: 9
	10.01.2014, 21:01 [ТС]
	SoftIce, спасибо)) 0