Прошу Помощи

Тема в разделе "Visual Basic", создана пользователем nemo85, 12 май 2013.

  1. nemo85

    nemo85 New Member

    Регистрация:
    12 май 2013
    Сообщения:
    2
    Симпатии:
    0
    Доброго времени суток всем! Помогите пожалуйста написать программу, т.к. в этом я полный ноль и ни черта в этом не смыслю, хотя совсем и не тупой))
    Задание такое:
    Задание.jpg

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

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    "Размер моей благодарности не будет иметь границ. В разумных пределах, конечно." :D
    Задание не сложное. Могу сделать. Но у меня правило: что бы это считалось помощью должны быть собственные наработки.
    запрос координат примерно так:
    Код (LotusScript):
    Координаты = InputBox("Введите координаты точки......")
     
  3. nemo85

    nemo85 New Member

    Регистрация:
    12 май 2013
    Сообщения:
    2
    Симпатии:
    0
    Вроде немного разобрался, не знаю на сколько правильно

    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

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

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Где-то так:
    Код (LotusScript):
    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
     
Загрузка...
Похожие Темы - Прошу Помощи
  1. webwareroot
    Ответов:
    1
    Просмотров:
    148
  2. virusksv
    Ответов:
    2
    Просмотров:
    1.201
  3. beloff
    Ответов:
    5
    Просмотров:
    1.849
  4. xavi
    Ответов:
    1
    Просмотров:
    1.842
  5. Hemenede
    Ответов:
    2
    Просмотров:
    250

Поделиться этой страницей