Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отыскание параметров многочлена m-й степени / 2 сообщений из 2, страница 1 из 1
25.03.2014, 23:31
    #38596445
maxi63
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отыскание параметров многочлена m-й степени
Заказывал программу, выполнили, теперь сижу разбираю...
Подскажите пожалуйста, что значит 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
26.03.2014, 02:32
    #38596493
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отыскание параметров многочлена m-й степени
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
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отыскание параметров многочлена m-й степени / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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