1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Требуется помощь в написании программы

Тема в разделе "Visual Basic", создана пользователем Klutch, 14 апр 2010.

  1. Klutch

    Klutch Гость

    Репутация:
    0
    Требуется помощь знающих людей. Есть некоторая область, ограниченная тремя функциями. Можно ли как то сделать так чтобы вводились данные произвольно, т.е. рандомайз был, как ограничить эту область логически? И самый главный вопрос как сделать так чтобы выводились только координаты тех точек которые попадают на границу ограниченной области? Спасибо за внимание. Область прилагается

    Добавлено: Есть прога похожая, только там можно вводить по одной точке и проверять попадает она в область или нет.

    Код:
    Private Sub CommandButton1_Click()
    Dim x As Single, y As Single
    u1 = (-x + a * Cos((z - z0) / P) + a * Cos(Atn(((y - a * Sin((z - z0) / P)) / a) / Sqr(1 - ((y - a * Sin((z - z0) / P)) / a) ^ 2))) > -2.17) And ((Atn(1 / (±r0 / x)) - P / z - Atn((r0 / Sqr(x ^ 2 + y ^ 2)) / Sqr(1 - (r0 / Sqr(x ^ 2 + y ^ 2)) ^ 2)) + (Sqr(x ^ 2 + y ^ 2) * Tan(ksi0)) + Sqr(1 - (r0 / (x ^ 2 + y ^ 2))) + z) / P) > 0.41 And ((x ^ 2 + y ^ 2 - R ^ 2) < 10)
    x = Val(TextBox1)
    y = Val(TextBox2)
    z = Val(TextBox3)
    If u1 Then
    lable3.Caption = "Точка с координатами (" + Str(x) + ";" + Str(y) + ";" + Str(z) + ") лежит в области"
    End If
    End Sub
     

    Вложения:

  2. Klutch

    Klutch Гость

    Репутация:
    0
    Код:
    Private Sub CommandButton1_Click()
    Dim x As Single, y As Single
    Dim u1 As Boolean, u2 As Boolean, u3 As Boolean
    x = Val(TextBox1.Text)
    y = Val(TextBox2.Text)
    u1 = ((y ^ 2 + x ^ 2) > 0.25) And ((y ^ 2 + x ^ 2) < 1) And (y < 0) And (y > x ^ 3)
    u2 = (y < 0) And ((y ^ 2 + x ^ 2) < 0.25) And (x > 0) And (y > (-x))
    u3 = ((y ^ 2 + x ^ 2) > 0.25) And ((y ^ 2 + x ^ 2) < 1) And (x > 0) And (y > x ^ 3) And (y > 0)
    If u1 = True Then
    Label3.Caption = "Точка с координатами(" + Str(x) + ";" + Str(y) + ")лежит в области 1"
    ElseIf u2 = True Then
    Label3.Caption = "Точка с координатами(" + Str(x) + ";" + Str(y) + ")лежит в области 2"
    ElseIf u3 = True Then
    Label3.Caption = "Точка с координатами(" + Str(x) + ";" + Str(y) + ")лежит в области 3"
    Else
    Label3.Caption = "Точка с координатами(" + Str(x) + ";" + Str(y) + ")лежит вне области "
    End If
    End Sub
    Этот код хотелось бы облагородить и сделать так чтобы значения например для х,у вводились из интервала [-20;20] с некоторым шагом 0,1 и выводились на лист только те которые попадают на границу области. Помогите пожалуйста
     
  3. Klutch

    Klutch Гость

    Репутация:
    0
    Прошу помогите хотя бы с выводом координат точек которые попадают в область, чтобы они сразу выводились там по столбцам х и соответствующий ему у
     
Загрузка...

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