powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отыскание параметров многочлена m-й степени
2 сообщений из 2, страница 1 из 1
Отыскание параметров многочлена m-й степени
    #38596445
maxi63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Заказывал программу, выполнили, теперь сижу разбираю...
Подскажите пожалуйста, что значит xpq() в этой шапке: И почему внизу самом Next без значения стоит? То есть обычно пишется же Next и какая то переменная(для который цикл открывали)
Dim xpq(m * m)
For i = 1 To n: x(i) = Cells(i, 1): y(i) = Cells(i, 2): Next i
For i = 0 To m * m
xpq(i) = 0
For j = 1 To n
xpq(i) = xpq(i) + x(j) ^ i
Next
...
Рейтинг: 0 / 0
Отыскание параметров многочлена m-й степени
    #38596493
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
maxi63,

xpq - это имя перменной массива размером m * m, где m, как видимо, некая константа, не указанная в примере. Оператор Dim используется очень часто, поэтому лучше ознакомиться со справкой, для этого, установить курсор на Dim и нажать F1.

Параметер после Next опциональный, т.к. Next закрывает "ближайший" к нему For.

Код лучше всего оформлять при помощи тегов, как это делается, описано здесь . Тогда его (код) будет гораздо легче читать:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim xpq(m * m)

For i = 1 To n: x(i) = Cells(i, 1): y(i) = Cells(i, 2): Next i

For i = 0 To m * m
    xpq(i) = 0
    For j = 1 To n
        xpq(i) = xpq(i) + x(j) ^ i
    Next
Next



Раз уж речь идет о разборе кода, то в нем был пропущен Next. Массив y в данном примере используется лишь для присвоения ему значений, без каких либо дальнейших операций с этими значениями, хотя, возможно, что массив используется в другой процедуре или функции.
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отыскание параметров многочлена m-й степени
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]