заполнение и определение количества элементов в динамическом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

заполнение и определение количества элементов в динамическом (Макросы/Sub)

andreyboluk

Дата: Среда, 24.11.2021, 17:50 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

добрый вечер всем))
есть некоторый код в котором проверяется верность функции, то есть нужно проверить принадлежит ли точки функции, если так то нужно ординаты функции записать в отдельный массив и определить их количество
как это воплотить?
я так понял, что нужно использовать динамический массив, но как его заполнить элементами и сосчитать их количество?
вот сам код:
[vba]

Код

Option Base 1
Private Sub pr72()
B = -2.1
A = 1.34
Dim x(6), Y(6), c() As Integer, i, xx As Single

For i = 1 To 6
x(i) = Val(InputBox(" Введіть число x"))
Y(i) = Val(InputBox(" Введіть число y"))
Debug.Print "x ="; x(i), "y = "; Y(i)
Next i

For i = 1 To 6
xx = A * x(i) + B

If xx = Y(i) Then
Debug.Print "y ="; Y(i)
End If
'
Next i

[/vba]

Сообщение отредактировал Serge_007 - Среда, 24.11.2021, 17:57

Ответить

jun

Дата: Четверг, 25.11.2021, 11:30 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

Репутация: 43 ±

Замечаний: 0% ±

Проверьте:

[vba]

Код

Sub Example()
Dim A, B
Dim x, y ' координаты
Dim i
Dim c() As Integer ' массив с координатами
Dim xx As Single ' уравнение
    B = -3
    A = 2
ReDim c(1 To 3, 1 To 2) '- можно сразу объявить размерность массива

For i = 1 To 3
    x = Val(InputBox(" Введіть число x"))
    y = Val(InputBox(" Введіть число y"))
    c(i, 1) = x
    c(i, 2) = y
Next i

For i = LBound(c) To UBound(c)
    xx = A * c(i, 1) + B
    If xx = c(i, 2) Then
        Debug.Print "Точка с координатами: " & "(" & c(i, 1) & ";" & c(i, 2) & ")" & _
        " принадлежит данной функции"
    End If
Next i
End Sub

[/vba]

Тестировались координаты:
3;3
7;11
5;2

Про добавление в динамический двумерный массив:
https://www.planetaexcel.ru/forum....1134476

Сообщение отредактировал jun - Четверг, 25.11.2021, 14:45

Ответить

andreyboluk

Дата: Пятница, 26.11.2021, 22:13 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

jun, спасибо большое

Ответить

заполнение и определение количества элементов в динамическом (Макросы/Sub)

Страница 1 из 1
1