Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Даны координаты точек х1, y1, x2, y2,...,x20,y20 и уравнение - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Даны координаты точек х1, y1, x2, y2,...,x20,y20 и уравнение (Макросы/Sub)
Даны координаты точек х1, y1, x2, y2,...,x20,y20 и уравнение
andreyboluk Дата: Суббота, 20.11.2021, 03:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

добрый вечер всем) как решить эту задачу?
Даны координаты точек х1, y1, x2, y2,...,x20,y20 и уравнение прямой y=ax+b; b=-2.1; a=1.34. Сформировать и вывести на печать массив С, состоящий из ординат точек, принадлежащих этой прямой, и определить их количество.
 
Ответить
Сообщениедобрый вечер всем) как решить эту задачу?
Даны координаты точек х1, y1, x2, y2,...,x20,y20 и уравнение прямой y=ax+b; b=-2.1; a=1.34. Сформировать и вывести на печать массив С, состоящий из ординат точек, принадлежащих этой прямой, и определить их количество.

Автор - andreyboluk
Дата добавления - 20.11.2021 в 03:17
bmv98rus Дата: Суббота, 20.11.2021, 20:07 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3686
Репутация: 651 ±
Замечаний: 0% ±

Excel 2013/2016
как решить эту задачу?
составить уравнение и проверить истинно ли оно при X1 и Y1 .... Посчитать сколько истина.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
как решить эту задачу?
составить уравнение и проверить истинно ли оно при X1 и Y1 .... Посчитать сколько истина.

Автор - bmv98rus
Дата добавления - 20.11.2021 в 20:07
andreyboluk Дата: Суббота, 20.11.2021, 22:08 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

составить уравнение и проверить истинно ли оно при X1 и Y1 .... Посчитать сколько истина.

а как решить это через вба, то есть используя массив? есть у меня некоторие варианты для кода, но все же это не то что нужно))
 
Ответить
Сообщение
составить уравнение и проверить истинно ли оно при X1 и Y1 .... Посчитать сколько истина.

а как решить это через вба, то есть используя массив? есть у меня некоторие варианты для кода, но все же это не то что нужно))

Автор - andreyboluk
Дата добавления - 20.11.2021 в 22:08
bmv98rus Дата: Воскресенье, 21.11.2021, 17:21 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3686
Репутация: 651 ±
Замечаний: 0% ±

Excel 2013/2016
а как решить это через вба

Взять массив, составить уравнение и проверить истинно ли оно при значениях взятых из массива, если истина, то добавить в массив С ординату, и потом вывести на печать (это устаревшее понятие, но пусть останется) этот массив и его размер, или сразу выводить значение на печать прибавляя 1 к счетчику, который также вывести на печать после всего цикла.



Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
а как решить это через вба

Взять массив, составить уравнение и проверить истинно ли оно при значениях взятых из массива, если истина, то добавить в массив С ординату, и потом вывести на печать (это устаревшее понятие, но пусть останется) этот массив и его размер, или сразу выводить значение на печать прибавляя 1 к счетчику, который также вывести на печать после всего цикла.


Автор - bmv98rus
Дата добавления - 21.11.2021 в 17:21
andreyboluk Дата: Пятница, 26.11.2021, 22:12 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

bmv98rus, спасибо))
 
Ответить
Сообщениеbmv98rus, спасибо))

Автор - andreyboluk
Дата добавления - 26.11.2021 в 22:12
jun Дата: Суббота, 27.11.2021, 19:29 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 7 ±
Замечаний: 0% ±

andreyboluk, вот например, с выгрузкой на лист:

[vba]
Код
Sub Example()
Dim A, B
Dim x, y ' координаты
Dim i, k, s()
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

k = 1
For i = LBound(c) To UBound(c)
    xx = A * c(i, 1) + B
    If xx = c(i, 2) Then
    ReDim Preserve s(1 To k)
        s(k) = "Точка с координатами: " & "(" & c(i, 1) & ";" & c(i, 2) & ")" & _
        " принадлежит данной функции"
       k = k + 1
    End If
Next i
Cells(1, 1).Resize(UBound(s), 1) = Application.Transpose(s)
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = "Количество точек, принадлежащих функции:"
Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = UBound(s)
End Sub
[/vba]
К сообщению приложен файл: 2585734.xlsb(15.0 Kb)
 
Ответить
Сообщениеandreyboluk, вот например, с выгрузкой на лист:

[vba]
Код
Sub Example()
Dim A, B
Dim x, y ' координаты
Dim i, k, s()
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

k = 1
For i = LBound(c) To UBound(c)
    xx = A * c(i, 1) + B
    If xx = c(i, 2) Then
    ReDim Preserve s(1 To k)
        s(k) = "Точка с координатами: " & "(" & c(i, 1) & ";" & c(i, 2) & ")" & _
        " принадлежит данной функции"
       k = k + 1
    End If
Next i
Cells(1, 1).Resize(UBound(s), 1) = Application.Transpose(s)
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = "Количество точек, принадлежащих функции:"
Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = UBound(s)
End Sub
[/vba]

Автор - jun
Дата добавления - 27.11.2021 в 19:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Даны координаты точек х1, y1, x2, y2,...,x20,y20 и уравнение (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!