Прошу Помощи

nemo85

New member
12.05.2013
2
0
#1
Доброго времени суток всем! Помогите пожалуйста написать программу, т.к. в этом я полный ноль и ни черта в этом не смыслю, хотя совсем и не тупой))
Задание такое:
Задание.jpg

Буду всем премного БЛАГОДАРЕН!
 

Вложения

alex77755

Well-known member
15.02.2009
128
0
#2
"Размер моей благодарности не будет иметь границ. В разумных пределах, конечно." :D
Задание не сложное. Могу сделать. Но у меня правило: что бы это считалось помощью должны быть собственные наработки.
запрос координат примерно так:
Код:
Координаты = InputBox("Введите координаты точки......")
 

nemo85

New member
12.05.2013
2
0
#3
Вроде немного разобрался, не знаю на сколько правильно

Private Property x As Single

Private Property y As Single

Private Property M As String


Sub Main()
1: Dim x As String
2: Dim y As String
3: Dim M As String
4: InputBox("Введите координаты точки M")
5: If (x <= (1 - 1)) And (y <= (1 - 1)) Then
6: End If
7: MsgBox("Точка принадлежит фигуре")
8: If (x > (1 - 1)) And (y > (1 - 1)) Then
9: End If
10: MsgBox("Точка не принадлежит фигуре")
11: If (x > (1 - 1)) And (y > (1 - 1)) Then
12: End If
End Sub

End Module

Вроде работает, но не совсем так как нужно.
 

alex77755

Well-known member
15.02.2009
128
0
#4
Где-то так:
Код:
Sub Main()
Dim x As Double
Dim y As Double
Dim M() As String
M = Split(InputBox("Введите координаты точки M", "Введите через пробел", "3 5"), " ")
x = CDbl(M(0))
x = CDbl(M(1))
If (x <= (1 - 1)) And (y <= (1 - 1)) Then MsgBox ("Точка принадлежит фигуре")
If (x > (1 - 1)) And (y > (1 - 1)) Then MsgBox ("Точка не принадлежит фигуре")

End If
End Sub